HelpF.pro

Проверка на корректность адреса Электронной Почты, e-mail

Каким образом можно организовать проверку на корректность адреса электронной почты?

Код 1C v 8.х
 Шаблон = ".+@.+\..+"; // регулярное выражение соответствует произвольному e-mail адресу

СтрокаАдреса = "ivanov@mail.com"; // проверяемый адрес
//CтрокаАдреса = ЭлементыФормы.ПолеВводаАдреса.Значение; //проверяемый адрес для элемента формы

RegExp = Новый COMОбъект("VBScript.RegExp"); // создаем объект для работы с регулярными выражениями
RegExp.MultiLine = Ложь; // истина — текст многострочный, ложь — одна строка
RegExp.Global = Истина; // истина — поиск по всей строке, ложь — до первого совпадения
RegExp.IgnoreCase = Истина; // истина — игнорировать регистр строки при поиске
RegExp.Pattern = Шаблон; // шаблон (регулярное выражение) для проверки корректности e-mail
Если RegExp.Test(СтрокаАдреса) Тогда
Сообщить("Корректный адрес");
Иначе
Сообщить("Некорректный адрес");
КонецЕсли;



Для 7.7 в вышеуказанном коде заменить создание объекта на:
Код 1C v 7.x
 RegExp = CreateObject("VBScript.RegExp");

Опубликовано на сайте: https://HelpF.pro
Прямая ссылка: https://HelpF.pro/faq82/view/982.html