SAP ABAP 判断字符串是否能转成整数、小数、其他字符串

最新推荐文章于 2025-03-03 11:57:11 发布

原创最新推荐文章于 2025-03-03 11:57:11 发布 · 2.6k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#sap #算法

本文介绍了一个 ABAP 函数模块 zhy_fm_check_dic 的实现细节，该模块用于检查输入字符串并根据其内容确定其类型。具体而言，它会判断字符串是否为空、纯数字、零开头的纯数字、小数等，并返回相应的类型标识。

FUNCTION zhy_fm_check_dic.
*"----------------------------------------------------------------------
*"*"本地接口：
*"  IMPORTING
*"     VALUE(INPUT) TYPE  STRING
*"  EXPORTING
*"     VALUE(E_TYPE) TYPE  ZSTR_TYPE
*"  EXCEPTIONS
*"      NO_INPUT
*"----------------------------------------------------------------------

  DATA lv_str TYPE string.

  lv_str = input.

  IF lv_str IS INITIAL .
    RAISE no_input.
  ENDIF.

  CHECK NOT lv_str IS INITIAL .

  IF lv_str CA ' '.
    e_type = 'O'.
  ENDIF.

  CHECK NOT lv_str CA ' '.

  IF lv_str = '0'.
    e_type = 'I'.
  ENDIF.

  CHECK NOT lv_str = '0'.

  IF lv_str CO '0123456789'.
    "纯数字
    IF lv_str+0(1) = '0'.
      "零开头的纯数字
      e_type = 'O'.
    ELSE.
      "非0开头的纯数字字符串 = 整数
      e_type = 'I'.
    ENDIF.

  ELSE.

    IF lv_str CO '0123456789.'.

      IF lv_str+0(1) = '.'.
        ".开头的纯数字
        e_type = 'O'.
      ELSE.
        "小数
        e_type = 'D'.
      ENDIF.

    ELSE.
      e_type = 'O'.
    ENDIF.

  ENDIF.
ENDFUNCTION.