ABAP 去除字符串后面的‘0’

data: w_p(13) type p decimals 3 value '12.120', w_p2(13) type p decimals 3, w_c(13) type c, w_i type i value 1. do 3 times. w_p2 = w_p * w_i. if FRAC( w_p2 ) = 0. exit. else....

ABAP内，想对字符串做处理，把字符串内的数字进行去前导0，通常有两种思路，拆分处理再拼接或者直接用正则表达替换。为了避免出现可能会出现的三位数BUG，所以匹配的字符多一位，采用(\D)0(\d)，非数字+0+数字来作为匹配。通过0(\d)来去掉0，0(\d)代表的是0+数字，通过这个方法可以去掉一到两位数字的前导0。最初的想法是直接通过符号拆分，去前导0后拼回去，但是了解到实际分割的符号并不唯一。首先用正则去掉数字，用拿到的分割符号给函数segment做拆分，再做拼接。

关于去除/添加SAP的前导零

DATA:strTYPEchar10VALUESHIFTstr'0'.SHIFTstr'0'.如: 功能模块.DATA:intTYPEi,strTYPEchar10VALUEint = str.str = int.

一、 判断字符串1是否在字符串2里可以找到？ DATA: str1(50) TYPE c VALUE '51.000', str2 TYPE string VALUE '.0123456789', str3 TYPE char20. str3 = str1. IF str3 CO str2. MESSAGE 'Correct' TYPE 'S'. ELSE. MESSAGE 'Error' TYPE 'S' DISPLAY LIKE 'E'. LEAVE

ABAP SHIFT-字符串移位

ABAP-08 字符串处理 - 重点

字符串截取案例 IFcb_01EQ'X'. LOOPATgt_outINTOgs_out. SELECTSINGLEbelnr FROMbkpfASt1 WHEREsubstring(t1~awkey,1,10)=@gs_out-mblnr ANDsubstring(t1~awkey,11,4)=@gs_out-mjahr INTO@gs_out-...

ABAP -去除小数位后面的0。

**********************去掉0  CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'    EXPORTING      input  = p_out    IMPORTING      output = p_out.   *****************追加0   CALL FUNCTION 'CONVERSION_EXIT_...

DATA: STR(20),STR2(20),N. STR = '  abcade*'. WRITE STR. IF SUBSTRING(  VAL = STR OFF = STRLEN( STR ) - 1 LEN = 1 ) = '*'.   STR = SUBSTRING(  VAL = STR LEN = STRLEN( STR ) - 1 ) . ENDIF. WRITE /

ABAP 去除小数掉。有时我们需要将数字类型转换成字符型，但后面存在小数点为零的，以下方法可去掉。SHIFT XXX LEFT ,SHIFT XXX RIGHT

*&---------------------------------------------------------------------* *       text *----------------------------------------------------------------------* *       *----------------------------