[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