|
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) Это длина строки ) А значение любое, ДатаДок, НомерДок, Блюдо.ТекущийЭлемент()...и т.д.
|
|
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший