Регулярные выражения

[MOV]

Как проверить корректность ввода адреса электронной почты?
Хотелось бы с помощью регулярных выражений, с коими в VB6 ни разу не работал.
Недавно видел здесь пример в каком-то почтовом клиенет, даже выложил его в какой-то топик, но он был убит.
Поиск по регулярным выражениям дал немного

аааа стоп. нашел.
http://visualprogs.narod.ru/all/4.html
можно убить топик

[Antonariy]

Код: Выделить всё

Function IsEmail(TestStr as String) as Boolean
Dim s() as String
    s = Split(TestStr, "@")
    IsEmail = TestStr Like "*@*.*" and UBound(s) = 1
End Function

[MOV]

Блин, а как подключить VBScript Regular Expressions
у меня в referenc ее нет
где взять? )

[alibek]

Для приведенного примера регулярные выражения не нужны.

[MOV]

хорошо
берем адрес: aaaaa@eeee\.....;;+/.ru
он его съедает
все-таки с регулярными выражениями лучше
как подключить?

[alibek]

Подключи библиотеку Scripting Runtime, в ней регэкспы есть.
Но ты вначале убедись, сможешь ли ты написать такое регулярное выражение, которое безошибочно будет определять валидность адреса.

[MOV]

блин, ну нет И ее в референсах ( ни под каким видом
а думаю попробовать это:

Очень часто регулярные выражения используются для того, чтобы проверить, является ли данная строка строкой в необходимом формате. Например следующий regexp предназначен для проверки того, что строка содержит корректный e-mail адрес:

/^\w+([\.\w]+)*\w@\w((\.\w)*\w+)*\.\w{2,3}$/

а вот точно нашеоооол!!! :
Microsoft VBScript Regular expressions 5.5
теперь вставляем такую фанкшн:

Код: Выделить всё

Public Function ereg(ByVal nVal As String) As Boolean
    Static mRegExp As New VBScript_RegExp_55.RegExp
    mRegExp.Pattern = "^\w+([\.\w]+)*\w@\w((\.\w)*\w+)*\.\w{2,3}$"
    ereg = mRegExp.Test(nVal)
End Function

работает лучше, чем приведенный пример, хотя тоже имеет право на жизнь
спасибо всем

[alibek]

Только выражение я бы сменил.
Во-первых, может быть я захочу две точки в имени использовать.
А во-вторых, ящик может быть в зоне .info.

[alibek]

И в третьих. Посчитает ли парсер за слово выражение "part1-part2"?

[tyomitch]

Нет. По определению, \w -- это буква, цифра или подчёркивание.

[alibek]

Т.е. отправить письмо на адрес test@vb-streets.ru я не смогу?

[tyomitch]

Нет.
Зато с двумя точками проблемы, как мне кажется, нет.