- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
Функция ЧекМайл(Майл)
Перем Чек;
Если Найти(Майл,"@mail.ru")<>0 Тогда
Чек = 0;
Иначе
Чек = 1;
КонецЕсли;
Возврат Чек;
КонецФункции
...
Если ЧекМайл("informatik-marazmatik@mail.ru") = 0 Тогда
Предупреждение("Ой! Что-то пошло не так!");
Предупреждение("Не беспокойтесь, это наша ошибка. Мы уже знаем о ней и примем меры к ее исправлению!");
СтатусВозврата(0);
Возврат;
КонецЕсли;
Если Вопрос("Вы действительно хотите заменить е-майл "+олдМайл+" на "+ньюМайл,0) = 1 Тогда
Если Вопрос("Будет заменен старый е-майл "+олдМайл+" на новый "+ньюМайл+". Продолжить?",0) = 1 Тогда
олдМайл = ньюМайл;
КонецЕсли;
КонецЕсли;
КонецПроцедуры
олдМайл = "informatik-marazmatik@mail.ru";
ньюМайл = "informatik-marazmatik@yandex.ru";
ЧенджМайл(олдМайл,ньюМайл);
2) Самый строгий валидатор электронного адреса: e-mail должен оканчиваться на @mail.ru
3) Даже тест-юнит написан, все не просто так.
Стоп, если подстрока находится, то она возвращает ноль? Меня вот это <>0 в 5й строке пугает.
Если Найти(Майл,"@mail.ru")<>0 Тогда
Чек = 0;
Иначе
Чек = 1;
КонецЕсли;
Возврат Чек;
Учитесь, люди, учитесь, вот как надо из одной строчки делать 15!
Странный у меня ассоциативный ряд конечно, но эта строчка мне говорит что кто-то СПЕР ЧЕК.