CSV в 1С: как прочитать и выгрузить файл программно

Формат CSV: разделители, кавычки, кодировки

CSV — текстовый файл, где каждая строка — запись, а поля разделены символом-разделителем. Прежде чем писать код, зафиксируйте три параметра формата CSV, с которым работает 1С:

• Разделитель. По стандарту RFC 4180 — запятая. Но русский Excel сохраняет и открывает CSV с точкой с запятой «;», потому что запятая занята под десятичный разделитель. В файлах от российских контрагентов почти всегда «;».
• Кавычки. Если значение содержит разделитель, кавычку или перенос строки, его заключают в двойные кавычки, а кавычки внутри значения удваивают: "ООО ""Ромашка"";Москва" — это одно поле.
• Кодировка. Исторически — windows-1251 (cp1251). Современные выгрузки — UTF-8, причём Excel корректно определяет UTF-8 только при наличии BOM-маркера в начале файла.

Всё дальнейшее — про то, как эти три параметра учесть при чтении и выгрузке CSV-файла средствами 1С 8.3.

Чтение CSV в 1С: ЧтениеТекста и СтрРазделить

Базовый способ прочитать CSV в 1С — объект ЧтениеТекста: он читает файл построчно и не тянет весь файл в память, поэтому подходит и для больших выгрузок:

Чтение = Новый ЧтениеТекста("C:\Data\import.csv", КодировкаТекста.UTF8);

СтрокаФайла = Чтение.ПрочитатьСтроку();
Пока СтрокаФайла <> Неопределено Цикл

    Поля = СтрРазделить(СтрокаФайла, ";", Истина);
    // Поля[0] — артикул, Поля[1] — наименование, Поля[2] — количество

    СтрокаФайла = Чтение.ПрочитатьСтроку();
КонецЦикла;

Чтение.Закрыть();

ПрочитатьСтроку() возвращает Неопределено, когда файл закончился — это и есть условие выхода из цикла. Третий параметр СтрРазделить(..., Истина) сохраняет пустые поля: строка "А-100;;5" даст массив из трёх элементов, а не из двух — для CSV с пропусками это принципиально.

Для файла в cp1251 меняется только кодировка: Новый ЧтениеТекста(ИмяФайла, "windows-1251"). Если кодировку не указать, платформа попытается определить её по BOM, а без BOM возьмёт системную — на сервере под Linux это даст кракозябры на файле cp1251, поэтому кодировку лучше задавать явно.

Разбор строк с кавычками и разделителем внутри значений

СтрРазделить() ничего не знает про кавычки: строку А-100;"Кабель 3x1,5; бухта";12 она разрежет по всем «;», включая тот, что внутри наименования. Если в файле встречаются поля в кавычках, нужен посимвольный разбор с учётом состояния «внутри кавычек»:

Функция РазобратьСтрокуCSV(Знач СтрокаCSV, Знач Разделитель = ";")

    Результат  = Новый Массив;
    Значение   = "";
    ВКавычках  = Ложь;
    Длина      = СтрДлина(СтрокаCSV);

    Индекс = 1;
    Пока Индекс <= Длина Цикл
        Символ = Сред(СтрокаCSV, Индекс, 1);

        Если Символ = """" Тогда
            Если ВКавычках И Сред(СтрокаCSV, Индекс + 1, 1) = """" Тогда
                Значение = Значение + """"; // удвоенная кавычка -> одна
                Индекс = Индекс + 1;
            Иначе
                ВКавычках = НЕ ВКавычках;
            КонецЕсли;
        ИначеЕсли Символ = Разделитель И НЕ ВКавычках Тогда
            Результат.Добавить(Значение);
            Значение = "";
        Иначе
            Значение = Значение + Символ;
        КонецЕсли;

        Индекс = Индекс + 1;
    КонецЦикла;

    Результат.Добавить(Значение);
    Возврат Результат;

КонецФункции

Функция реализует правила RFC 4180: разделитель внутри кавычек — часть значения, удвоенная кавычка — экранированная кавычка. Правило выбора простое: файл гарантированно без кавычек — хватит СтрРазделить(); файл из Excel или от внешней системы — разбирайте этой функцией, Excel заключает в кавычки любое поле с разделителем внутри.

Как загрузить CSV в таблицу значений

Типовая задача — загрузить CSV в 1С в таблицу значений: первая строка файла становится колонками, остальные — строками таблицы:

Функция ЗагрузитьCSVвТаблицу(Знач ИмяФайла, Знач Разделитель = ";", Знач Кодировка = "UTF-8")

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

    // Шапка: имена колонок из первой строки
    СтрокаЗаголовка = Чтение.ПрочитатьСтроку();
    Если СтрокаЗаголовка = Неопределено Тогда
        Чтение.Закрыть();
        Возврат Таблица; // пустой файл
    КонецЕсли;

    Заголовки = РазобратьСтрокуCSV(СтрокаЗаголовка, Разделитель);
    Для Каждого Заголовок Из Заголовки Цикл
        Таблица.Колонки.Добавить(СокрЛП(Заголовок));
    КонецЦикла;

    // Данные
    СтрокаФайла = Чтение.ПрочитатьСтроку();
    Пока СтрокаФайла <> Неопределено Цикл
        Поля = РазобратьСтрокуCSV(СтрокаФайла, Разделитель);
        НоваяСтрока = Таблица.Добавить();
        Для Индекс = 0 По Мин(Поля.ВГраница(), Таблица.Колонки.Количество() - 1) Цикл
            НоваяСтрока[Индекс] = Поля[Индекс];
        КонецЦикла;
        СтрокаФайла = Чтение.ПрочитатьСтроку();
    КонецЦикла;

    Чтение.Закрыть();
    Возврат Таблица;

КонецФункции

Все значения попадают в таблицу строками — CSV не хранит типы. Числа, даты и ссылки приводите отдельным проходом: числа — через СтрЗаменить(Значение, ",", ".") и Число(), номенклатуру — поиском по артикулу или коду.

Выгрузка CSV из 1С: ЗаписьТекста

Выгрузка в CSV — зеркальная задача: объект ЗаписьТекста пишет файл построчно, поля склеиваются разделителем вручную:

Запись = Новый ЗаписьТекста("C:\Data\export.csv", "UTF-8");

Запись.ЗаписатьСтроку("Артикул;Наименование;Остаток");
Запись.ЗаписатьСтроку("А-100;Кабель ВВГ 3x1,5;120");
Запись.ЗаписатьСтроку("А-101;""Розетка ""Legrand"" белая"";35");

Запись.Закрыть();

Экранирование значений вынесите в функцию — она оборачивает в кавычки только те поля, где есть разделитель, кавычка или перенос строки:

Функция ПодготовитьЗначениеCSV(Знач Значение, Знач Разделитель = ";")
    Результат = Строка(Значение);
    Если СтрНайти(Результат, Разделитель) > 0
        Или СтрНайти(Результат, """") > 0
        Или СтрНайти(Результат, Символы.ПС) > 0 Тогда
        Результат = """" + СтрЗаменить(Результат, """", """""") + """";
    КонецЕсли;
    Возврат Результат;
КонецФункции

Про BOM: при выгрузке в кодировке "UTF-8" через конструктор с именем файла платформа сама пишет BOM-маркер в начало — именно такой файл русский Excel открывает без кракозябр. Если принимающая система требует UTF-8 без BOM, используйте вариант конструктора с потоком: Новый ЗаписьТекста(Поток, "UTF-8", , , Ложь) — пятый параметр ЗаписатьBOM отключает маркер.

Выгрузить результат запроса в CSV-файл

Практический сценарий «1С выгрузить CSV» почти всегда сводится к цепочке: запрос → таблица значений → цикл записи. Пример — остатки номенклатуры в CSV-файл с разделителем «;»:

