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.
SAP ABAP 判断字符串是否能转成整数、小数、其他字符串
最新推荐文章于 2024-01-09 10:38:06 发布