Уважаемые форумчане! Прошу вас помочь мне вывести результатов расчетов программы в файл MS Word. Это необходимо осуществить так, чтоб сохранялось заранее заданное форматирование текста.
Слышал о программах Active Reports и Crystal Reports, но не знаю как этому подступиться!
Вывод отчетов в файлы MS Word (doc, rtf)
Страница: 1
Сообщений 1 страница 15 из 15
Поделиться113.05.2012 18:52:52
Поделиться213.05.2012 18:59:53
С RTF проще.
Добавляем в окно EditorGadget. Он поддерживает форматирование и позволяет загружать и сохранять текст в rtf.
Выводим в него текст, форматируем и сохраняем.
В КодАрхиве в папке \Gadgets\EditorGadget\ есть примеры.
Поделиться314.05.2012 03:49:04
Спасибо, попробую )
Поделиться414.05.2012 03:54:23
Подскажите, а какие-нибудь другие варианты есть?
Поделиться514.05.2012 04:02:36
Дело в том, что необходимо сделать следующее:
1. производится расчет, и в результате получаем некоторые значения
2. После этого по нажатию кнопки нужно получить файл doc, rtf, в котом имеется заранее подготовленный текст, а меняются только данные, полученные в п.1.
Поделиться615.05.2012 10:24:45
Alexeynico
Как быть с форматом dok, не знаю, а с rtf - это обыкновенный текстовый файл. Поэтому, в заранее подготовленном файле формата rtf, делаешь метки вида - :{метка_1}:, :{метка_2}:, :{метка_3}: и т..д., после того как нажмёшь кнопку сохранить, считываешь заготовку rtf, парсишь, находишь свои метки и на их место всавляешь данные расчётов, после чего сохраняешь. Символы меток придумай сам, лишь бы они не совпадали с разметкой rtf и были уникальными(разными).
Поделиться715.05.2012 15:58:03
А фрагментом кода помочь не можете? Не сталкивался с этим еще...
Поделиться815.05.2012 18:24:51
Alexeynico написал(а):
А фрагментом кода помочь не можете? Не сталкивался с этим еще...
Ссылка сначала открой rtf и посмотри его, потом закрой запусти код и открой снова rtf.
Поделиться915.05.2012 19:25:27
Спасибо большое, только Pure выдает: неверное число параметров FindString. Сейчас попробую разобраться...
Поделиться1015.05.2012 19:30:22
Возможно, нужно : Position = FindString(Text$, "\{*test1*\}", 1)
Поделиться1115.05.2012 19:30:42
Alexeynico написал(а):
выдает: неверное число параметров FindString
Внизу окна в строке состояния отображаются все параметры функции и тот, на котором находится курсор.
Поделиться1215.05.2012 19:41:27
Position = FindString(Text$, "\{*test1*\}", 1), где 1 - start position. дописал - заработало...
Спасибо!
Поделиться1315.05.2012 20:01:49
Подскажите, пожалуйста, как сделать так, чтоб:
1. После замены значений RTF сохранялся с заданным именем, отличным от шаблона и открывался после этого;
2. Сам шаблон оставался неизменным.
Спасибо!
Поделиться1415.05.2012 20:53:51
Если файл был загружен в память, то просто сохранить под другим именем, указываемым в CreateFile().
Поделиться1516.05.2012 09:03:52
Спасибо за помощь, все работает на УРА!
Страница: 1