提取字符串中的数字

REPORT   zsolar.

DATA : lc_matcher TYPE  REF  TO  cl_abap_matcher,
      lc_regex TYPE  REF  TO  cl_abap_regex.

DATA : lv_obj TYPE  string VALUE  'abc123def4567ghi' ,
      li_re TYPE  match_result_tab WITH  HEADER  LINE .

TRY .
    CREATE  OBJECT lc_regex
      EXPORTING
        pattern     = '/d' .
  CATCH  cx_sy_regex .
ENDTRY .

TRY .
    CREATE  OBJECT lc_matcher
      EXPORTING
        regex         = lc_regex
        text           = lv_obj .
  CATCH  cx_sy_matcher .
ENDTRY .

CALL  METHOD  lc_matcher->find_all
  RECEIVING
    matches = li_re[].

LOOP  AT  li_re.
  WRITE : lv_obj+li_re-offset(li_re-length).
  NEW -LINE .
ENDLOOP .