Как прочитать CSV-файл с переносами строк внутри ячеек в 1С 7.7?

// Предположим, что файл содержит строго 10 колонок, разделенных точкой с запятой
// Количество разделителей (точек с запятой) в корректной строке должно быть ровно 9
КоличествоРазделителей = 9; 
РазделительКолонок = ";";

Т = СоздатьОбъект("Текст");
Т.Открыть(ПутьКФайлу);

ПредыдущаяЧастьСтроки = "";
ВсегоСтрокФайла = Т.КоличествоСтрок();

Для НомерСтроки = 1 По ВсегоСтрокФайла Цикл
    ТекущаяСтрока = Т.ПолучитьСтроку(НомерСтроки);
    
    // Если у нас остался фрагмент от предыдущего шага, склеиваем его с текущей строкой
    Если ПустаяСтрока(ПредыдущаяЧастьСтроки) = 0 Тогда
        ТекущаяСтрока = ПредыдущаяЧастьСтроки + Симв(13) + Симв(10) + ТекущаяСтрока;
        ПредыдущаяЧастьСтроки = "";
    КонецЕсли;
    
    // Считаем количество разделителей в получившейся строке
    ЧислоВхождений = СтрЧислоВхождений(ТекущаяСтрока, РазделительКолонок);
    
    Если ЧислоВхождений < КоличествоРазделителей Тогда
        // Разделителей не хватает, значит, ячейка перенесена на следующую строку
        ПредыдущаяЧастьСтроки = ТекущаяСтрока;
        Продолжить;
    КонецЕсли;
    
    // Строка собрана полностью, можем приступать к ее обработке
    Сообщить("Успешно прочитана строка: " + ТекущаяСтрока);
    
КонецЦикла;

Т = СоздатьОбъект("Текст");
Т.Открыть(ПутьКФайлу);

СобраннаяСтрока = "";
ВсегоСтрок = Т.КоличествоСтрок();

