Процедура Сформировать()
Спр=СоздатьОбъект("Справочник.Контрагенты");
Текст=СоздатьОбъект("Текст");
Список=СоздатьОбъект("СписокЗначений");
Текст.Открыть("C:\Program Files\1Cv77\Бух\Контрагенты.txt");
Для Ном=1 По Текст.КоличествоСтрок() Цикл
Стр=Текст.ПолучитьСтроку(Ном);
Список.ИзСтрокиСРазделителями(Стр);
Если Спр.НайтиПоКоду(Список.ПолучитьЗначение(1))=0 Тогда
Спр.Новый();
Спр.Код=Список.ПолучитьЗначение(1);
Спр.Наименование=Список.ПолучитьЗначение(2);
Спр.ЛСчет=Список.ПолучитьЗначение(3);
Спр.ПолнНаименование=Список.ПолучитьЗначение(4);
КонецЕсли;
КонецЦикла;
Спр.Записать();
Сообщить ("Готово!");
КонецПроцедуры
Пользуйтесь тегами