- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
Функция ЧекМайл(Майл)
Перем Чек;
Если Найти(Майл,"@mail.ru")<>0 Тогда
Чек = 0;
Иначе
Чек = 1;
КонецЕсли;
Возврат Чек;
КонецФункции
...
Если ЧекМайл("[email protected]") = 0 Тогда
Предупреждение("Ой! Что-то пошло не так!");
Предупреждение("Не беспокойтесь, это наша ошибка. Мы уже знаем о ней и примем меры к ее исправлению!");
СтатусВозврата(0);
Возврат;
КонецЕсли;
informatikmarazmatik 16.05.2012 17:59 # 0
informatikmarazmatik 16.05.2012 18:13 # +1
Если Вопрос("Вы действительно хотите заменить е-майл "+олдМайл+" на "+ньюМайл,0) = 1 Тогда
Если Вопрос("Будет заменен старый е-майл "+олдМайл+" на новый "+ньюМайл+". Продолжить?",0) = 1 Тогда
олдМайл = ньюМайл;
КонецЕсли;
КонецЕсли;
КонецПроцедуры
олдМайл = "[email protected]";
ньюМайл = "[email protected]";
ЧенджМайл(олдМайл,ньюМайл);
eth0 16.05.2012 19:49 # 0
informatikmarazmatik 16.05.2012 19:57 # 0
Steve_Brown 17.05.2012 10:10 # 0
2) Самый строгий валидатор электронного адреса: e-mail должен оканчиваться на @mail.ru
3) Даже тест-юнит написан, все не просто так.
TarasB 17.05.2012 10:27 # 0
Стоп, если подстрока находится, то она возвращает ноль? Меня вот это <>0 в 5й строке пугает.
TarasB 17.05.2012 10:28 # 0
Если Найти(Майл,"@mail.ru")<>0 Тогда
Чек = 0;
Иначе
Чек = 1;
КонецЕсли;
Возврат Чек;
Учитесь, люди, учитесь, вот как надо из одной строчки делать 15!
TarasB 17.05.2012 10:30 # 0
TheHamstertamer 29.05.2012 10:33 # 0
Странный у меня ассоциативный ряд конечно, но эта строчка мне говорит что кто-то СПЕР ЧЕК.
guest 09.06.2012 10:13 # 0