去非数字字符串的前导零

weixin_34387284

于 2014-12-09 14:49:00 发布

阅读量90

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/caizjian/p/4153273.html

DATA: 
      LV_LEN TYPE I,
      LV_NUM TYPE I,
      LV_NU  TYPE I.

DATA:L_ORT02 TYPE KNA1-ORT02.
L_ORT02 = '000你好你好'.

*lv_len = cl_abap_list_utilities=>dynamic_output_length( l_ort02 ).“字符长度
LV_LEN = STRLEN( L_ORT02 ).  "字符个数

DO LV_LEN TIMES.
  LV_NU = SY-INDEX.
  IF L_ORT02+LV_NUM(1) = '0'.
    LV_NUM = LV_NUM + 1.
  ELSE.
    EXIT.
  ENDIF.
ENDDO.
SHIFT l_ort02 by  LV_NUM  PLACES left.
WRITE L_ORT02.