Переменная email - VB
Формулировка задачи:
Всем привет! Хочу реализовать одно условие - чтобы в переменной email были разрешены следующие символы - abcdefghjklmnopqrstuvwxyz1234567890-_ ну и всё что разрешено. Но не получается! Целый день сижу, разбриаюсь с email AS String, она объявлена, всё ништяк, но выдаётся ошибка. Как это грамотно записать? Чтоб ВБ6 не плевался..
И ещё - если в текстбоксе есть эта переменная, то текстбокс3 выдаёт например 1, если нет её, то и в т3 пусто. В общем, как быть с формой типа логин пароль на бэйсике?
Решение задачи: «Переменная email»
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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д