ABAP取字符串中的连续数字
嘗試過用FM:PREPARE_STRING無法實現!
嘗試過用SRELEN(Text)取長度的方法,繁瑣!
后因為縝密思考,記錄代碼如下:
*&---------------------------------------------------------------------*
*&?Report??ZTEST_NUM
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT??ZTEST_NUM.
DATA?:?SENT?TYPE?STRING?VALUE?'中國人民銀行02520321456-25支行'.
DATA?:?NUMS?TYPE?STRING?VALUE?'1234567890-'.
DATA?:?LEN?TYPE?I.
DATA?:?POS?TYPE?I.
DATA?:?RESULT?TYPE?STRING.
LEN?=?STRLEN(?SENT?).
POS?=?0.
WHILE?POS?LT?LEN.
??IF?SENT+POS(1)?CA?NUMS.
????CONCATENATE?RESULT?SENT+POS(1)?INTO?RESULT.
????CONDENSE?RESULT?NO-GAPS.
??ENDIF.
??POS?=?POS?+?1.
ENDWHILE.
WRITE?:?SENT.
WRITE?:?/?RESULT.
運行結果:
?
少年休閑海-2013/10/28記錄
總結
以上是生活随笔為你收集整理的ABAP取字符串中的连续数字的全部內容,希望文章能夠幫你解決所遇到的問題。
- 上一篇: ABAP通过正则表达式提成字符串中的数字
- 下一篇: ABAP久违的操作符