ADO CSV

Для Каждого Строкамассива из МассивАдресов Цикл
			
			// Временный файл
			Путь    = ПолучитьИмявременногоФайла(".csv");
			Файл    = ПолучитьИзВременногоХранилища(Строкамассива);
			Файл.Записать(Путь);
			
			Разделитель = Символ("01");//",";
			
			ИмяФайла = Путь;	
			
			// чтение файла
			ЗагружаемыйФайл = Новый ТекстовыйДокумент;
			ЗагружаемыйФайл.Прочитать(ИмяФайла, КодировкаТекста.ANSI);
			
			//шапка по умолчанию 1 строка, из первой строки делаем колонки таблицы
			Шапка = ЗагружаемыйФайл.ПолучитьСтроку(3);
			
			//раскладываем строку в массив
			МассивКолонок = РазложитьСтрокуВМассивПодстрок(Шапка,Разделитель);
			
			//генерируем колонки	
			Для Каждого ИмяКолонки Из МассивКолонок Цикл
				
				ИмяБезПробелов = СтрЗаменить(ИмяКолонки," ",""); // убираем из имени колонок пробелы
				
				Str1 = ИмяБезПробелов;
				ИмяБезПробелов = RegExp.Replace(Str1, "");
				
				ИмяБезПробелов = ИсправлениеЛатиницыНаКирилицу(ИмяБезПробелов);
				
				Если ТаблицаЗаполнения.Колонки.Найти(ИмяБезПробелов) = Неопределено Тогда
					
					Попытка 
						Заголовок	 = ИсправлениеЛатиницыНаКирилицу(ИмяКолонки);
						Имя			 = ИмяБезПробелов;
						ТипЗначения	 =  УстановитьТипКолонки(ИмяБезПробелов);
						ТаблицаЗаполнения.Колонки.Добавить(Имя, ТипЗначения, Заголовок);  
					Исключение
						сообщить(Имяколонки) ;
						сообщить(ИмяБезПробелов) ;
						Продолжить
					Конецпопытки;
					
				КонецЕсли;
				
			КонецЦикла;
			КоличествоСтрок = ЗагружаемыйФайл.КоличествоСтрок();				
			Для НомерСтроки=4 по КоличествоСтрок Цикл
				
				//Состояние("Чтение файла отчета " + Строка(НомерСтроки) + " из " + Строка(ЗагружаемыйФайл.КоличествоСтрок()));
				
				// получить строку файла с указанным номером и преобразуем её в массив
				Строка = ЗагружаемыйФайл.ПолучитьСтроку(НомерСтроки);
				МассивКолонок = РазложитьСтрокуВМассивПодстрок(Строка,Разделитель);
				НоваяСтрока = ТаблицаЗаполнения.Добавить();
				
				Если МассивКолонок.Количество() <> ТаблицаЗаполнения.Колонки.Количество() Тогда
					//Сообщить("Ошибка со строкой " + Строка);
					Продолжить; // скорее всего в тексте содержит разделитель
				КонецЕсли;
				
				Для НомерКолонки = 1 по МассивКолонок.Количество() Цикл 
					//заполняем строку значениями
					ТекущееЗначение = СокрЛП(МассивКолонок[НомерКолонки-1]);
					ИмяКолонки = ТаблицаЗаполнения.Колонки[НомерКолонки-1].Имя; 			
					НоваяСтрока[ИмяКолонки] = ПривестиЗначениекТипу(ТекущееЗначение, ИмяКолонки);			
				КонецЦикла;   		
				
				Процент	 = Цел(НомерСтроки/КоличествоСтрок*100);
				
			КонецЦикла;
			
		КонецЦикла;