Запись из 1С в txt. Как удалить пустую строку?

[roofless]

Записываю в файл примерно таким образом:

Код Выделить Развернуть

Файл = Новый ТекстовыйДокумент();

Файл.ДобавитьСтроку("##@@&&");
Файл.ДобавитьСтроку("#");
Файл.ДобавитьСтроку("$$$DELETEALLWARES");
Файл.ДобавитьСтроку("$$$DELETEALLBARCODES");
Файл.ДобавитьСтроку("$$$DELETEALLASPECTREMAINS");

Для Каждого Товар Из Товары Цикл
Строка = ...
Файл.ДобавитьСтроку(Строка);
КонецЦикла;

Файл.Записать(Параметры.БазаТоваров, КодировкаТекста.ANSI); //записываем в указанный путь в указанной кодировке

После записи в файле последняя строчка пустая. Пример см во вложении
При загрузке из файла программа фронтофиса ругается именно на пустую строчку. Как её удалить?
УдалитьСтроку() не предлагать

[k_aleks80]

Правильно я понимаю, что если ручками в txt файле удалить пустую строку, тогда загрузка во фронтофис проходит успешно?

Код Выделить Развернуть


...
Строка = ...
...

Мое мнение - беда где-то здесь ...

[roofless]

Правильно я понимаю, что если ручками в txt файле удалить пустую строку, тогда загрузка во фронтофис проходит успешно?

Код Выделить Развернуть


...
Строка = ...
...

Мое мнение - беда где-то здесь ...

да, успешно.

пустую строку я не добавляю. моё мнение, что после ДобавитьСтроку() 1с автоматически переводит каретку на следующую строчку

[k_aleks80]

А в коде: Файл.КоличествоСтрок() - что дает?

Добавлено: 02 апр 2015, 10:20

В СП: смотри 3-й параметр метода Записать() ТекстовогоДокумента

[LexaK]

вот попробуйте такой код, у меня получилось, последней, пустой строки нет

Код Выделить Развернуть


Файл = Новый ТекстовыйДокумент();

Файл.ДобавитьСтроку("##@@&&");
Файл.ДобавитьСтроку("#");
Файл.ДобавитьСтроку("$$$DELETEALLWARES");
Файл.ДобавитьСтроку("$$$DELETEALLBARCODES");
Файл.ДобавитьСтроку("$$$DELETEALLASPECTREMAINS");

Для Каждого Товар Из Товары Цикл
Строка = ...
Файл.ДобавитьСтроку(Строка);
КонецЦикла;

//удаление последнего символа Перевода строки
Файл.УстановитьТекст(СтрЗаменить(Файл.ПолучитьТекст()+"~Ё",Символы.ПС+"~Ё",""));

Файл.Записать(Параметры.БазаТоваров, КодировкаТекста.ANSI); //записываем в указанный путь в указанной кодировке



[roofless]

вот попробуйте такой код, у меня получилось, последней, пустой строки нет

Код Выделить Развернуть


Файл = Новый ТекстовыйДокумент();

Файл.ДобавитьСтроку("##@@&&");
Файл.ДобавитьСтроку("#");
Файл.ДобавитьСтроку("$$$DELETEALLWARES");
Файл.ДобавитьСтроку("$$$DELETEALLBARCODES");
Файл.ДобавитьСтроку("$$$DELETEALLASPECTREMAINS");

Для Каждого Товар Из Товары Цикл
Строка = ...
Файл.ДобавитьСтроку(Строка);
КонецЦикла;

//удаление последнего символа Перевода строки
Файл.УстановитьТекст(СтрЗаменить(Файл.ПолучитьТекст()+"~Ё",Символы.ПС+"~Ё",""));

Файл.Записать(Параметры.БазаТоваров, КодировкаТекста.ANSI); //записываем в указанный путь в указанной кодировке



супер, спасибо!

[LexaK]

еще вариант
с помощью этого метода можно настроить удаление пустых строк внутри текстового файла

Код Выделить Развернуть


//удаление последнего символа Перевода строки
Файл.УстановитьТекст(СтрЗаменить(Файл.ПолучитьТекст(),Символы.ПС+Символы.ПС,Символы.ПС));


еще вариант удаления последнего символа ПС

Код Выделить Развернуть


лкТекст = Файл.ПолучитьТекст();
Файл.УстановитьТекст(Лев(лкТекст,СтрДлина(лкТекст)-1));