SAP ABAP 字符串内数字去前导零的两种方法(正则/拼接)

2024-06-18 14:20 由狐嫁发表于 #后端开发

碰到一个小需求，需要把字符串里数字的前导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 ↩︎

热门相关：重生八零俏佳妻大唐杨国舅太监武帝神医娘亲之腹黑小萌宝纣临