*B4X* چک کردن صحت ایمیل

[Salar82 919]

سلام به همه اساتید

با کد زیر که در تمامی پلتفرم های بیسیک کار میکنه، میتونید چک کنید که آیا فرمت ایمیلی که وارد شده، درسته یا نه.

Private Sub EmailAddressCheck(email As String) As Boolean   
    Return Regex.IsMatch("^[a-zA-Z][\w\.-]*[a-zA-Z0-9]@[a-zA-Z0-9][\w\.-]*[a-zA-Z0-9]\.[a-zA-Z][a-zA-Z\.]*[a-zA-Z]$",email)
End Sub

اول ساب بالا رو به کلاستون اضاف کنید و به شکل زیر ایمیل رو چک کنید:

If EmailAddressCheck("test@b4x.de") Then
    Log("E-Mail is valid")
Else
    Log("E-Mail is not valid")
End If

 

موفق باشید