ABAP取字符串中的连续数字

转载自：http://blog.csdn.net/zhongguomao/article/details/13296165

尝试过用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.
运行结果：

中国人民银行02520321456-25支行

02520321456-25
 
少年休闲海-2013/10/28记录