helpf.pro
Регистрация
 0 
Распечатать

1С 8.x : Проверка на корректность адреса Электронной Почты, 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");
Разместил:   Версии: | 7.x | 8.x | 8.2 УП |  Дата:   Прочитано: 12455
 0 
Распечатать
Возможно, вас также заинтересует
Двухсторонний обмен с 1C – WEB вариант решения через XML файл 0
В 1с пишется следующая процедура: // Автор elena777 Процедура 1с_обмен_с_WEB() //отдает файл на сайт и забирает ответ СтруктураАдреса= ЭлектронныеДокументы.РазобратьАдрес(" http://site.ru/index.php" ); ОбменПорт = СтруктураАдреса.HTTPПорт; ...
Доступен ли сервер? Проверка Ping 0
// Функция возвращает результат пинга указанного IPАдреса Функция ping(IPАдрес) objShell = Новый COMОбъект(" WScript.Shell" ) ; objScriptExec = objShell.Exec(" ping.exe -n 1 " + IPАдрес) ; strPingResults = НРег(objScriptExec.StdOut.ReadAll());
Загрузить данные в 1с из текстового файла с разделителями 1
В этой статье я расскажу, как загружать данные в 1с 8 из простейших текстовых файлов с разделителями. Обычно они имеют расширение csv (Comma-Separated Values). Т. е. название подразумевает, что в каждой строке такого текстового файла...
Использование программы rundll32.exe в 1С 1
Программа rundll32.exe входит в стандартную поставку всех операционных систем семейства Windows и позволяет выполнять различные функции, описанные в библиотеках, драйверах или ActiveX-объектах, как будто они выполняются из...
Как задать настройки прокси сервера в 1С:Предприятии 8 5
Настройки прокси сервера 1С:Предприятие 8 берет из Internet Explorer`а. Но вы также можете назначить их вручную, например, если ваш прокси сервер требует авторизации. Формат файла настройки прокси по умолчанию inetcfg.xml Файл ...
Посмотреть все результаты поиска похожих
Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.