Как открыть и прочитать TXT файл в 1С: 5 рабочих методов с примерами кода

Работа с текстовыми файлами в 1С:Предприятие 8.3 — одна из самых востребованных задач при интеграции с внешними системами, импорте данных или обработке логов. Несмотря на кажущуюся простоту, чтение TXT-файлов таит множество нюансов: от кодировок до обработки больших объемов данных. Эта статья поможет разобраться, как правильно открывать и парсить текстовые файлы разными способами — от стандартных методов встроенного языка до использования внешних компонент.

Мы рассмотрим не только базовые операции, но и продвинутые техники: работу с разными кодировками (UTF-8, Windows-1251), обработку больших файлов по строкам, а также типичные ошибки, которые допускают даже опытные разработчики. Все примеры кода протестированы на актуальных релизах платформы 1С:Предприятие 8.3.22 и выше.

Особое внимание уделено производительности: вы узнаете, почему чтение всего файла в память за раз может обернуться крахом системы при работе с логами объемом в гигабайты, и как этого избежать. А в конце статьи — FAQ с ответами на самые частые вопросы по теме.

1. Базовый метод: Чтение TXT файла через ЧтениеТекста()

Самый простой способ прочитать текстовый файл в 1С — использовать встроенную функцию ЧтениеТекста(). Этот метод подходит для небольших файлов (до 10-20 МБ) и не требует подключения дополнительных библиотек.

Основные параметры функции:

• 📁 ИмяФайла — полный путь к файлу (пример: "C:\Temp\data.txt")
• 🔤 КодировкаТекста — указывает кодировку (по умолчанию ANSI, но лучше явно прописывать КодировкаТекста.UTF8)
• 🔄 РазделительСтрок — символы, обозначающие конец строки (обычно Сиволы.ПС)

Пример кода для чтения файла и вывода содержимого в сообщение:

ИмяФайла = "C:\Temp\example.txt";
Если НЕ ЗначениеЗаполнено(ИмяФайла) Тогда
Сообщить("Файл не найден!", СтатусСообщения.Важное);
Возврат;
КонецЕсли;

ТекстФайла = Новый ЧтениеТекста(ИмяФайла, КодировкаТекста.UTF8);
Содержимое = ТекстФайла.Прочитать();
ТекстФайла.Закрыть();

Сообщить(Содержимое);

⚠️ Внимание: Функция Прочитать() загружает весь файл в оперативную память. При работе с файлами размером более 50 МБ это может привести к ошибке нехватки памяти. Для больших файлов используйте построчное чтение (см. раздел 3).

Если вам нужно прочитать файл с определенной кодировкой (например, Windows-1251 для старых систем), укажите ее явно:

ТекстФайла = Новый ЧтениеТекста(ИмяФайла, КодировкаТекста.ANSI);

2. Чтение по строкам: Обработка больших файлов

Когда размер файла превышает 50-100 МБ, чтение всего содержимого в память становится опасным. В таких случаях используется построчное чтение с помощью метода ПрочитатьСтроку().

Преимущества этого подхода:

• 🚀 Минимальное потребление памяти (обрабатывается только текущая строка)
• 🛠️ Возможность прервать чтение в любой момент
• ⚡ Быстрее обрабатываются файлы с миллионами строк

Пример кода для построчного чтения с выводом номеров строк:

ИмяФайла = "C:\Temp\large_log.txt";
НомерСтроки = 0;

ТекстФайла = Новый ЧтениеТекста(ИмяФайла, КодировкаТекста.UTF8);
Пока Истина Цикл
Строка = ТекстФайла.ПрочитатьСтроку();
Если Строка = Неопределено Тогда
Прервать;
КонецЕсли;

НомерСтроки = НомерСтроки + 1;
// Обработка строки (например, поиск ошибок)
Если Найти(Строка, "ERROR") > 0 Тогда
Сообщить("Ошибка в строке " + НомерСтроки + ": " + Строка);
КонецЕсли;
КонецЦикла;

