Каталог решений - Функция проверки валидности e-mail с использованием регулярных выражений RegExp (7.7)

Функция проверки валидности e-mail с использованием регулярных выражений RegExp (7.7). Данную функцию можно вставить в Глобальный модуль и пользоваться, например, при вводе или сохранении e-mail.

Исходный код функции:

//***********************************************************************
// глПроверкаEmail()
//
// Функция проверки валидности e-mail с использованием регулярных выражений RegExp.
//
// Параметры:
//      _Email — Строка с проверяемым e-mail;
//
// Возвращаемые значения:
//      0 — Некорректный e-mail;
//      1 — Корректный e-mail.
//
Функция глПроверкаEmail(_Email) Экспорт

    Если Найти(_Email, » «) > 0 Тогда // Не должно быть пробелов.
        Возврат 0;
    КонецЕсли;

    Истина = —1;
    Ложь   = 0;

    ШаблонEmail = «([a-z0-9_\-]+\.)*[a-z0-9_\-]+@([a-z0-9][a-z0-9\-]*[a-z0-9]\.)+[a-z]{2,4}»; // регулярное выражение соответствует произвольному e-mail адресу

    Попытка
        RegExp = СоздатьОбъект(«VBScript.RegExp»); // создаем объект для работы с регулярными выражениями.
    Исключение
        Сообщить(«Не удалось инициализировать VBScript.RegExp! Невозможно выполнить проверку e-mail!», «!»);
        Возврат 1;
    КонецПопытки;
    RegExp.MultiLine  = Ложь;        // истина — текст многострочный, ложь — одна строка.
    RegExp.Global     = Истина;      // истина — поиск по всей строке, ложь — до первого совпадения.
    RegExp.IgnoreCase = Истина;      // истина — игнорировать регистр строки при поиске.
    RegExp.Pattern    = ШаблонEmail; // шаблон (регулярное выражение) для проверки корректности e-mail.

    Если RegExp.Test(_Email) = Истина Тогда
        Возврат 1;
    Иначе
        Возврат 0;
    КонецЕсли;

КонецФункции //глПроверкаEmail(_Email)