ابزار تایید ایمیل در ویژال بیسیک دات نت

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

طراحی

این ابزار شامل :

یک textbox با نام پیش فرض textbox1 جایی است که رشته برای تایید شدن وارد میشود.

یک button با نام پیش فرض button1 که پروسه ی تایید با آن آغاز میشود.

واردات

برای تایید رشته به عنوان یک ایمیل ما از RegEx استفاده میکنیم که به واردات خودش از … احتیاج دارد.

Imports System.Text.RegularExpressions

رشته ی RegEx :

سپس بر روی کلیک button1 ما ابتدا یک رشته ی RegEx میسازیم که رشته مان را در برابر … مچ کنیم.

Dim emailRegex As New System.Text.RegularExpressions.Regex("^(?<user>[^@]+)@(?<host>.+)$")

این RegEx -Email RegEx – یک عبارت منظم ویژوال بیسیک رسمی مایکروسافت است برای اطمینان از اینکه هر رشته ای که تجزیه شده باشد از طریق این متد به درستی تایید شوند به صورت ایمیل.

 The Match : 

حال که ما رشته ی RegEx مان را برای مقابله با رشته ی خودمان داریم , میتوانیم یک متغیر Regex Match جدید – اساسا یک بولین – بسازیم که شامل این خواهد بود که آیا رشته ی تجزیه شده با regex ای که قبلا ساختیم همخوانی دارد یا خیر. رشته ی وارد شده را در textbox اول تجزیه میکنیم با استفاده از .text propertyof the .textbox1

Dim emailMatch As System.Text.RegularExpressions.Match = emailRegex.Match(TextBox1.Text)

خروجی

در نهایت میتوانیم نتیجه را به خروجی ببریم. اگر ایمیل وارد شده صحیح بود با “This email is valid” و در غیر اینصورت با “This is not a valid email” توسط msgbox نمایش دهیم.

If (emailMatch.Success) Then
MsgBox("This email is valid.")
Else : MsgBox("This is not a valid email.")
End If

سورس کامل انجام شد.

اینم از سورس کامل !

Imports System.Text.RegularExpressions

Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim emailRegex As New System.Text.RegularExpressions.Regex("^(?<user>[^@]+)@(?<host>.+)$")
Dim emailMatch As System.Text.RegularExpressions.Match = emailRegex.Match(TextBox1.Text)
If (emailMatch.Success) Then
MsgBox("This email is valid.")
Else : MsgBox("This is not a valid email.")
End If
End Sub
End Class