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

ابزار تایید ایمیل

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

طراحی

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

یک 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

 

 

مسعود شریفی پور

از سال 88 که با برنامه نویسی آشنا شدم خیلی علاقه مند بودم یک بستر آموزشی بسازم در فضای وب و به انتشار آموزش های در این زمینه بپردازم.حالا یک تیم داریم و با قدرت رو به جلو حرکت میکنیم.

نوشته‌های مرتبط

دیدگاه‌ها

*
*

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

ما یک پرسشنامه‌ی کوچولو داریم، که قول میدیم وقتتون رو خیلی نمی‌گیره، ولی کلی به ما کمک می‌کنه، چون هم assessment مونه ,و هم شما به ما در این زمینه کمک میکنید.بزن بریم