منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - RegEx استعمال التحقق من بنية عنوان البريد الالكتروني

ما هي أفضل طريقة للتحقق من عنوان البريد الإلكتروني باستخدام RegEx في B4A Edittext

(26-02-20, 10:47 PM)d3vc0d كتب : [ -> ]ما هي أفضل طريقة للتحقق من عنوان البريد الإلكتروني باستخدام RegEx في B4A Edittext

https://www.b4x.com/android/forum/thread...ost-144328

كود :

Sub EditText1_TextChanged (Old As String, New As String)

    Dim  pattern As String

    pattern = "[a-z0-9!#$%&'*+/=?^_`{|}~-]+(?:\.[a-z0-9!#$%&'*+/=?^_`{|}~-]+)*@(?:[a-z0-9](?:[a-z0-9-]*[a-z0-9])?\.)+[a-z0-9](?:[a-z0-9-]*[a-z0-9])?"

    Dim Valid As Boolean

    Valid = Regex.IsMatch(pattern, New)

    If Valid = True Then

        Button1.Enabled=True

    Else

        Button1.Enabled=False

    End If

End Sub

(27-02-20, 12:56 AM)alsalamoni كتب : [ -> ]
(26-02-20, 10:47 PM)d3vc0d كتب : [ -> ]ما هي أفضل طريقة للتحقق من عنوان البريد الإلكتروني باستخدام RegEx في B4A Edittext

https://www.b4x.com/android/forum/thread...ost-144328

كود :

Sub EditText1_TextChanged (Old As String, New As String) Dim pattern As String pattern = "[a-z0-9!#$%&'*+/=?^_`{|}~-]+(?:\.[a-z0-9!#$%&'*+/=?^_`{|}~-]+)*@(?:[a-z0-9](?:[a-z0-9-]*[a-z0-9])?\.)+[a-z0-9](?:[a-z0-9-]*[a-z0-9])?" Dim Valid As Boolean Valid = Regex.IsMatch(pattern, New) If Valid = True Then Button1.Enabled=True Else Button1.Enabled=False End If End Sub

الحل :

PHP كود :

Dim  Pattern As String
        Pattern = "^\b[A-Za-z0-9._%+-]+@[A-Za-z0-9.-]+\.[A-Za-z]{2,}\b$"
      
        Dim Valid As Boolean
     
        Valid = Regex.IsMatch(Pattern , email.Text)
    
        If Valid = True Then
             
        Else
            Msgbox("عنوان البريد الالكتروني خاطئ","تنبيه")
            Return
        End If 