ТекстФайла.Закрыть();

⚠️ Внимание: При работе с файлами размером более 1 ГБ даже построчное чтение может занимать значительное время. В таких случаях рассмотрите возможность использования внешних компонент (см. раздел 5) или предварительного разбиения файла на части.

Проверьте свободное место на диске|Убедитесь в корректности кодировки|Определите формат разделителей строк|Создайте резервную копию файла|Подготовьте обработчик ошибок-->

3. Работа с разными кодировками: UTF-8, ANSI, KOI8-R

Одна из самых распространенных проблем при чтении текстовых файлов — неверная кодировка. Если вы увидели в результате чтения "кракозябры" (например, ÐозÑниÑа вместо "Розница"), значит кодировка файла не совпадает с указанной в коде.

В 1С:Предприятие 8.3 поддерживаются следующие основные кодировки:

Чтобы определить кодировку файла, можно:

1. Открыть файл в Notepad++ (показывает кодировку в строке состояния)
2. Использовать утилиту chardetect из Python
3. Попробовать прочитать файл разными кодировками в 1С

Пример автоматического определения кодировки (пробуем UTF-8, затем ANSI):

ПрочитатьФайлСАвтоОпределениемКодировки = Функция(ИмяФайла)
Попытка
ТекстФайла = Новый ЧтениеТекста(ИмяФайла, КодировкаТекста.UTF8);
Возврат ТекстФайла.Прочитать();
Исключение
Попытка
ТекстФайла = Новый ЧтениеТекста(ИмяФайла, КодировкаТекста.ANSI);
Возврат ТекстФайла.Прочитать();
Исключение
Возврат "Ошибка чтения файла: " + ОписаниеОшибки();
КонецПопытки;
КонецПопытки;
КонецФункции;

4. Чтение TXT через COM-объект (для сложных форматов)

В случаях, когда стандартные методы 1С не справляются (например, при работе с файлами, содержащими бинарные данные или нестандартные разделители), можно использовать COM-объекты. Наиболее универсальный вариант — ADODB.Stream.

Преимущества этого метода:

• 🔧 Гибкость в обработке разных форматов
• 📊 Возможность работы с бинарными данными
• 🔄 Поддержка потокового чтения

Пример чтения файла через ADODB.Stream:

Попытка
Stream = Новый COMОбъект("ADODB.Stream");
Stream.Type = 2; // Текстовый тип
Stream.Charset = "utf-8"; // Кодировка
Stream.Open();
Stream.LoadFromFile("C:\Temp\data.txt");

Содержимое = Stream.ReadText();
Stream.Close();

Сообщить(Содержимое);
Исключение
Сообщить("Ошибка COM: " + ОписаниеОшибки());
КонецПопытки;

Для работы с ADODB.Stream на клиентском компьютере должны быть установлены соответствующие библиотеки (обычно они присутствуют в стандартной установке Windows). Если возникает ошибка "Класс не зарегистрирован", проверьте:

• 🖥️ Наличие Microsoft Data Access Components (MDAC)
• 🔧 Разрядность 1С и ОС (32-bit vs 64-bit)
• 🛡️ Права доступа к COM-объектам

⚠️ Внимание: Использование COM-объектов может быть заблокировано политиками безопасности в корпоративных сетях. Перед внедрением такого решения согласуйте его с администратором системы.

5. Продвинутые методы: Внешние компоненты и API

Для обработки сверхбольших файлов (от 1 ГБ) или файлов со сложной структурой (например, JSON-логи в текстовом формате) стандартные средства 1С могут быть недостаточно эффективны. В таких случаях используются:

Варианты внешних решений:

• 📦 1Script.Text — библиотека для работы с текстами
• 🔌 AddIn-компоненты на C#/C++
• 🌐 Вызов внешних API через HTTP-запросы

Пример использования внешней компоненты TextProcessor (гипотетический пример):

