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

    −166

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    Попытка
	ФС.КопироватьФайл(Каталог+Файл+Расширение,НовоеИмя,1);
	Если ФС.СуществуетФайл(НовоеИмя)=0 Тогда
		СоздатьОбъект("АбсолютнаяЧушь");
	КонецЕсли;
	НовоеЗначение=Сред(НовоеИмя,СтрДлина(Лев(КаталогИБ(),СтрДлина(КаталогИБ())-1)+"-MEDIA\")+1);
	НовоеСтрока=НовоеЗначение;
Исключение
	Предупреждение("Не удаётся скопировать файл!",5);
КонецПопытки;

    Классный способ вызвать исключение.

    Запостил: jerokee, 16 Мая 2013

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

    • ava eth0 16.05.2013 16:58 # 0

      Вроде как в 7.7 нельзя вызывать исключение оператором ВызватьИсключение ниоткуда, только как из блока Исключение/КонецПопытки, что само по себе слегка упорото. Кто-то делит на ноль, кто-то делает ещё что похожее.
      Ответить

      • ava jerokee 17.05.2013 05:17 # 0

        Я, вообще, не вижу смысла вызывать исключение в данном случае. ФС,СуществуетФайл вернула ноль - "все в сад". В этой конструкции все равно нет больше мест, что что-то "грохнется в красный фонарь".
        Ответить

        • ava bormand 17.05.2013 05:34 # 0

          Как это нет? А ФС.КопироватьФайл разве не вбросит исключение при ошибке?
          Ответить

          • ava jerokee 17.05.2013 05:38 # +1

            Неа... И ФС.СоздатьКаталог() тоже не валится... И ПереименоватьФайл тоже... Приходится всегда проверять результат.
            Ответить

        • ava eth0 17.05.2013 16:32 # 0

          И я не вижу, но это уже системная проблема.
          Ответить

    • ava tirinox 16.05.2013 19:22 # +1

      > СоздатьОбъект("АбсолютнаяЧушь");
      Создание объекта прошло успешно!
      Ответить

      • ava bormand 17.05.2013 05:58 # 0 

        Попытка
    СоздатьОбъект("АбсолютнаяЧушь");
    Предупреждение("Кто-то написал абсолютную чушь!");
    СоздатьОбъект("Абракадабра");
    Предупреждение("И абракадабра тоже есть...");
    СоздатьОбъект("ПрвыволФырворфыв");
Исключение
    ...
КонецПопытки
        Ответить

    • ava mrbus 17.05.2013 19:36 # −1

      Продолжаем глумиться.
      ПодключитьВнешнююКомпоненту("AbsoluteNon senseComponent.dll");
      СоздатьОбъект("АбсолютнаяЧушь");
      // WIN!!!
      Ответить

      • ava bot-minurast 17.05.2013 21:59 # 0

        Мне кажется, или на 1С можно писать мемуары?
        Ответить

        • ava mrbus 21.05.2013 23:28 # 0

          Мемуары, как и писсуары - штука языкознезависимая.
          Ответить

    • ava overloop 04.09.2014 01:09 # +4

      > СоздатьОбъект("АбсолютнаяЧушь");
      мне страшно
      Ответить

      • ava inkanus-gray 04.09.2014 03:26 # +1

        Когда мир стал старым и способность удивляться покинула людей, когда серые города устремились в дымное небо мрачными уродливыми башнями, в чьей тени никому и в голову не приходило мечтать о солнце или цветущем по весне луге, когда просвещение сорвало с Земли ее прекрасное покрывало и поэты стали петь лишь об изломанных фантомах с мутными, глядящими внутрь себя глазами, когда это наступило и детские мечты ушли навсегда, нашелся человек, который отправился в запредельные сферы искать покинувшие землю мечты.
        Ответить

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