Переменная 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 4 из 5
Похожие ответы