|
Как удалить строку из текстового файла в 8.2? |
☑ |
0
Kaukass
07.05.15
✎
16:55
|
Фрагмент примера из учебника Mista:
ТекстДок = СоздатьОбъект("Текст");
ТекстДок.Открыть("catalog.txt");
ТекстДок.ЗаменитьСтроку(52, "Установка оборудования......" + Стоимость);
ТекстДок.ВставитьСтроку(53, "Замена оборудования... ");
ТекстДок.УдалитьСтроку(10);
ТекстДок.ДобавитьСтроку("Конец файла");
Перед загрузкой нужно обрабатывать банковские файлы.
В 8.2 это на пашет.
В Чтении текста метода Удалить строку нету.
|
|
1
ДенисЧ
07.05.15
✎
16:55
|
Используй ТекстовыйДдокумент
|
|
2
Kaukass
07.05.15
✎
16:57
|
(1) - о.к.
|
|
3
Kaukass
07.05.15
✎
16:58
|
Из банка загружается файлик с платежками, а в нем есть строки "код=" и "код=0" Пока их не удалишь - не загрузишь документы в программу
|
|
4
Kaukass
07.05.15
✎
16:58
|
Вот и извращаюсь...
|
|
5
Torquader
07.05.15
✎
17:26
|
Самый простой способ:
Чтение=Новый ЧтениеТекста(ОбрабатываемыйФайл,...);
Запись=Новый ЗаписьТекста(ОбрабатываемыйФайл+".new",...);
Пока Истина Цикл
стр=Чтение.ПрочитатьСтроку();
Если стр=НЕОПРЕДЕЛЕНО Тогда Прервать;КонецЕсли;
Если ПроверитьСтрокуНаПравильность(стр)<>Истина Тогда Продолжить;КонецЕсли;
Запись.ЗаписатьСтроку(стр);
КонецЦикла;
Чтение.Закрыть();
Запись.Закрыть();
ПереместитьФайл(ОбрабатываемыйФайл,ОбрабатываемыйФайл+".old");
ПереместитьФайл(ОбрабатываемыйФайл+".new",ОбрабатываемыйФайл);
в функции ПроверитьСтрокуНаПравильность(стр) проверяем, оставлять строку или нет.
|
|