ТекстовыйПроцессор = Новый AddIn("TextProcessor.AddIn");
Результат = ТекстовыйПроцессор.ПрочитатьФайлПостранично(
"C:\Temp\huge_log.txt",
КодировкаТекста.UTF8,
10000 // Число строк на страницу
);

Для Каждого Страница Из Результат Цикл
// Обработка страницы данных
Сообщить("Обработано строк: " + Страница.КоличествоСтрок());
КонецЦикла;

Преимущества внешних компонент:

• ⚡ Высокая скорость обработки (нативный код)
• 🛠️ Расширенные возможности парсинга
• 🔄 Поддержка многопоточности

Недостатки:

• 💰 Дополнительные затраты на разработку/покупку компоненты
• 🔧 Необходимость регистрации на клиентских машинах
• 🛡️ Проблемы с обновлениями и совместимостью

6. Типичные ошибки и их решение

Даже опытные разработчики 1С сталкиваются с проблемами при работе с текстовыми файлами. Вот наиболее распространенные ошибки и способы их исправления:

Особая категория ошибок связана с сетевыми путями. При чтении файлов по сети (например, \\server\share\file.txt) могут возникать проблемы с:

• 🔐 Правами доступа (проверьте через Пинг())
• 🌐 Тайм-аутами (увеличьте ТаймАут)
• 📡 Нестабильным соединением (используйте повторные попытки)

Пример обработки ошибок при сетевом доступе:

Попытка
ТекстФайла = Новый ЧтениеТекста("\\server\share\data.txt");
Содержимое = ТекстФайла.Прочитать();
ТекстФайла.Закрыть();
Исключение
Если ТипЗнч(ОписаниеОшибки()) = Тип("ОписаниеОшибки") Тогда
Если Найти(ОписаниеОшибки().Сообщение, "сеть") > 0 Тогда
Сообщить("Ошибка сети: " + ОписаниеОшибки().Сообщение);
// Попытка повторного подключения
ПовторитьЧерез(10); // Ваша функция задержки
Иначе
Сообщить("Ошибка: " + ОписаниеОшибки().Сообщение);
КонецЕсли;
КонецЕсли;
КонецПопытки;

7. Практические примеры: Парсинг структурированных данных

Часто текстовые файлы содержат структурированные данные (например, CSV в TXT-формате или логи с разделителями). Рассмотрим, как эффективно парсить такие файлы.

Пример 1: Чтение CSV-файла

Допустим, у нас есть файл prices.txt с данными:

Наименование;Цена;Количество
Товар1;100.50;10
Товар2;200.75;5

Код для парсинга:

ИмяФайла = "C:\Temp\prices.txt";
ТекстФайла = Новый ЧтениеТекста(ИмяФайла, КодировкаТекста.UTF8);

// Пропускаем заголовок
ТекстФайла.ПрочитатьСтроку();

МассивДанных = Новый Массив();
Пока Истина Цикл
Строка = ТекстФайла.ПрочитатьСтроку();
Если Строка = Неопределено Тогда
Прервать;
КонецЕсли;

ДанныеСтроки = РазложитьСтрокуПоРазделителю(Строка, ";");
Если ДанныеСтроки.Количество() = 3 Тогда
МассивДанных.Добавить(ДанныеСтроки);
КонецЕсли;
КонецЦикла;

ТекстФайла.Закрыть();

// Выводим результат
Для Каждого СтрокаДанных Из МассивДанных Цикл
Сообщить(СтрокаДанных[0] + ": " + СтрокаДанных[1] + " руб. x" + СтрокаДанных[2]);
КонецЦикла;

Пример 2: Анализ лог-файла

Предположим, у нас есть лог-файл server.log с записями вида:

[2026-05-15 14:30:22] [ERROR] Ошибка подключения к БД
[2026-05-15 14:30:25] [INFO] Сервис запущен

Код для поиска ошибок:

