【ABAP】字符串补0/去0（有转换例程OR无转换例程）

字符串补0/去0

1.有转换例程可以直接使用转换函数

补0
DATA: LV_VBELN_IN TYPE VBELN VALUE ‘15000042’.
LV_VBELN_IN = |{ LV_VBELN_IN ALPHA = IN }|.
去0
DATA: LV_VBELN_OUT TYPE VBELN VALUE ‘0015000042’.
LV_VBELN_OUT = |{ LV_VBELN_OUT ALPHA = OUT }|.
2.转换对象为纯数字时，也可以直接使用转换函数转换
DATA:LV_STR(5) VALUE ‘7’.
LV_STR = |{ LV_STR ALPHA = IN }|.

3.转换对象可能为包含非纯数字时

去0
SHIFT LV_STR LEFT DELETING LEADING ‘0’.
补0
DATA:LV_STR(8) VALUE ‘A’.
WHILE STRLEN( LV_STR ) < 5.
LV_STR = ‘0’ && LV_STR.
ENDWHILE.

DATA:LINT_INDEX TYPEI.
DATA: ZERO(1) VALUE ‘O’.
DATA:LV LEN TYPEI.
DESCRIBE FIELD LV_STR OUTPUT-LENGTH LV_LEN.
LINT_INDEX = LV_LEN - STRLEN(LV_STR).
IF STRLEN(LV_STR) <LV_LEN.
DO LINT_INDEX TIMES.
CONCATENATE ZERO LV_STR INTO LV_STR.
ENDDO.
ENDIF.