Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > VB6 > Как найти е-майлы в тексте?


Автор: cardinal 29.12.2004, 20:29
Код
If InStr(b, "@") <> 0 _
And Len(b) - InStr(b, ".") > 1 And Len(b) - InStr(b, ".") < 4 _
And InStr(1, b, "ftp", vbTextCompare) = 0 _
And InStr(1, b, "http://", vbTextCompare) = 0 _
And InStr(1, b, "www.", vbTextCompare) = 0 _
Then MsgBox "Это точно мыло"

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)