Экспорт в CSV
☑
0
Antoha18rus
25.02.20
✎
21:05
Работающий код для экспорта в csv
&НаСервере
Процедура ВыгрузитьНаСервере()
КонецПроцедуры
&НаКлиенте
Процедура Выгрузить(Команда) //кнопка
ВыгрузитьВCSV("D:\Nomenklatura.csv");
КонецПроцедуры
Процедура ВыгрузитьВCSV(имяФайлаCSV);
Разделитель = ";";
ТаблицаЗначений = Получитьданные();
Текст = СоздатьДанныеCSV(ТаблицаЗначений,разделитель);
ЗаписатьCSV(текст,имяФайлаCSV);
КонецПроцедуры
Функция Получитьданные()
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Имена.Код,
| Имена.Наименование
|ИЗ
| Справочник.Имена КАК Имена";
РезультатЗапроса = Запрос.Выполнить().Выгрузить();
Возврат РезультатЗапроса;
КонецФункции
Функция СоздатьДанныеCSV(ТаблицаЗначений,разделитель)
Текст="";
для каждого запись из ТаблицаЗначений Цикл
Текст = Текст + запись.Код + разделитель + запись.Наименование + Символы.ПС;
КонецЦикла;
Возврат текст;
КонецФункции
Процедура ЗаписатьCSV(текст,имяФайла)
кодировка = КодировкаТекста.ANSI;
ТекстовыйФайлЗапись = Новый ЗаписьТекста(имяФайла,Кодировка);
ТекстовыйФайлЗапись.ЗаписатьСтроку(текст);
ТекстовыйФайлЗапись.Закрыть();
КонецПроцедуры
1
Garykom
гуру
25.02.20
✎
21:20
(0) Что будет если в данных будет ";" ?
Или еще хуже Символ(10) и Символ(13) ?
2
acht
26.02.20
✎
09:49
(0) Ты можешь поднять настроение этому форуму, если будешь добавлять в начало своих новых постов фразу: "мой гений дарит вам"
3
mikecool
26.02.20
✎
09:58
(0) прелестно... прелестно!!!! (с) ворона
4
GROOVY
26.02.20
✎
10:14
Нет директив компиляции, первая процедура пустая. КГ/АМ.
Кaк может человек ожидaть, что его мольбaм о снисхождении ответит тот, кто превыше, когдa сaм он откaзывaет в милосердии тем, кто ниже его? Петр Трубецкой