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

    • Вроде как в 7.7 нельзя вызывать исключение оператором ВызватьИсключение ниоткуда, только как из блока Исключение/КонецПопытки, что само по себе слегка упорото. Кто-то делит на ноль, кто-то делает ещё что похожее.
      Ответить
      • Я, вообще, не вижу смысла вызывать исключение в данном случае. ФС,СуществуетФайл вернула ноль - "все в сад". В этой конструкции все равно нет больше мест, что что-то "грохнется в красный фонарь".
        Ответить
        • Как это нет? А ФС.КопироватьФайл разве не вбросит исключение при ошибке?
          Ответить
          • Неа... И ФС.СоздатьКаталог() тоже не валится... И ПереименоватьФайл тоже... Приходится всегда проверять результат.
            Ответить
        • И я не вижу, но это уже системная проблема.
          Ответить
    • > СоздатьОбъект("АбсолютнаяЧушь");
      Создание объекта прошло успешно!
      Ответить
      • Попытка
            СоздатьОбъект("АбсолютнаяЧушь");
            Предупреждение("Кто-то написал абсолютную чушь!");
            СоздатьОбъект("Абракадабра");
            Предупреждение("И абракадабра тоже есть...");
            СоздатьОбъект("ПрвыволФырворфыв");
        Исключение
            ...
        КонецПопытки
        Ответить
    • Продолжаем глумиться.
      ПодключитьВнешнююКомпоненту("AbsoluteNon senseComponent.dll");
      СоздатьОбъект("АбсолютнаяЧушь");
      // WIN!!!
      Ответить
      • Мне кажется, или на 1С можно писать мемуары?
        Ответить
        • Мемуары, как и писсуары - штука языкознезависимая.
          Ответить
    • > СоздатьОбъект("АбсолютнаяЧушь");
      мне страшно
      Ответить
      • Когда мир стал старым и способность удивляться покинула людей, когда серые города устремились в дымное небо мрачными уродливыми башнями, в чьей тени никому и в голову не приходило мечтать о солнце или цветущем по весне луге, когда просвещение сорвало с Земли ее прекрасное покрывало и поэты стали петь лишь об изломанных фантомах с мутными, глядящими внутрь себя глазами, когда это наступило и детские мечты ушли навсегда, нашелся человек, который отправился в запредельные сферы искать покинувшие землю мечты.
        Ответить

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