正则表达式

IF cl_abap_matcher=>matches(
    pattern = '^(-?[1-9]\d*(\.\d*[1-9])?)|(-?0\.\d*[1-9])$'
    text = '1.29' ) = abap_true.
  WRITE '数字'.
ELSE.
  WRITE '非数字'.
ENDIF.

*DATA: str1 TYPE char20 VALUE '01234'.
*DATA: str2 TYPE char20 VALUE '0123456789'.
*IF str1 CO str2 .
*  WRITE:/ '涉及关键字：CO，使用公式 str1 CO str2 。表示 str1 中 的每个字符 在 str2 中都能找到'.
*ENDIF.
*
*
*PARAMETERS field TYPE char10.
*IF contains( val = field regex = '(\d)+$').
*  WRITE / '匹配成功'.
*ELSE.
*  WRITE / '匹配失败'.
*ENDIF.
*
*PARAMETERS field1 TYPE char10.
*IF contains( val = field1 regex = '(\C)+$').
*  WRITE / '匹配成功'.
*ELSE.
*  WRITE / '匹配失败'.
*ENDIF.
*
*DATA: lv_para TYPE string.
*lv_para = ' You &are like& kite &flying& in a &hurricane&'.
*REPLACE ALL OCCURRENCES OF REGEX '&[^&]+&' IN lv_para WITH ''.
*WRITE lv_para.
*
*
*DATA lv_str1 TYPE string VALUE 'hello , . world'.
*DATA lv_str2 TYPE string VALUE ','.
*
*IF lv_str1 CS lv_str2.
*  WRITE:/ 'str1 中 包含字符串str2'.
*ENDIF.


*DATA: str        TYPE string,
*      result_tab TYPE match_result_tab,
*      wa         LIKE LINE OF result_tab.

*找出STRING里面的双字节字符
*str = 'abc我啊adfsf们'.
*FIND ALL OCCURRENCES OF REGEX '[^\x00-\xff]*' IN str RESULTS result_tab.
*LOOP AT result_tab INTO wa.
*  WRITE / str+wa-offset(wa-length).
*ENDLOOP.

*str = 'abc我啊adfsf们'.
*FIND ALL OCCURRENCES OF REGEX '[\x00-\xff]*' IN str RESULTS result_tab.
*WRITE / '-----'.
*LOOP AT result_tab INTO wa.
*  WRITE / str+wa-offset(wa-length).
*ENDLOOP.

*找出STRING里面的IP地址
*str = 'IP1:172.16.32.12  IP2:192.168.1.1 '.
*FIND ALL OCCURRENCES OF REGEX '\d+\.\d+\.\d+\.\d+' IN str RESULTS result_tab.
*WRITE / '-----'.
*LOOP AT result_tab INTO wa.
*  WRITE / str+wa-offset(wa-length).
*ENDLOOP.

*找出STRING里面的***-********格式的电话号码
*str = 'IP1:172.16.32.12  021-12345678 '.
*FIND ALL OCCURRENCES OF REGEX '\d{3}-\d{8}|\d{4}-\d{7}' IN str RESULTS result_tab.
*WRITE / '-----'.
*LOOP AT result_tab INTO wa.
*  WRITE / str+wa-offset(wa-length).
*ENDLOOP.

*找出STRING里面的15/18位身份证号码
*str = 'IP1:172.16.32.12 3722198003041234 '.
*FIND ALL OCCURRENCES OF REGEX '\d{15}|\d{18}' IN str RESULTS result_tab.
*WRITE / '-----'.
*LOOP AT result_tab INTO wa.
*  WRITE / str+wa-offset(wa-length).
*ENDLOOP.

