[d3vc0d]

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

[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

[d3vc0d]

(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