При работе в среде 1С:Предприятие 7.7 программисты часто сталкиваются с необходимостью потоковой обработки текстовых данных: чтением логов, формированием выгрузок или конвертацией файлов. Одной из самых загадочных проблем при использовании стандартного объекта Текст является появление «лишних» пустых строк или странных символов (пробелов) в результирующем файле. Ситуация выглядит так: мы читаем одну строку, записываем её в новый файл, а на выходе получаем текст, где каждая значащая строка отделена пустой строкой с парой пробелов.
В этой статье мы подробно разберем, почему так происходит, проанализируем внутренние механизмы работы платформы с текстовыми файлами и найдем надежные способы решения этой задачи.
Рассмотрим стандартный код, который на первый взгляд кажется абсолютно логичным:
Текст1 = СоздатьОбъект("Текст");
Текст1.Открыть(ИсходныйФайл);
Текст2 = СоздатьОбъект("Текст");
Для А = 1 По Текст1.КоличествоСтрок() Цикл
СтрокаИзФайла = Текст1.ПолучитьСтроку(А);
Текст2.ДобавитьСтроку(СтрокаИзФайла);
КонецЦикла;
Текст2.Записать(НовыйФайл);
Проблема кроется в том, как метод ПолучитьСтроку взаимодействует с символами разделителя строк. В операционных системах семейства Windows стандартным окончанием строки является пара непечатных символов: CR (Carriage Return — возврат каретки, код ASCII 13) и LF (Line Feed — перевод строки, код ASCII 10).
Когда объект Текст считывает файл, он иногда захватывает эти символы в переменную СтрокаИзФайла. Затем, при вызове метода ДобавитьСтроку, система 1С автоматически добавляет еще один стандартный разделитель строк в конец. В итоге в новом файле получается «хвост» из двух пар разделителей, что визуально отображается как лишняя пустая строка.
Самым простым и эффективным способом борьбы с «мусорными» символами является использование встроенной функции СокрЛП. Проанализируем, почему это помогает. Функция СокрЛП (сократить левые и правые пробелы) в 1С 7.7 обладает полезной особенностью: она удаляет не только обычные пробелы (ASCII 32), но и все управляющие символы в конце строки, включая символы с кодами 10 и 13.
Разберем исправленный код:
Текст1 = СоздатьОбъект("Текст");
Текст1.Открыть(ПутьКФайлу1);
Текст2 = СоздатьОбъект("Текст");
Для А = 1 По Текст1.КоличествоСтрок() Цикл
// Используем СокрЛП для очистки строки от скрытых символов переноса
Текст2.ДобавитьСтроку(СокрЛП(Текст1.ПолучитьСтроку(А)));
КонецЦикла;
Текст2.Записать(ПутьКФайлу2);
Важный нюанс: функция СокрЛП также удалит и полезные пробелы в начале и конце строки. Если для вашего формата файла (например, фиксированная ширина колонок) пробелы критичны, этот метод следует применять осторожно. В таком случае можно использовать СтрЗаменить, чтобы прицельно удалить только РазделительСтрок.
Иногда пользователи замечают, что в пустых строках появляются именно «два пробела». Выясним причину этого явления. Часто это связано с несоответствием кодировок или наличием BOM (Byte Order Mark) — специальных байтов в начале файлов UTF-8, которые 1С 7.7 (ориентированная на ANSI/Windows-1251) может интерпретировать некорректно.
Если файл был сохранен в кодировке, отличной от системной, команда КодоваяСтраница(0) не всегда спасает ситуацию. Объект Текст может воспринимать остатки многобайтовых символов как пробелы. В таких случаях СокрЛП также помогает «подчистить» результат, но стратегически лучше убедиться, что исходный файл сохранен в формате ANSI.
Если ваша задача заключается не в модификации содержимого, а просто в объединении файлов или их перемещении, не обязательно использовать объект Текст. Рассмотрим более быстрые и надежные способы, которые исключают искажение структуры файла.
Использование встроенного метода КопироватьФайл:
// Синтаксис: КопироватьФайл(Источник, Приемник, ФлагПерезаписи)
// Флаг 0 - перезаписать, 1 - не перезаписывать
КопироватьФайл(ИсходныйПуть, НовыйПуть, 0);
Использование системных команд (через DOS-эмулятор):
КомандаСистемы("COPY " + ИсходныйФайл + " " + НовыйФайл);
Однако стоит помнить, что КомандаСистемы вызывает кратковременное появление черного консольного окна, что может мешать пользователю.
Для более сложных манипуляций с текстом, когда стандартный объект Текст работает медленно (на больших объемах данных) или некорректно, программисты 1С 7.7 используют COM-объекты Windows. Посмотрим на пример использования Scripting.FileSystemObject, который позволяет читать файл целиком в одну переменную, игнорируя проблемы с построчным добавлением:
ФСО = СоздатьОбъект("Scripting.FileSystemObject");
// Открываем файл для чтения (1)
ФайлИсточ = ФСО.OpenTextFile(ПутьКФайлу1, 1);
ВесьТекст = ФайлИсточ.ReadAll();
ФайлИсточ.Close();
// Создаем новый файл (True - перезаписать)
ФайлПрием = ФСО.CreateTextFile(ПутьКФайлу2, -1);
ФайлПрием.Write(ВесьТекст);
ФайлПрием.Close();
Метод ReadAll() считывает файл как бинарно-текстовую сущность «как есть», что гарантирует отсутствие лишних переносов, если вы сами их не добавили.
Проанализировав поведение платформы 1С 7.7, мы можем сформулировать следующие правила работы с текстом:
Текст.ДобавитьСтроку() всегда оборачивайте получаемое значение в СокрЛП(), если только пробелы по краям строки не являются критически важными данными.КопироватьФайл(), она работает на уровне файловой системы и не вносит изменений в структуру данных.Текст будет работать крайне медленно из-за постоянного пересчета индексов строк. В таких случаях переходите на работу через FileSystemObject.Соблюдение этих простых правил позволит вам избежать большинства «детских болезней» 1С 7.7 при работе с внешними данными и обеспечит чистоту ваших текстовых файлов.