碰到一个小需求，需要把字符串里数字的前导0给去掉。
ABAP内，想对字符串做处理，把字符串内的数字进行去前导0，通常有两种思路，拆分处理再拼接或者直接用正则表达替换。
最初的想法是直接通过符号拆分，去前导0后拼回去，但是了解到实际分割的符号并不唯一。
所以直接用正则表达式来做替换会更加合适。
通过0(\d)来去掉0，0(\d)代表的是0+数字，通过这个方法可以去掉一到两位数字的前导0
点击查看代码
WRITE:/,'*通过0(\d)来去掉0，0(\d)代表的是0+数字，通过这个方法可以去掉一到两位数字的前导0'.
DATA text2 TYPE string VALUE '01,02,04;03,05,08;06,09,010,20,025'.
WRITE:/,'去前导0之前的字符串:',text2.
REPLACE ALL OCCURRENCES OF REGEX '0(\d)' IN text2 WITH '$1'.
WRITE:/,'去前导0之后的字符串:',text2.
效果图：
但是我发现，如果出现3位数字的情况，会出BUG，比如105直接替换成15了
点击查看代码
WRITE:/,'*但是当出现三位数时，0(\d)是什么效果呢？'.
DATA text3 TYPE string VALUE '01,04,05;02,05,06;08,09,10,18;90,100,105,110'.
WRITE:/,'去前导0之前的字符串:',text3.
REPLACE ALL OCCURRENCES OF REGEX '0(\d)' IN text3 WITH '$1'.
WRITE:/,'去前导0之后的字符串:',text3.
WRITE:/,'*可以看到，三位数数字的0一样会被删掉'.
效果图：
为了避免出现可能会出现的三位数BUG，所以匹配的字符多一位，采用(\D)0(\d)，非数字+0+数字来作为匹配。
但是这样就漏掉开头的第一个数字了，所以再加一步[1]+去字符开头的前导0。
点击查看代码
WRITE:/,'*为了适应字符串内存在三位数及以上的情况，增加一个匹配项变成(\D)0(\d)，这代表的是非数字+0+数字'.
WRITE:/,'*但是这样就会漏掉开头第一个数字，因为缺少了非数字的匹配项，所以加一步^[0]+，去掉开头的前导0'.
DATA text4 TYPE string VALUE '01,04,05;02,05,06;08,09,010,18;090,0100,0105,0110'.
WRITE:/,'去前导0之前的字符串:',text4.
REPLACE ALL OCCURRENCES OF REGEX '(\D)0(\d)' IN text4 WITH '$1$2'.
WRITE:/,'通过(\D)0(\d)去前导0的字符串:',text4.
REPLACE ALL OCCURRENCES OF REGEX '^[0]+' IN text4 WITH ''.
WRITE:/,'再去掉开头的前导0的字符串',text4.
效果图：
那么如果不用正则替换，怎么用拼接的方式实现去掉字符串里的前导零呢？
假如间隔的符号是固定的，直接拆分去前导零做拼接就行了。
点击查看代码
DATA text0 TYPE string VALUE '01,02,04,03,05,08,06,09,10,15,20,30,50,105,120'.
DATA txt0 TYPE string.
DATA num0(2) TYPE c VALUE 0.
WRITE:/,'*对固定符号间隔的字符串做处理，直接拆分做去前导0即可'.
WRITE:/,'去前导0之前的字符串:',text0.
*分割符号固定
*通过，分割放入内表
SPLIT text0 AT ',' INTO TABLE DATA(lt_text).
*去前导0后重新拼接
LOOP AT lt_text ASSIGNING FIELD-SYMBOL(<lt_text>).
<lt_text> = |{ <lt_text> ALPHA = OUT }|.
txt0 = |{ txt0 }{ COND #( WHEN txt0 IS NOT INITIAL THEN ',' ELSE '') }{ CONV dec03( <lt_text> ) }|.
ENDLOOP.
WRITE:/,'去前导0之后的字符串:' ,txt0.
但是，分隔的符号出现多个时，SPLIT直接拆分就不太好用了。
首先用正则去掉数字，用拿到的分割符号给函数segment做拆分，再做拼接。
点击查看代码
DATA lt_asv TYPE TABLE OF string .
DATA text1 TYPE string VALUE '01,02,04;03,05,08;06,09,10;15,20,30;50,105,120'.
DATA num1(3) TYPE c VALUE 0.
DATA num2(3) TYPE c VALUE 0.
DATA symbol TYPE string.
DATA(text1_copy) = text1.
WRITE:/,'*对非固定符号间隔的字符串做拆分就需要用到segment函数'.
*但是分割符号不固定怎么办呢
REPLACE ALL OCCURRENCES OF REGEX '[0-9]' IN text1_copy WITH ''.
WRITE:/,'去前导0之前的字符串:',text1.
WRITE:/,'得到所有用于分割的符号:' ,text1_copy.
WRITE:/,'*这串字符将作为segment函数的space入参'.
DO.
TRY.
DATA(lv_data) = segment( val = text1
index = sy-index
space = text1_copy ).
CATCH cx_sy_strg_par_val.
EXIT.
ENDTRY.
IF sy-subrc = 0.
DATA:lt_data LIKE TABLE OF lv_data.
APPEND lv_data TO lt_data.
ENDIF.
ENDDO.
clear text1.
LOOP AT lt_data ASSIGNING FIELD-SYMBOL(<lt_data>).
<lt_data> = |{ <lt_data> ALPHA = OUT }|.
num1 = sy-tabix - 2.
text1 = |{ text1 }{ COND #( WHEN text1 IS NOT INITIAL THEN text1_copy+num1(1) ELSE '') }{ CONV dec03( <lt_data> ) }|.
ENDLOOP.
WRITE:/,'去前导0之后的字符串:',text1.
效果图：
0 ↩︎