Для НомерСтроки = 1 По ВсегоСтрок Цикл
    ФизическаяСтрока = Т.ПолучитьСтроку(НомерСтроки);
    
    Если ПустаяСтрока(СобраннаяСтрока) = 0 Тогда
        // Соединяем фрагменты, восстанавливая физический перенос строки
        СобраннаяСтрока = СобраннаяСтрока + РазделительСтрок + ФизическаяСтрока;
    Иначе
        СобраннаяСтрока = ФизическаяСтрока;
    КонецЕсли;
    
    // Подсчитываем количество двойных кавычек в накопленном буфере
    КоличествоКавычек = СтрЧислоВхождений(СобраннаяСтрока, """");
    
    // Проверяем четность с помощью остатка от деления на 2
    Если (КоличествоКавычек % 2) <> 0 Тогда
        // Количество кавычек нечетное, продолжаем склейку в следующем шаге цикла
        Продолжить;
    КонецЕсли;
    
    // Логическая строка полностью собрана!
    ОбработатьГотовуюСтроку(СобраннаяСтрока);
    
    // Сбрасываем буфер для следующей логической строки
    СобраннаяСтрока = "";
КонецЦикла;

// 1. Определяем пути к файлу
ИмяФайлаCSV = "data.csv";
КаталогФайла = "C:\Import\";

// 2. Создаем файл конфигурации Schema.ini в целевом каталоге
ФС.УстТекКаталог(КаталогФайла);
ТекстШеmapping = СоздатьОбъект("Текст");
ТекстШеmapping.ДобавитьСтроку("[" + ИмяФайлаCSV + "]");
ТекстШеmapping.ДобавитьСтроку("Format=Delimited(;)"); // Указываем разделитель ";"
ТекстШеmapping.ДобавитьСтроку("ColNameHeader=False"); // Есть ли заголовки колонок
ТекстШеmapping.ДобавитьСтроку("CharacterSet=ANSI");
ТекстШеmapping.ДобавитьСтроку("MaxScanRows=0");       // Сканировать весь файл для определения типов
ТекстШеmapping.Записать("Schema.ini");

// 3. Подключаемся к файлу через ADO
Connection = СоздатьОбъект("ADODB.Connection");
Recordset  = СоздатьОбъект("ADODB.Recordset");

СтрокаПодключения = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + КаталогФайла + ";Extended Properties=""Text;HDR=No;FMT=Delimited""";
Connection.Open(СтрокаПодключения);

// Выполняем SQL запрос к текстовому файлу, как к таблице БД
ТекстЗапроса = "SELECT * FROM [" + ИмяФайлаCSV + "]";
Recordset.Open(ТекстЗапроса, Connection, 1, 1); // adOpenKeyset, adLockReadOnly

// 4. Обходим полученную выборку данных
Пока Recordset.EOF() = 0 Цикл
    // Драйвер автоматически склеил все переносы внутри ячеек!
    // Каждая колонка доступна через коллекцию Fields
    ЗначениеПервойКолонки = Recordset.Fields(0).Value;
    ЗначениеВторойКолонки = Recordset.Fields(1).Value;
    
    // Обработка данных...
    
    Recordset.MoveNext();
КонецЦикла;

// Закрываем соединения
Recordset.Close();
Connection.Close();

// Удаляем временный файл конфигурации
ФС.УдалитьФайл(КаталогФайла + "Schema.ini");

// Считываем весь файл в одну строковую переменную
ФСО = СоздатьОбъект("Scripting.FileSystemObject");
Файл = ФСО.OpenTextFile(ПутьКФайлу, 1); // 1 = ForReading
ВесьТекст = Файл.ReadAll();
Файл.Close();

// Инициализируем регулярные выражения
RegExp = СоздатьОбъект("VBScript.RegExp");
RegExp.Global = Истина;
RegExp.Multiline = Истина;

// Паттерн для поиска переносов внутри кавычек довольно сложен, 
// поэтому применим более простую логику конечного автомата или 
// воспользуемся готовым COM-объектом для парсинга, но если необходимо быстро заменить:
// Заменяем внутренние переходы строк. 
// Примечание: Для сложной логики регулярных выражений в 1С 7.7 
// лучше использовать посимвольный проход по строке в памяти, так как он работает мгновенно.

// Быстрый посимвольный парсер-конвертер в памяти
РазмерТекста = СтрДлина(ВесьТекст);
Результат = "";
ВнутриКавычек = 0;

Для Позиция = 1 По РазмерТекста Цикл
    Символ = Сред(ВесьТекст, Позиция, 1);
    
    Если Символ = """" Тогда
        ВнутриКавычек = 1 - ВнутриКавычек; // переключаем флаг при встрече кавычки
    КонецЕсли;
    
    Если (ВнутриКавычек = 1) Тогда
        Если (КодСимв(Символ) = 13) Или (КодСимв(Символ) = 10) Тогда
            // Заменяем перенос строки внутри кавычек на временный маркер
            Результат = Результат + "[LF]";
            Продолжить;
        КонецЕсли;
    КонецЕсли;
    
    Результат = Результат + Символ;
КонецЦикла;

Попытка
    Эксель = СоздатьОбъект("Excel.Application");
Исключение
    Предупреждение("Microsoft Excel не установлен на данном компьютере!");
    Возврат;
КонецПопытки;

// Открываем CSV-файл. Параметр Delimiter позволяет настроить разделитель колонок
Эксель.Workbooks.OpenText(ПутьКФайлу, , , 1, , , , , 1); // 1 в конце означает разделитель Semicolon (точка с запятой)
РабочийЛист = Эксель.ActiveSheet;

ВсегоСтрок = РабочийЛист.UsedRange.Rows.Count;
ВсегоКолонок = РабочийЛист.UsedRange.Columns.Count;

Для СтрокаТаблицы = 1 По ВсегоСтрок Цикл
    Для КолонкаТаблицы = 1 По ВсегоКолонок Цикл
        // Excel корректно сохранил переносы строк внутри конкретной ячейки
        ЗначениеЯчейки = РабочийЛист.Cells(СтрокаТаблицы, КолонкаТаблицы).Value;
        
        // Обрабатываем значение...
    КонецЦикла;
КонецЦикла;

// Закрываем приложение Excel без сохранения изменений
Эксель.ActiveWorkbook.Close(0);
Эксель.Quit();