Проверка правильности e-mail`а

[Decaz]

Напишите пожалуйста код, при котором при нажатии кнопки Command1 будет произведена проверка содержимого текстового поля Text1.Text на правильность заполнения , то есть прописан знак '@', домен .ru, например и т.д.

[_Мика_]

if instr(text1,"@")="" then
msgbox "..."
endif

[Decaz]

хм...чё-то не понятно...попробовал код - сообщение вообще не вылезает... можно код поподробнее?

[GM]

if instr(text1,"@")="" then

Вообще-то, instr возвращает Long

Я бы юзал Like

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

If text1.text Like "*?@?*.ru" Then
MsgBox "True"
End If


[gaidar]

И через OR ".com", ".org", как минимум надо. По хорошему - надо бы запрос на сервер кидать - существует ли такой пользователь там. Но это сложнее сделать, и практически всегда бесполезно.

[ANDLL]

Проверяй на соответствие какому-нибудь регулярному выражению, например "[A-Za-z0-9-_']@[A-Za-z0-9-_.]".
2gaidar:mail-серверы не поддерживают возможность узнать, есть ли у них какой-то конкретный пользователь. По вполне понятным причинам.

[tyomitch]

mail-серверы не поддерживают возможность узнать, есть ли у них какой-то конкретный пользователь. По вполне понятным причинам.

Такая возможность в SMTP заложена. Включать её или отключать - на совести каждого конкретного админа.

[ANDLL]

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

[tyomitch]

Ну почему же так, в какой-нибудь большой корпоративной сети, закрытой от Инета - вполне нормальный способ избежать расхода трафика на квитки "адресат выбыл".

[RayShade]

tyomitch

А что, в локалке, трафик тоже платный?

[tyomitch]

Нет, но тоже ограниченный. И явно его можно пустить на более полезные нужны, чем передача квитков.

[Decaz]

Спасибо всем за помощь, я подобрал оптимальный код:

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

If Text6.Text Like "*?@?*.*?" Then...

[RayShade]

tyomitch

Да ладно, тебе ограниченный.

Только если локалка, на 1мбпс

[tyomitch]

2RayShade: http://blogs.msdn.com/oldnewthing/archi ... 16846.aspx

[IvanTheTerrible]

2Decaz

Попробуй в поиске "ActiveX Email Address Verification v1.2" на www.planet-source-code.com

[RayShade]

tyomitch

Ну и?

Про ограниченность трафика там нет ничего. Единственное что про него скзано как раз - это что, на 100% загрузить сеть ОЧЕНЬ трудно.

[tyomitch]

Там же говорят, что уже при 35% загрузке дофигища коллизий.
И что этот уровень загрузки, когда дофигища коллизий, реально встречается в корпоративных сетях.

Т.е. я это про то, что тормозов ненужный трафик добавить реально может.

[RayShade]

tyomitch

Да, сколько его там будет, ненужного трафика то.

Я измеряю трафик, в процентах загрузки ширины канала в единицу времени.

Ну, загрузка будет не 35% а 37%. Разница? И потом, сеть размера MS овской - это еще поискать надо.

[IvanTheTerrible]

2RayShade:
"Настоящий программист не поленится написать на ассемблере 10-страничную процедуру, позволяющую сэкономить 10 наносекунд в однократно встречающемся в программе цикле."

[RayShade]

IvanTheTerrible

Программист имеет такое же отношение к расматриваемому вопросу, как я - к президенту США

[IvanTheTerrible]

IvanTheTerrible
Программист имеет такое же отношение к расматриваемому вопросу, как я - к президенту США

Во-во... И примерно такое же, как использование описанных выше подходов для минимизации объема трафика в локальной сети.

[RayShade]

IvanTheTerrible

Точно

Дискуссия ушла в сторону И превращается в поток флейма

[IvanTheTerrible]

Спасибо всем за помощь, я подобрал оптимальный код:

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

If Text6.Text Like "*?@?*.*?" Then...

Хороший "оптимальный" код
Например, такой email "№-`@@@@....^.^.ru@" он распознает, как ПРАВИЛЬНЫЙ.

[Twister]

tyomitch
Ну и?
Про ограниченность трафика там нет ничего. Единственное что про него скзано как раз - это что, на 100% загрузить сеть ОЧЕНЬ трудно.

RayShade, при всем уважении... Кажись не такое это и сложное дело. Достаточно лишь отправить пакет (весом всего 50-100 килобайт) на broadcast-IP (адрес широковещательной рассылки) на 138 или 139 порт. Сеть "потонет" моментом - поможет лишь перезапуск всех компов сети.