Имя: Пароль:
1C
 
Выгрузка данных отчета в CSV
0 Morozov Roman
 
30.06.23
14:36
Всем здрасьте, кто подскажет как выгрузить данные в csv. Суть такая - отчет выводит данные на форму в таб док, эти данные нужно выгрузить в csv как это сделать. Пробую не получается. Таб док переделал в ТЗ, а дальше не пойму как. Кол-во колонок может меняться. Как правильно выгрузить?
1 Мультук
 
30.06.23
14:44
(0)

>> Кол-во колонок может меняться

Для каждого строка из тзДанные Цикл
   Для каждого колонка из тзДанные.Колонки Цикл
       //{тут волшебство}
   КонецЦикла;
КонецЦикла

или вариант для ленивых (не проверял, наверное работает)

гугл: 1С выгрузить таблицаЗначений CSV

https://infostart.ru/1c/articles/463330/
2 lEvGl
 
30.06.23
17:07
или экселем
сохранить табдок в эксель, открыть файл СОМом экселя, вызвать процедуру сохранения с разделителями
3 Amfiaray
 
01.07.23
12:20
Разделитель = "^";
        
    ТекстШапки = "";
    Для Каждого Колонка Из ТаблицаДанных.Колонки Цикл
        Если ТекстШапки = "" Тогда
            ТекстШапки = Колонка.Имя;
        Иначе    
            ТекстШапки = ТекстШапки+Разделитель+Колонка.Имя;
        КонецЕсли;    
    КонецЦикла;    
    ИмяФайла = ПолучитьИмяВременногоФайла("csv");
    ФайлCSV = Новый ЗаписьТекста(ИмяФайла, КодировкаТекста.UTF16);
    ФайлCSV.ЗаписатьСтроку(ТекстШапки);
    
    Для Каждого СтрокаТ Из ТаблицаДанных Цикл
        
        ТекстСтроки = "";
        Для Каждого Колонка Из ТаблицаДанных.Колонки Цикл
            Если ТекстСтроки = "" Тогда
                ТекстСтроки = ?(Строка(СтрокаТ[Колонка.Имя]) = "", " ", Строка(СтрокаТ[Колонка.Имя]));
            Иначе
                ТекстСтроки = ТекстСтроки+Разделитель+?(Строка(СтрокаТ[Колонка.Имя]) = "", " ", Строка(СтрокаТ[Колонка.Имя]));
            КонецЕсли;
        КонецЦикла;
        ФайлCSV.ЗаписатьСтроку(ТекстСтроки);    
        
    КонецЦикла;    
    
    ФайлCSV.Закрыть();
4 Morozov Roman
 
01.07.23
19:26
Всем спасибо!, нашел как решить
5 lEvGl
 
03.07.23
07:38
(4) ни в коем случае никому не говорите как