Импорт в 1С из текстовых файлов (TXT, CSV)

 Функция ПолучитьПотокЧтенияСтрок(Файл)
  Попытка
    // Используется для доступа к параметрам файлов или каталогов. 
    ТекстовыйФайл = Новый Файл(Файл);
    Если ТекстовыйФайл.Существует() = Ложь Тогда
      Сообщить("Файла "+Файл+" не существует!");
      Возврат Неопределено;
    КонецЕсли;

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

  // Возвращает текст, извлеченный из файла
  Возврат ПотокЧтенияСтрок;

КонецФункции // ПолучитьПотокЧтенияСтрок


// Исходный код функции загрузки строк в табличное поле:

Процедура ЧтениеТХТФайла(Элемент)

  // Проверка на наличие имени файла
  Если ПустаяСтрока(ИмяФайла) Тогда
    Предупреждение("Для запуска обработки необходимо предварительно выбрать файл данных.");
    Возврат;
  КонецЕсли;

  // Открыть файл, создать текстовый документ, прочитать
  ПотокСтрок = ПолучитьПотокЧтенияСтрок(ИмяФайла);

  // Очистить предыдущие значения
  ТаблицаДокумента.Очистить();
  ТаблицаДокумента.Колонки.Очистить();

  // Создать колонки табличного документа
  ТаблицаДокумента.Колонки.Добавить("Номер",,"Номер",5);
  ТаблицаДокумента.Колонки.Добавить("Артикул",,"Артикул",11);
  ТаблицаДокумента.Колонки.Добавить("Номенклатура",,"Номенклатура",25);
  ТаблицаДокумента.Колонки.Добавить("Цена",,"Цена",6);

  // Последовательное чтение строк текстового файла
  КоличествоСтрок = ПотокСтрок.КоличествоСтрок();
  Для Строка = 1 По КоличествоСтрок Цикл

    // Обработка нажатия Ctrl + Break
    ОбработкаПрерыванияПользователя();

    // Чтение строки из файла тхт / csv
    СтрокаИзФайла = ПотокСтрок.ПолучитьСтроку(Строка);

    // Разбор строки в массив, используя в качествен символа-разделителя "|"
    МассивСтрок = ОбщегоНазначения.РазложитьСтрокуВМассивПодстрок(СтрокаИзФайла,"|");

    // Добавить данные в табличную часть экранной формы
    Стр=ТаблицаДокумента.Добавить();
    Стр.Номер	 = Строка;
    Стр.Артикул = МассивСтрок[0];
    Стр.Номенклатура = МассивСтрок[1];
    Стр.Цена = МассивСтрок[2];
    // Отобразить информацию о ходе выполнения обработки
    Состояние("Обработка строки файла : "
      + "строка " + Строка + " из " + КоличествоСтрок);

  КонецЦикла;

  // Отобразить результаты загрузки в форме элемента
  ЭлементыФормы.ТаблицаДокумента.Значение = ТаблицаДокумента;
  ЭлементыФормы.ТаблицаДокумента.СоздатьКолонки();

КонецПроцедуры // ЧтениеTXTФайла(Элемент)