[RaggiTech]

كيف نبدأ فى استخدام Regular Expressions

أول شئ نضيف فضاء الاسم Name Space إلى النافذة الخاص بهذه التعبيرات وهو

كود :

Imports System.Text.RegularExpressions

مثال علي تعبير من أجل عنوان الموقع

نعرف متغير ثابت هكذا

كود :

Const Website As String = "^http://([\w-]+\.)+[\w-]+(/[\w- ./?%&=]*)?"

نكتب هذه Function

كود :

Public Shared Function ValidatewebsiteString(ByVal TheString As String) As Boolean
Try
Dim regx As New Regex(Website)
Return regx.IsMatch(TheString)
Catch exc As FormatException
Throw exc
Catch exc As Exception
Throw exc
End Try

End Function

نضع صندوق نص TextBox

ونضع هذا الكود في حدث التحقق من القيم

كود :

Private Sub TextBox1_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles TextBox1.Validating
Try
Me.TextBox1.Text = Trim(Me.TextBox1.Text)
If Not ValidatewebsiteString(Me.TextBox1.Text) Then
e.Cancel = True
MsgBox("Please Insert WebSite")
End If
Catch ex As Exception

End Try

End Sub

شغل المثال وتعرف على ما حدث