Запрос = Новый Запрос(
    "ВЫБРАТЬ
    |   Остатки.Номенклатура.Артикул КАК Артикул,
    |   Остатки.Номенклатура.Наименование КАК Наименование,
    |   Остатки.КоличествоОстаток КАК Остаток
    |ИЗ
    |   РегистрНакопления.ТоварыНаСкладах.Остатки() КАК Остатки");

Таблица = Запрос.Выполнить().Выгрузить();

Запись = Новый ЗаписьТекста("C:\Data\ostatki.csv", "UTF-8");
Запись.ЗаписатьСтроку("Артикул;Наименование;Остаток");

Для Каждого СтрокаТаблицы Из Таблица Цикл
    Запись.ЗаписатьСтроку(
        ПодготовитьЗначениеCSV(СтрокаТаблицы.Артикул) + ";"
        + ПодготовитьЗначениеCSV(СтрокаТаблицы.Наименование) + ";"
        + Формат(СтрокаТаблицы.Остаток, "ЧРД=,; ЧГ=0"));
КонецЦикла;

Запись.Закрыть();

Обратите внимание на числовую колонку: Формат() с ЧРД=, задаёт запятую как десятичный разделитель (под русский Excel), а ЧГ=0 убирает группировку разрядов — иначе в файл попадёт неразрывный пробел внутри числа. Если файл пойдёт в систему, которая ждёт точку, ставьте ЧРД=. — но тогда разделителем полей может быть запятая.

Чтение CSV через ТекстовыйДокумент

Альтернатива для небольших файлов — объект ТекстовыйДокумент: он загружает файл целиком и даёт доступ к строкам по номеру, что удобно, когда нужен произвольный доступ (например, сначала посчитать строки, потом обработать):

Документ = Новый ТекстовыйДокумент;
Документ.Прочитать("C:\Data\import.csv", КодировкаТекста.UTF8);

Для НомерСтроки = 2 По Документ.КоличествоСтрок() Цикл // 1-я строка — шапка
    Поля = СтрРазделить(Документ.ПолучитьСтроку(НомерСтроки), ";", Истина);
    // обработка полей
КонецЦикла;

Минус — весь файл сидит в памяти: на CSV в сотни мегабайт ТекстовыйДокумент не годится, берите потоковое ЧтениеТекста. Ещё нюанс: нумерация строк здесь с единицы, а КоличествоСтрок() возвращает число строк — удобно для прогресса обработки.

Частые ошибки при работе с CSV в 1С

• Excel открывает выгрузку кракозябрами. Файл записан в UTF-8 без BOM. Лечится выгрузкой через Новый ЗаписьТекста(ИмяФайла, "UTF-8") (BOM добавится автоматически) или кодировкой "windows-1251".
• Не та кодировка при чтении. Файл в cp1251 прочитан как UTF-8 (или наоборот) — в значениях мусор. Кодировку в ЧтениеТекста задавайте явно, автоопределение работает только при наличии BOM.
• Запятая vs точка с запятой. Код ждёт «;», а файл пришёл с «,» — весь разбор превращается в одно поле. Проверяйте первую строку файла до цикла и делайте разделитель параметром, а не константой.
• СтрРазделить на файле с кавычками. Поле "Кабель 3x1,5; бухта" разрежется по «;» внутри значения. Для таких файлов — только посимвольный разбор с учётом кавычек (см. выше).
• Числа с разделителем дробной части. Число("1,5") в серверном контексте упадёт — сначала СтрЗаменить(Значение, ",", "."). В обратную сторону: Строка(1234,5) даст неразрывный пробел в группах разрядов — в CSV пишите числа через Формат(..., "ЧГ=0").
• Файл не закрыт. Забытый Закрыть() у ЗаписьТекста — и файл остаётся заблокированным до сборки мусора, а хвост буфера может не доехать до диска. Закрывайте в том же методе, где открыли.

Частые вопросы про CSV в 1С