<转>Using regex to validate email address

最新推荐文章于 2021-08-19 19:40:59 发布

huang850625

最新推荐文章于 2021-08-19 19:40:59 发布

阅读量149

点赞数

分类专栏： ABAP 文章标签： c/c++

本文链接：https://blog.csdn.net/huang850625/article/details/83726196

版权

ABAP 专栏收录该内容

56 篇文章 0 订阅

订阅专栏

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' ).