| |
Этот код использует VBScript.dll
Вы можете загрузить его с www.microsoft.com/msdownload/vbscript/scripting.asp
Добавьте Microsoft VBScript Regular Expressions reference в ваш
проект (выберите Project->References, поставьте галочку
на Microsoft VBScript Regular Expressions CheckBox и нажмите OK).
RegExp - тип переменной, которую вы хотите
проверить: Email-адрес, телефонный номер, любой
другой формат.
Private Sub Form_Load()
Dim myReg As RegExp
Dim email As String
Set myReg = New RegExp
myReg.IgnoreCase = True
myReg.Pattern = "^[\w-\.]+@\w+\.\w+$"
'replace "myName@domain.ru" любым адресом
email = "myName@domain.ru"
MsgBox "Результат проверки: " & myReg.Test(email)
Unload Me
End Sub
|
|