Программирование в системе 1С Предприятие 7.7

Чтение текста


·        КоличествоСтрок() –  количество строк в тексте.

·        ПолучитьСтроку(<НомерСтроки>) –  получить строку текста по номеру

Пример. Из файла «exp_imp.txt» загружается справочник номенклатуры

Спр=СоздатьОбъект(«Справочник.Номенклатура»);

Текст = СоздатьОбъект(«Текст»);

Список = СоздатьОбъект(«СписокЗначений»);

Текст.ОткрытьФайл(«exp_imp.txt»);

Для Ном=1 По Текст.КоличествоСтрок() Цикл

Стр = Текст.ПолучитьСтроку(Ном);

         

Список.ИзСтрокиСРазделителями(Стр); // преобразуем строку

//в список значений

Если Спр.НайтиПоКоду(Список.ПолучитьЗначение(1))=0 Тогда

          Спр.Новый();

     Спр.Код= Список.ПолучитьЗначение(1);

          Спр.Наименование= Список.ПолучитьЗначение(2);

Спр.Записать();

КонецЕсли;

КонецЦикла;



Содержание раздела