1. 1C / Говнокод #10295

    −119

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    Функция ЧекМайл(Майл) 
    
	Перем Чек;
	
	Если Найти(Майл,"@mail.ru")<>0 Тогда
		
		Чек = 0; 
		
	Иначе	
		
		Чек = 1;
		
	КонецЕсли;
	
	Возврат Чек;
	
КонецФункции

...
	  Если ЧекМайл("[email protected]") = 0 Тогда
	  	 Предупреждение("Ой! Что-то пошло не так!");
	  	 Предупреждение("Не беспокойтесь, это наша ошибка. Мы уже знаем о ней и примем меры к ее исправлению!");
	  	 СтатусВозврата(0);
	  	 Возврат;
	  КонецЕсли;

    могли и предупредить ...

    Запостил: informatikmarazmatik, 16 Мая 2012

    Комментарии (10) RSS

    • ava informatikmarazmatik 16.05.2012 17:59 # 0

      как теперь без gАватарки :.(..
      Ответить

    • ava informatikmarazmatik 16.05.2012 18:13 # +1

      Процедура ЧенджМайл(олдМайл,ньюМайл)

      Если Вопрос("Вы действительно хотите заменить е-майл "+олдМайл+" на "+ньюМайл,0) = 1 Тогда

      Если Вопрос("Будет заменен старый е-майл "+олдМайл+" на новый "+ньюМайл+". Продолжить?",0) = 1 Тогда

      олдМайл = ньюМайл;

      КонецЕсли;

      КонецЕсли;

      КонецПроцедуры

      олдМайл = "[email protected]";
      ньюМайл = "[email protected]";

      ЧенджМайл(олдМайл,ньюМайл);
      Ответить

    • ava eth0 16.05.2012 19:49 # 0

      Чек по почте высылают?
      Ответить

    • ava informatikmarazmatik 16.05.2012 19:57 # 0

      не.. теперь расчетный счет пополняют, моментуммаэстро снимаю ...
      Ответить

    • ava Steve_Brown 17.05.2012 10:10 # 0

      1) Транслит наоборот
      2) Самый строгий валидатор электронного адреса: e-mail должен оканчиваться на @mail.ru
      3) Даже тест-юнит написан, все не просто так.
      Ответить

      • ava TarasB 17.05.2012 10:27 # 0

        2 - не заканчиваться, а содержать.
        Стоп, если подстрока находится, то она возвращает ноль? Меня вот это <>0 в 5й строке пугает.
        Ответить

    • ava TarasB 17.05.2012 10:28 # 0

      Перем Чек;

      Если Найти(Майл,"@mail.ru")<>0 Тогда

      Чек = 0;

      Иначе

      Чек = 1;

      КонецЕсли;

      Возврат Чек;

      Учитесь, люди, учитесь, вот как надо из одной строчки делать 15!
      Ответить

    • ava TarasB 17.05.2012 10:30 # 0

      .
      Ответить

    • ava TheHamstertamer 29.05.2012 10:33 # 0

      >перем чек
      Странный у меня ассоциативный ряд конечно, но эта строчка мне говорит что кто-то СПЕР ЧЕК.
      Ответить

    • ava guest 09.06.2012 10:13 # 0

      Т.е. любая почта на @mail.ru будет вызывать панику!
      Ответить

    Добавить комментарий