序

HELLO,这里是百里,一个学习中的ABAPER,在工作中我们可能会遇到用户输入或者导入某一串字符串,我们需要判断这串字符串是否为纯数字,因为我们要进行后续的数据逻辑计算,要求对应的内容为数字.这个时候我们就需要使用我们今天讲述的内容就是判断输入的内容是否为数字

正则和num_check函数

我们可以使用两种方式进行判断输入的字符串是否为数字,分别是正则和标准检查函数. 正则顾名思义,和其他语言中的正则一样,这里不详细讲解正则的使用方式,毕竟那个东西讲起来也是一门长篇大论.我们只是用到非常基础的判断是否为数字的相关的内容. 第二种就是标准num_check函数,我们只需要把对应的字符串输入进来即可,根据返回值进行判断是否为数字.

语法解析

正则语法

输入对应的字符串到LS_SPLIT 中, 也是会返回逻辑判断值,TURE OR FLASE 进行判断是否为数字.

IF cl_abap_matcher=>matches(
pattern = '^(-?[1-9]\d*(\.\d*[1-9])?)|(-?0\.\d*[1-9])$'
text = ls_split ) = abap_true."判断每个拆出来的字段是否为数字 

函数语法

将对应字符串内容传递到函数NUMERIC_CHECK 中,根据输出的结果进行逻辑判断.TURE OR FLASE 进行分析是否为数字 .

CALL FUNCTION ‘NUMERIC_CHECK’  
EXPORTING  
string_in  = c  
IMPORTING  
string_out = n  
htype  = type.

案例

正则案例

数据准备

DATA(l_value) = '4，3,2 ,1'."字段

我们这里准备4个数据,分别以’,’ ,进行隔开.

数据处理

SPLIT l_value AT ',' INTO TABLE DATA(lt_split)."用英文符号,拆分成多个

将刚才的数据,通过逗号进行分割到对应的LT_SPLIT内表中.

正则判断

LOOP AT lt_split INTO DATA(ls_split). 
IF cl_abap_matcher=>matches( 
pattern = '^(-?[1-9]\d*(\.\d*[1-9])?)|(-?0\.\d*[1-9])$'
text = ls_split ) = abap_true."判断每个拆出来的字段是否为数字 
WRITE '数字'. 
ELSE.
WRITE '非数字'. 
ENDIF. 
ENDLOOP.

通过将内表循环,得到每一个工作区内容,分别调用正则函数,打印出数字非数字.

结果

通过正则判断后,结果都是数字.

函数方式

DATA:c TYPE c length 4 VALUE '4321',  
n TYPE n LENGTH 10,  
type TYPE dd01v-datatype.  
CALL FUNCTION 'NUMERIC_CHECK'  
EXPORTING  
string_in  = c  
IMPORTING  
string_out = n  
htype      = type.  
  
WRITE:c,n,type.  
IF type = 'NUMC'.  
  WRITE :'是数字' .  
  
ENDIF.

我们设定字符串为’4321’ ,将数字传入函数,并设定输出长度, 通过输出内容进行判断是否为数字 .

结果

技术总结

今天讲述的是两种方式进行判断字符串是否为数字的方法,在工作中,这两种方法都可以实现相应的需求.

百里鸡汤

假装自己很优秀,也是一个变优秀的方式,加油百里.

这里是百里,一个努力的学习者. 努力学习好好记录,点滴进步,就是成功.