C++ (Qt)Процедура ЗагрузкаИзТХТФайла()Спр=СоздатьОбъект("Справочник.Номенклатура");ИМФ="D:\номенклатура.txt";Док=СоздатьОбъект("Текст");Док.Открыть(ИМФ); Если Док.КоличествоСтрок()=0 ТогдаПредупреждение("Загружаемый справочник пустой!");Возврат;КонецЕсли;Для я=1 по Док.КоличествоСтрок() ЦиклСтр=Док.ПолучитьСтроку(я);Эл=Лев(стр,1);Если Эл="0" Тогда Спр.ИспользоватьРодителя(0);Спр.НоваяГруппа();Спр.Наименование=Сред(стр,3);Спр.Записать();ЭтаГр=Спр.ТекущийЭлемент();Спр.ИспользоватьРодителя(ЭтаГР);иначеСпр.Новый(); Спр.ИспользоватьРодителя(ЭтаГР);Спр.Наименование=Лев(стр,10);Спр.Записать(); КонецЕсли;КонецЦикла;КонецПроцедуры