0
Antoha18rus
25.02.20
✎
21:05
|
Работающий код для экспорта в csv
&НаСервере
Процедура ВыгрузитьНаСервере()
КонецПроцедуры
&НаКлиенте
Процедура Выгрузить(Команда) //кнопка
ВыгрузитьВCSV("D:\Nomenklatura.csv");
КонецПроцедуры
Процедура ВыгрузитьВCSV(имяФайлаCSV);
Разделитель = ";";
ТаблицаЗначений = Получитьданные();
Текст = СоздатьДанныеCSV(ТаблицаЗначений,разделитель);
ЗаписатьCSV(текст,имяФайлаCSV);
КонецПроцедуры
Функция Получитьданные()
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Имена.Код,
| Имена.Наименование
|ИЗ
| Справочник.Имена КАК Имена";
РезультатЗапроса = Запрос.Выполнить().Выгрузить();
Возврат РезультатЗапроса;
КонецФункции
Функция СоздатьДанныеCSV(ТаблицаЗначений,разделитель)
Текст="";
для каждого запись из ТаблицаЗначений Цикл
Текст = Текст + запись.Код + разделитель + запись.Наименование + Символы.ПС;
КонецЦикла;
Возврат текст;
КонецФункции
Процедура ЗаписатьCSV(текст,имяФайла)
кодировка = КодировкаТекста.ANSI;
ТекстовыйФайлЗапись = Новый ЗаписьТекста(имяФайла,Кодировка);
ТекстовыйФайлЗапись.ЗаписатьСтроку(текст);
ТекстовыйФайлЗапись.Закрыть();
КонецПроцедуры
|
|