Пример:
Процедура ЗагрузкаПродукцииПоКаталогу()
Прод = СоздатьОбъект("Справочник.ГотоваяПродукция");
Если ВыбГруппа.Выбран() = 0 Тогда
Предупреждение("Ошибка! Не выбрана группа!");
Возврат;
ИначеЕсли ВыбГруппа.ЭтоГруппа() = 0 Тогда
Предупреждение("Не выбрана группа! Загрузка в корень!");
Иначе
Тов.ИспользоватьРодителя(ВыбГруппа);
КонецЕсли;
Текст = СоздатьОбъект("Текст");
Текст.Открыть(ИмяФайла);
Если Текст.КоличествоСтрок() = 0 Тогда
Предупреждение("Текст пустой!");
Возврат;
КонецЕсли;
Для Ном = 1 По Текст.КоличествоСтрок() Цикл
Стр = Текст.ПолучитьСтроку(Ном);
Поле = 0;
Пока СтрДлина(Стр) > 0 Цикл
Поле = Поле + 1;
Инд = Найти(Стр, "-");
Если Инд > 0 Тогда
Стр1 = Сред(Стр, 2, Инд - 3);
Стр = Сред(Стр, Инд + 1);
Иначе
Стр1 = Сред(Стр, 2, (СтрДлина(Стр) - 2));
Стр = "";
КонецЕсли;
Если Поле = 1 Тогда
Код = Стр1;
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший