<转>Using regex to validate email address-优快云博客

本文介绍了一个使用ABAP实现的电子邮件地址验证程序。通过定义复杂的正则表达式来检查输入的电子邮件地址是否符合标准格式。如果输入的地址不符合预设的正则表达式模式，则会提示用户输入无效。

REPORT ZADN_SAMPLE.

*----------------------------------------------------------------------*
* -> CLASS cl_regex_test DEFINITION
*----------------------------------------------------------------------*
CLASS cl_regex_test DEFINITION FINAL.

  PUBLIC SECTION.

    METHODS : check_email IMPORTING p_email TYPE string.

  PRIVATE SECTION.

    DATA: o_regex   TYPE REF TO cl_abap_regex,
          o_matcher TYPE REF TO cl_abap_matcher.

ENDCLASS.                    "cl_regex_test DEFINITION

*----------------------------------------------------------------------*
* -> CLASS cl_regex_test IMPLEMENTATION
*----------------------------------------------------------------------*
CLASS cl_regex_test IMPLEMENTATION.

  METHOD check_email.

* Create the regular expression:

    CREATE OBJECT o_regex
      EXPORTING
        pattern = '^[a-zA-Z]+(([\''\,\.\- ][a-zA-Z ])?[a-zA-Z]*)*\s+<' &
                  '(\w[-._\w]*\w@\w[-._\w]*\w\.\w{2,3})>$|^(\w[-._\w]*' &
                  '\w@\w[-._\w]*\w\.\w{2,3})$'.

* Check to see if the email matches the regular expression:

    CREATE OBJECT o_matcher
      EXPORTING
        regex = o_regex
        text  = p_email.

    IF o_matcher->match( ) NE abap_true.

      MESSAGE 'Enter email address valid...' TYPE 'E'.

    ELSE.

      MESSAGE 'This is a valid email address...' TYPE 'S'.

    ENDIF.

  ENDMETHOD.                    "check_email

ENDCLASS.                    "cl_regex_test IMPLEMENTATION

************************************************************************
************************************************************************
*                                                                      *
*                           PROGRAM FLOW LOGIC                         *
*                                                                      *
************************************************************************

START-OF-SELECTION.

  DATA : ocl_regex_test TYPE REF TO cl_regex_test.

  CREATE OBJECT ocl_regex_test.

  ocl_regex_test->check_email( 'abapdn.network@mail.com' ).