Загрузка текстовых файлов в 1С — это автоматическое чтение данных из текстовых файлов и их перенос в базу 1С. В статье будет описан процесс загрузки файла с акцентом на практическое применение для решения задач.

Данный процесс позволяет эффективно импортировать данные из внешних источников, таких как отчетные документы, показания приборов или списки товаров. Данная статья будет особенно полезна тем, кто работает с такими конфигурациями 1С, как «Управление торговлей», «Зарплата и управление персоналом» или «ERP Управление предприятием», где требуется регулярное обновление информации и автоматизация ввода данных. Загрузка данных из текстовых файлов помогает сократить время на ручной ввод, минимизировать вероятность ошибок и оптимизировать рабочие процессы.

В данной статье будет подробно рассмотрен процесс загрузки текстовых файлов в 1С, включая выбор файла, чтение данных и их обработку.

1.    Выбор файла для загрузки

Рассмотрим загрузку текстового файла на примере конкретной задачи, где нужно загрузить данные в документ из текстового файла с показателями температуры за несколько дней.

Сначала нужно выбрать файл, для этого используем диалоговое окно для выбора текстового файла, содержащего данные о погоде. Это позволяет пользователю интуитивно выбрать нужный файл без необходимости указывать его путь вручную.

В процедуре ЗаполнитьПогоду создается объект ДиалогВыбораФайла, который настраивается для открытия текстовых файлов. Мы задаем фильтр, чтобы пользователь мог видеть только файлы с расширением .txt, чтобы пользователь не мог выбрать неподходящие файлы.

После того как файл выбран, необходимо передать его в процедуру ЧтениеФайла, где начинается процесс чтения и обработки данных. Если файл не был выбран, выводим предупреждение пользователю в сообщении.

&НаКлиенте

Процедура ЗаполнитьПогоду(Команда)

Режим = РежимДиалогаВыбораФайла.Открытие;

ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим);

Фильтр = НСтр("ru = 'Текст'; en = 'Text'")

    + "(*.txt)|*.txt";

ДиалогОткрытияФайла.Фильтр = Фильтр;

ДиалогОткрытияФайла.МножественныйВыбор = Ложь;

ДиалогОткрытияФайла.Заголовок = "Выберите файл погоды";

Если ДиалогОткрытияФайла.Выбрать() Тогда

          ЧтениеФайла(ДиалогОткрытияФайла.ПолноеИмяФайла);

Иначе

    Предупреждение(НСтр("Файл не выбран!"));

КонецЕсли;

КонецПроцедуры

2.    Чтение и обработка данных из файла в системе 1C:Предприятие

Далее прочитать данные из файла. В процедуре ЧтениеФайла мы создаем объект ЧтениеТекста, который позволяет построчно считывать содержимое файла. Этот подход удобен для обработки больших объемов данных, так как мы можем обрабатывать каждую строку по мере ее чтения.

В файле данные имеют формат «дата;температура, поэтому внутри цикла мы разбиваем каждую строку на составляющие части с помощью функции СтрРазделить и преобразуем строковые значения в нужные типы данных, а именно дата и число.

Далее мы создаем фильтр для поиска записей в справочнике "Сотрудники" по дате, и если такие записи найдены, обновляем поле ТемператураВоздуха.

&НаКлиенте

Процедура ЧтениеФайла(ИмяФайла)

    ПоказанияПрибора = Новый ЧтениеТекста(ИмяФайла);

    СтрокаПоказаний = ПоказанияПрибора.ПрочитатьСтроку();

    Пока СтрокаПоказаний <> Неопределено Цикл

        Массив = СтрРазделить(СтрокаПоказаний,";");

        Дата = СтроковыеФункцииКлиентСервер.СтрокаВДату(Массив[0]);

        Температура = СтроковыеФункцииКлиентСервер.СтрокаВЧисло(Массив[1]);

        Фильтр = Новый Структура("ДатаРаботы",Дата);

        НайденныеСтроки = Объект.Сотрудники.НайтиСтроки(Фильтр);

        Для каждого Строка из НайденныеСтроки Цикл

            Строка.ТемператураВоздуха = Температура;

        КонецЦикла;

        СтрокаПоказаний = ПоказанияПрибора.ПрочитатьСтроку();  

    КонецЦикла;

    ПоказанияПрибора.Закрыть();

КонецПроцедуры

Быстрый доступ

Таким образом, загрузка текстовых файлов в 1С - это важный инструмент, который позволяет эффективно управлять большими объемами информации. Он обеспечивает простоту в выборе файлов, чтении данных и возможность обновления существующих записей. Эти процедуры способствуют автоматизации процесса, минимизируя риск ошибок и ускоряя обновление данных.

Специалист компании ООО "Кодерлайн"

Егор Егоров