ABAP提取汉字

REPORT Y_CLY_GET_CN_CHAR.

START-OF-SELECTION.

  DATA: LV_STR TYPE STRING.
  LV_STR = 'afdfas建昌df县老大杖asdfd子加油站adFdf发adf、dfas'.

  DATA: LV_ARKTX TYPE STRING.
  DATA: LT_RESULT_TAB TYPE MATCH_RESULT_TAB,
        LT_WA LIKE LINE OF LT_RESULT_TAB.


  ""提取汉字
  FIND ALL OCCURRENCES OF REGEX '[^\x00-\xff]*' IN LV_STR
      RESULTS LT_RESULT_TAB.
  LOOP AT LT_RESULT_TAB INTO LT_WA WHERE LENGTH <> 0.
    WRITE: / LV_STR+LT_WA-OFFSET(LT_WA-LENGTH).
  ENDLOOP.