Мой Kbyte.Ru
Рассылка Kbyte.Ru
Группы на Kbyte.Ru
Партнеры Kbyte.Ru
Реклама
Сделано руками
Сделано руками
> Исходные коды - Алексей Немиро -

Visual Basic 5.0/6.0 - Стандартные методы обработки текстов

Все примеры / Строки / Стандартные методы обработки текстов

Как проверить корректность E-Mail?

Автор: Алексей Немиро | добавлено: 05.03.2010, 16:54 | просмотров: 1944 (1+) | комментариев: 0 | рейтинг: *x3
Простой пример проверки корректности ввода E-Mail адреса.

Инструкции

Создайте стандартный EXE-проект и вставьте следующий код.

Код

Private Sub Form_Load()
 Dim strMail As String
rep:
 strMail = InputBox("Введите e-mail:")
 If Len(strMail) <= 0 Then MsgBox "E-Mail не указан!": GoTo rep
 If InStr(1, strMail, "@") <= 0 Or InStr(1, strMail, ".") <= 0 Then MsgBox "Указан некорректный e-mail!": GoTo rep
 MsgBox "Спасибо! Ваш e-mail - " & strMail
End Sub

Как это работает?

Функция InStr производит поиск собаки (@) и точки (.) в указанной строке, если эти символы найдены, то строка считается E-Mail адресом. Конечно, это может быть не надежно, для предварительной проверки вполне сгодится.
Обратите внимание
Язык Visual Basic 6.0 является устаревшим. Многие примеры, размещенные на нашем сайте, были созданы еще во времена Windows 98 и могут не работать в современных операционных системах.
Если у вас возникнут какие-либо проблемы или вопросы, вы можете обратиться за помощью на наш форум.
Об авторе

Алексей Немиро

Интернет-деятель. Автор многочисленных статей и переводов статей по программированию и информационным технологиям. Работы Алексея можно найти в популярных печатных изданиях компьютерной тематики. Автор проекта Kbyte.Ru.
Сейчас Алексей занимается профессиональным Web-программированием на базе технологий .NET Framework. Иногда пишет различные программки и компоненты для Windows и Android. В свободное время занимается Web-дизайном, увлекается фото- и видеосъемкой.

См. также:
Профиль автора
Алексей Немиро
Последние комментарии (всего: 0)

Добавлять комментарии могут только зарегистрированные пользователи сайта.
Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации OpenID.
Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь.


Нет комментариев...

Авторизация
 
OpenID
Зарегистрируйся и получи 10% скидку на добавление своего сайта в каталоги! Подробнее »
Поиск по сайту
Реклама
Счетчики