ABAP验证邮箱，电话

"判断电话里有无汉字,现转换成STRING   [^\x00-\xff] 为双字节字符(包括汉字在内)
    L_TEXTDH = GS_PA-USRIDDH.
    find regex '[^\x00-\xff]' in L_TEXTDH.
    IF SY-SUBRC = 0.
      "格式不对ELSE.
      ENDIF.
    "判断邮箱地址格式
    L_TEXTYX = GS_PA-USRIDYX.
    find regex '^([a-zA-Z0-9_\.\-])+\@(([a-zA-Z0-9\-])+\.)+([a-zA-Z0-9]{2,4})+$' in L_TEXTYX.
    IF SY-SUBRC = 0.
    ELSE.

　　　　"格式不对

　　ENDIF.

 

转载于:https://www.cnblogs.com/CtrlS/p/10193872.html