Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];




Вниз

Есть такая проблема, имеется шаблон документа в Вордовском 


DimaIv   (2002-03-25 20:43) [0]

формате, в нём вставляю например такие теги <Firms> или <Fone>
эти самые тэги нужно автоматически заменить например на АО МММ и 333-33-33 (то на что заменяем берётся из БД, АО МММ из таблицы Firms поле Name), как сделать так чтобы можно было добавлять новые тэги без компиляции проекта. Например вставляю в шаблон новый тэг <DateE> а при замене на его место встает запись из таблици Dates из поля DateEnd.



DimaIv   (2002-03-25 21:16) [1]

Забыл сказать, что БД Paradox.



XanderMan   (2002-03-26 08:59) [2]

Попробуй создать еще одну таблицу в БД, в которой будут поля:
наименование тега (<DateE>);
наименование таблицы;
наименование поля;
тип поля (может быть)
После этого в программе необходимо произвести обычную трансляцию, подставляя значения поля через выражение:

(DataModule.FindComponent("TableName") as TTable).FieldByName("FieldName").AsString



DimaIv   (2002-03-27 05:57) [3]

Спасибо попробую.
Может ещё что-нибудь ктони-будь скажет.



Владислав   (2002-03-27 06:20) [4]

Запусти в Word"е запись макроса. Запусти замену. Впиши в соответсвующие поля, что найти и на что заменить. Нажми кнопку заменить. Останови запись макроса. Перейди в редактор Visual Basic"а и посмотри, как это реализуется в VB. Этот код можно перенести в Delphi. Примеры на эту тему есть в FAQ: http://delphi.mastak.ru/cgi-bin/faq.pl?look=1&id=988619885&n=18
Если что-то еще не понятно, спрашивай.

"... как сделать так чтобы можно было добавлять новые тэги без компиляции проекта..."

А вот это - не самая тривиальная задача. И я именно ей занимаюсь. Пиши, может вместе что-то сообразим.




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.016 c
6-22786           nick_vstu             2002-01-23 03:26  2002.04.08  
Вопрос о TWebBowser и Socket


3-22595           s                     2002-03-18 09:07  2002.04.08  
Помогите с записью в базу SQL 2000!


4-22891           Ewgenij               2002-02-05 20:22  2002.04.08  
System Tray


3-22564           Barmutik              2002-03-15 12:06  2002.04.08  
Помогите устранить ошибку !


14-22805          IronHawk              2002-02-26 12:57  2002.04.08  
Приветствую Мастеров & All ! Как оакитизировать части программы по ключу в коммандной строке ?