четверг, 11 июля 2013 г.

1с 7.7 пример чтения текста

Текст = СоздатьОбъект("Текст");
    Текст.Открыть("F:\TODEL\врем60_1.txt");
сч=0;
    Для сч_=0 По Текст.КоличествоСтрок()/3-1 Цикл
        сч=сч_*3;
        Имя = Текст.ПолучитьСтроку(1+сч);
        Код = Текст.ПолучитьСтроку(2+сч);
        //Скл = Текст.ПолучитьСтроку(3+сч);
        Сум = Текст.ПолучитьСтроку(3+сч);
        //Кол = Текст.ПолучитьСтроку(5+сч);
       
        Если спр.НайтиПоКоду(Код)=0 Тогда
            Сообщить("Не нашли код:"+Код+" имя "+Имя);
            Продолжить;
        КонецЕсли;
        Мат = спр.ТекущийЭлемент();
        Тз12.НоваяСтрока();
        Тз12.Мат = Мат;
        Тз12.ИмяМат = Мат.Наименование;
        Тз12.Сумма = Сум;
        //Тз12.Кол = Кол;
    КонецЦикла;