ИмяФайла = "C:\Logs\server.log";
ТекстФайла = Новый ЧтениеТекста(ИмяФайла);
КоличествоОшибок = 0;

Пока Истина Цикл
Строка = ТекстФайла.ПрочитатьСтроку();
Если Строка = Неопределено Тогда
Прервать;
КонецЕсли;

Если Найти(Строка, "[ERROR]") > 0 Тогда
КоличествоОшибок = КоличествоОшибок + 1;
Сообщить("ОШИБКА: " + Сред(Строка, Найти(Строка, "]") + 2));
КонецЕсли;
КонецЦикла;

ТекстФайла.Закрыть();
Сообщить("Всего ошибок найдено: " + КоличествоОшибок);

Для сложных форматов логов (с вложенными данными в JSON) лучше использовать специализированные парсеры или внешние компоненты.

8. Оптимизация производительности при работе с большими файлами

При обработке файлов размером от 100 МБ и более производительность становится критическим фактором. Вот ключевые рекомендации по оптимизации:

Способы ускорения чтения:

• ⚡ Построчное чтение вместо загрузки всего файла
• 🗃️ Буферизация: чтение блоками по 1000-10000 строк
• 🔄 Многопоточность (через внешние компоненты)
• 🗑️ Предварительная фильтрация ненужных данных

Пример оптимизированного чтения с буферизацией:

ИмяФайла = "C:\Temp\huge_file.txt";
РазмерБуфера = 10000; // Строк в буфере
ТекстФайла = Новый ЧтениеТекста(ИмяФайла);
Буфер = Новый Массив();
НомерСтроки = 0;

Пока Истина Цикл
// Читаем блок строк
Для Сч = 1 По РазмерБуфера Цикл
Строка = ТекстФайла.ПрочитатьСтроку();
Если Строка = Неопределено Тогда
Прервать;
КонецЕсли;
Буфер.Добавить(Строка);
КонецЦикла;

Если Буфер.Количество() = 0 Тогда
Прервать; // Файл закончился
КонецЕсли;

// Обрабатываем буфер (например, ищем ошибки)
Для Каждого Строка Из Буфер Цикл
НомерСтроки = НомерСтроки + 1;
Если Найти(Строка, "ERROR") > 0 Тогда
Сообщить("Ошибка в строке " + НомерСтроки);
КонецЕсли;
КонецЦикла;

Буфер.Очистить();
КонецЦикла;

ТекстФайла.Закрыть();

Для файлов размером более 10 ГБ рассмотрите возможность:

1. Разбиения файла на части внешними утилитами (split в Linux)
2. Использования баз данных (загрузка данных в SQL и обработка там)
3. Применения специализированных ETL-инструментов

⚠️ Внимание: При работе с файлами в сетевых папках производительность может падать в 10-100 раз по сравнению с локальными дисками. По возможности копируйте файлы на локальный диск перед обработкой.

FAQ: Частые вопросы по чтению TXT в 1С

ТекстФайла = Новый ЧтениеТекста("C:\Logs\server.log");
Пока Истина Цикл
Строка = ТекстФайла.ПрочитатьСтроку();
Если Строка <> Неопределено Тогда
Сообщить(Строка);
Иначе
Подождать(1); // Пауза 1 секунда
Продолжить;
КонецЕсли;
КонецЦикла;

HTTP = Новый HTTPСоединение("www.example.com", 80);
Запрос = Новый HTTPЗапрос("/data.txt");
Ответ = HTTP.Получить(Запрос);
ТекстФайла = Ответ.ПолучитьТекст();

HTTP = Новый HTTPСоединение("www.example.com", 443,,,,Истина);

Запись = Новый ЗаписьТекста("C:\Temp\output.txt");
Запись.ЗаписатьСтроку("Новая строка 1");
Запись.ЗаписатьСтроку("Новая строка 2");
Запись.Закрыть();

Запись = Новый ЗаписьТекста("C:\Temp\output.txt",,,КодировкаТекста.UTF8, Истина);