Переменная email - VB

Формулировка задачи:

Всем привет! Хочу реализовать одно условие - чтобы в переменной email были разрешены следующие символы - abcdefghjklmnopqrstuvwxyz1234567890-_ ну и всё что разрешено. Но не получается! Целый день сижу, разбриаюсь с email AS String, она объявлена, всё ништяк, но выдаётся ошибка. Как это грамотно записать? Чтоб ВБ6 не плевался.. И ещё - если в текстбоксе есть эта переменная, то текстбокс3 выдаёт например 1, если нет её, то и в т3 пусто. В общем, как быть с формой типа логин пароль на бэйсике?

Код к задаче: «Переменная email - VB»

textual
Dim objRegExp As Object
Set objRegExp = CreateObject("VBScript.RegExp")
objRegExp.IgnoreCase = True
objRegExp.Pattern = "^(?:[a-z0-9!#$%&'*+/=?^_`{|}~-]+" & _
                        "(?:\.[a-z0-9!#$%&'*+/=?^_`{|}~-]+)*@" & _
                        "(?:[a-z0-9](?:[a-z0-9-]*[a-z0-9])?\.)+" & _
                        "[a-z0-9](?:[a-z0-9-]*[a-z0-9])?)$"
If objRegExp.Test(email) Then
        MsgBox "Адрес правильный"
Else
        MsgBox "Адрес неправильный"
End If

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

10   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