Имя: Пароль:
1C
1C 7.7
v7: Выгрузка таблицы в текстовый файл
, ,
0 m_singer
 
13.10.11
19:57
Имеется обработка, формирующая таблицу (из разных источников берет данные, со сложными условиями и т.д)
Как эту таблицу выгрузить в текстовый файл?
Каждую строку таблицы (соответственно включая несколько колонок) в отдельную строку текстового файла.
Вопрос наверное очень простой, но подскажите пожалуйста!

Как я понимаю, сами данные заполняются в таблицу этим отрывком:

   // Подготовка к заполнению выходных форм данными запроса
   Таб = СоздатьОбъект("Таблица");
   Таб.ИсходнаяТаблица("Сформировать");
   // Заполнение полей "Заголовок"
   Таб.ВывестиСекцию("Заголовок");
   Состояние("Заполнение выходной таблицы...");
   Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);
   ТабМеню.ВыбратьСтроки();
   ДатаЗ = "";
   Пока ТабМеню.получитьСтроку() = 1 Цикл
       Если ТабМеню.ДатаДок <> ДатаЗ Тогда
           Таб.Вывестисекцию("ДатаДок");
           ДатаЗ = ТабМеню.ДатаДок;
           Доп = 0;
       КонецЕсли;
       Таб.ВывестиСекцию("Блюдо");
   КонецЦикла;
   
   // Вывод заполненной формы
   Таб.ТолькоПросмотр(1);
   Таб.Показать("Сформировать", "");
1 filh
 
13.10.11
20:02
так ты не таблицу формируй, а сразу в текстовый файл пиши.
2 filh
 
13.10.11
20:02
А зачам?
что то не спросил сразу...
3 Godofsin
 
13.10.11
20:22
(2) Чтоб просматривать было удобнее =)
4 Денисок
 
13.10.11
20:41
Процедура ВыгрузитьТекст()
Перем ИмяФайла, текст;
ИмяФайла = "Таблица.txt";
текст = СоздатьОбъект("Текст");
Текст.ДобавитьСтроку("Таблица непонятно с чем"+РазделительСтрок); // Заголовок таблицы
Текст.ДобвитьСтроку(Формат("Твоё значение","с50")+" "+формат("Твое второе значение","с70"...и т.д.+РазделительСтрок);

Текст.ДобвитьСтроку(Формат("Твоё значение","с50")+" "+формат("Твое второе значение","с70"...и т.д.+РазделительСтрок);

и т.д.
...
...
...
Текст.ТолькоПросмотр(1);
Текст.Показать("Таблица с чем то ");
Текст.Записать(ИмяФайла);
КонецПроцедуры

Все это конечно можно в цикле записать
5 VladZ
 
13.10.11
20:43
(0) Смысл не ясен. Ну сохрани как xls. Открой в Экселе и сохрани в тексте.
6 Денисок
 
13.10.11
20:43
Да и в Excel думаю лучше таблицы выгружать
7 filh
 
13.10.11
20:59
ну если очень охота, то можно и в пдф.
8 m_singer
 
14.10.11
17:19
Данные выводятся в таблицу, т.к. эта обработка формирует бланки заказа для контрагентов. Т.е. сначала выводит в таблицу выборку данных, которые можно в дальнейшем распечатать и прочее.

(4) а вот тут:
Текст.ДобвитьСтроку(Формат("Твоё значение","с50")+" "+формат("Твое второе значение","с70"...и т.д.+РазделительСтрок);

"с50" и "с70" что это? и "твое значение" - какое именно? что-то не соображу=(
9 G-Re
 
14.10.11
19:30
(8) Если Таблица закрыта для модификации, то выводи сразу и в таблицу и в Текст.
10 1Сергей
 
15.10.11
07:50
(8) Поспрашивай у людей, кое-кто продаёт СП очень недорого. Там всё есть
11 Денисок
 
15.10.11
14:13
(8) Это длина строки ) А значение любое, ДатаДок, НомерДок, Блюдо.ТекущийЭлемент()...и т.д.