1C программист

Работа с CSV. Чтение файла CSV через ADO (без схемы) в 1С 8.3



&НаСервере

Процедура ЧтениеФайлаCSV_ADO(); //Для работы с CSV файлами больших размеров (свыше 10Mb)



   ФайлCSV="D:\import_2

8102022

.csv";



   ПутьСоединения  = "Driver={Microsoft Text Driver (*.csv)};";

   ПутьСоединения  = ПутьСоединения + "Dbq=" + ФайлCSV + ";";

   ПутьСоединения  = ПутьСоединения + "Uid=" + "Extensions=csv" + ";";



   ADOConn = Новый COMОбъект("ADODB.Connection");

   ADOConn.ConnectionString = ПутьСоединения;

   ADOConn.Open();



   ADORec = Новый COMОбъект("ADODB.Recordset");

   Попытка

       ADORec.Open("S_elect * from file#txt", ADOConn);

       Пока ADORec.EOF() = 0 Цикл



           ADOСтрока="";

           Для Счетчик = 0 По ADORec.Fields.Count-1 Цикл

               ADOСтрока =  ADOСтрока   + ";" + ADORec.Fields(Счетчик).Value;

           КонецЦикла;

           //Сообщить("Прочитана строка: "+ADOСтрока);

           ADORec.MoveNext();



       КонецЦикла;

   Исключение

       ADORec.Close();

       ADOConn.Close();



       //Предупреждение("При чтении данных в CSV произошла ошибка:"+ОписаниеОшибки());

   КонецПопытки;



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

✍️ @odin1C_rus