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

cnblogs 2024-06-18 14:39:01 阅读 78

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

效果图:


  1. 0 ↩︎


上一篇: 【javaSE】认识异常(2)

下一篇: Matlab 2024a 保姆级安装教程

本文标签

SAP    SAP ABAP    ABAP   


声明

本文内容仅代表作者观点,或转载于其他网站,本站不以此文作为商业用途
如有涉及侵权,请联系本站进行删除
转载本站原创文章,请注明来源及作者。