NUMERIC_CHECK用法及怎样判断小数类型的字符串为数字

ABAP中，有时候需要判断一个字符串是否为数字，下面是常用的几种方法及注意事项：

1、可以利用NUMERIC_CHECK判断字串是否为数字并输出补零；

注意：利用function module NUMERIC_CHECK 检查字符串是否为数字时，整数类型的是NUMC，小数类型则会被认为Char类型！

DATA:lv_char1 TYPE c length 3 VALUE '100',

lv_char2 TYPE n LENGTH 6,

lv_type TYPE dd01v-datatype.

CALL FUNCTION ‘NUMERIC_CHECK’

EXPORTING

string_in = lv_char1

IMPORTING

string_out = lv_char2

htype = lv_type.

WRITE:lv_char1,lv_char2,lv_type.

结果：100 000100 NUMC

————

注意：

1、小数类型数字检查结果是CHAR类型的。

如下所示：

DATA:lv_char1 TYPE c length 3 VALUE '0.100',

lv_char2 TYPE n LENGTH 6,

lv_type TYPE dd01v-datatype.

CALL FUNCTION ‘NUMERIC_CHECK’

EXPORTING

string_in = lv_char1

IMPORTING

string_out = lv_char2

htype = lv_type.

WRITE:lv_char1,lv_char2,lv_type.

结果：0.1 0.100 char

————

2、可以用正则表达式判断，也只能判断整数，如果MATCH = 'X'，则为数字，如果为空，则不是数字类型，如下代码：

DATA:MATCHER TYPE REF TO CL_ABAP_MATCHER.

DATA:MATCH TYPE C LENGTH 1.

DATA:STR(10) TYPE C.STR = '2323'.

MATCHER = CL_ABAP_MATCHER=>CREATE( PATTERN = '\d+' TEXT = STR ).

MATCH = MATCHER->MATCH( ).

3、也可以用另一种方法来判断是否为补获系统异常：把字符串赋值给I类型的变量；如果是字母，会触发一个异常；可据异常情况，断定是数字还是字母！