+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الاقسام الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=74)
+--- قسم : قسم برمجة وتطوير تطبيقات الأندرويد (http://vb4arb.com/vb/forumdisplay.php?fid=75)
+---- قسم : basic 4 android (http://vb4arb.com/vb/forumdisplay.php?fid=199)
+---- الموضوع : [سؤال] RegEx استعمال التحقق من بنية عنوان البريد الالكتروني (/showthread.php?tid=33570)
RegEx استعمال التحقق من بنية عنوان البريد الالكتروني - d3vc0d - 26-02-20
ما هي أفضل طريقة للتحقق من عنوان البريد الإلكتروني باستخدام RegEx في B4A Edittext
RE: RegEx استعمال التحقق من بنية عنوان البريد الالكتروني - alsalamoni - 27-02-20
(26-02-20, 10:47 PM)d3vc0d كتب : ما هي أفضل طريقة للتحقق من عنوان البريد الإلكتروني باستخدام RegEx في B4A Edittext
https://www.b4x.com/android/forum/threads/code-fore-edittext-box-verifying-email-address.24921/post-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 SubRE: RegEx استعمال التحقق من بنية عنوان البريد الالكتروني - d3vc0d - 27-02-20
(27-02-20, 12:56 AM)alsalamoni كتب :(26-02-20, 10:47 PM)d3vc0d كتب : ما هي أفضل طريقة للتحقق من عنوان البريد الإلكتروني باستخدام RegEx في B4A Edittext
https://www.b4x.com/android/forum/threads/code-fore-edittext-box-verifying-email-address.24921/post-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