*PARAMETERS: p_input TYPE string DEFAULT 'IP1:172.16.32.12  IP2:192.168.1.1 ' OBLIGATORY.
*
*DATA: regex   TYPE REF TO cl_abap_regex,
*      matcher TYPE REF TO cl_abap_matcher,
*      match   TYPE c.
*DATA: result_tab TYPE match_result_tab,
*      wa         LIKE LINE OF result_tab.
*
*CREATE OBJECT regex
*  EXPORTING
*    pattern     = '\d+\.\d+\.\d+\.\d+'
*    ignore_case = 'X'.
*
*TRY.
*    CALL METHOD regex->create_matcher
*      EXPORTING
*        text    = p_input
**       table   =
*      RECEIVING
*        matcher = matcher.
*  CATCH cx_sy_matcher .
*ENDTRY.
*
*TRY.
*    CALL METHOD matcher->match "是否完全匹配
*      RECEIVING
*        success = match.
*  CATCH cx_sy_matcher .
*ENDTRY.
*
*CALL METHOD matcher->find_all
*  RECEIVING
*    matches = result_tab.
*LOOP AT result_tab INTO wa.
*  WRITE / p_input+wa-offset(wa-length).
*ENDLOOP.

***SAP给的判断Email地址的例子***
*PARAMETERS email TYPE c LENGTH 30 LOWER CASE .
*DATA matcher TYPE REF TO cl_abap_matcher.
*matcher = cl_abap_matcher=>create( pattern = '\w+(\.\w+)*@(\w+\.)+(\w{2,4})'
*                                   ignore_case = 'X'
*                                   text = email ).
*IF matcher->match( ) IS INITIAL.
*  MESSAGE 'Wrong Format' TYPE 'I'.
*ELSE.
*  MESSAGE 'Format OK' TYPE 'I'.
*ENDIF.

***SAP给的判断Email地址的例子***
*PARAMETERS p_str TYPE c LENGTH 30 .
*DATA matcher TYPE REF TO cl_abap_matcher.
*matcher = cl_abap_matcher=>create( pattern = '\w+[,]+[.]+[（]+[）]+'
*                                   ignore_case = 'X'
*                                   text = p_str ).
*IF matcher->match( ) IS INITIAL.
*  MESSAGE 'Wrong Format' TYPE 'I'.
*ELSE.
*  MESSAGE 'Format OK' TYPE 'I'.
*ENDIF.

TYPES: BEGIN OF ty_c,
         zm_zd TYPE char2,
       END OF ty_c.
DATA: lt_ty TYPE TABLE OF ty_c.
DATA: ls_ty LIKE LINE OF lt_ty.

DATA matcher TYPE REF TO cl_abap_matcher.

DATA: lv_a TYPE c LENGTH 10 VALUE '@你好,.（）看',
      lv_b TYPE c,
      lv_c TYPE c,
      lv_d TYPE c.
DATA: lv_num TYPE i,
      lv_ks  TYPE i,
      lv_bl  TYPE i.
lv_ks  = 1.
lv_bl  = 0.
lv_num = strlen( lv_a ).

WHILE lv_num >= lv_ks .
  ls_ty-zm_zd = lv_a+lv_bl(1).
  APPEND ls_ty TO lt_ty.
  CLEAR ls_ty.
  lv_ks = lv_ks + 1.
  lv_bl = lv_bl + 1.
ENDWHILE.

LOOP AT lt_ty INTO ls_ty.
  WRITE:/ ls_ty-zm_zd.
ENDLOOP.

LOOP AT lt_ty INTO ls_ty.
  matcher = cl_abap_matcher=>create( pattern = '\w'
                                     ignore_case = 'X'
                                     text = ls_ty-zm_zd ).
  IF matcher->match( ) IS INITIAL.
    IF ',.（）' CA ls_ty-zm_zd .
      MESSAGE 'Format OK' TYPE 'I'.
    ELSE.
      lv_b = 'X'.
      MESSAGE 'Wrong Format' TYPE 'I'.
      EXIT.
    ENDIF.
  ELSE.
    MESSAGE 'Format OK' TYPE 'I'.
  ENDIF.
ENDLOOP.

IF lv_b IS NOT INITIAL.

ENDIF.