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

1С 7.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 УП |  Дата:   Прочитано: 12514
 0 
Распечатать
Возможно, вас также заинтересует
Доступен ли сервер? Проверка Ping 0
// Функция возвращает результат пинга указанного IPАдреса Функция ping(IPАдрес) objShell = Новый COMОбъект(" WScript.Shell" ) ; objScriptExec = objShell.Exec(" ping.exe -n 1 " + IPАдрес) ; strPingResults = НРег(objScriptExec.StdOut.ReadAll());
Как переименовать файл или каталог? 0
ПереместитьФайл( ИмяФайлаИсточника , ИмяФайлаПриемника ) Параметры: ИмяФайлаИсточника (обязательный) - Полное имя файла-источника (полное исходное имя файла). ИмяФайлаПриемника (обязательный) - Полное имя...
Как связать 1C, PHP , MySQL? 2
В современном мире люди используют Интернет не только для поиска информации, но и для приобретения каких либо товаров и услуг. Поэтому организации, например имеющие статус среднего бизнеса, стараются разместить свои...
Как удалить Файл, Каталог? 0
Функция Удаляет указанные файлы. УдалитьФайлы( Путь , Маска ) Параметры: Путь (обязательный) Тип: Строка. Путь к удаляемым файлам. Маска (необязательный) Тип: Строка. Маска для выбора удаляемых файлов. В строке...
Обмен файлами с FTP сервером средствами Windows 0
// Передать файл по FTP Процедура ПередатьПоFTP(ИмяФайла,ПутьФТП=Неопределено) Экспорт Если ПутьФТП = Неопределено Тогда ТекПутьФТП = ПараметрыСеанса.FTPПуть; Иначе ТекПутьФТП = ПутьФТП; КонецЕсли; //создаем скрипт...
Посмотреть все результаты поиска похожих
Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.