Dupliquer un Template RTF

Question

Bonjour &#224; tous



Je vous expose bri&#232;vement ce que je souhaite faire :



J'ai cr&#233;e un template RTF, qui contient des champs (bookmarks) que je
fusionne avec des valeurs se trouvant dans une base de donn&#233;es. 

Par exemple : dans le fichier RTF j'ai "NOM" 

Ma requete en base de donn&#233;es me ramenne la Valeur DUPOND

Apres fusion Mon document RTF, se compose Alors d'une page ou "NOM" est remplac&#233; par exemple par DUPOND

Ceci fonctionne tr&#232;s bien.



J'aimerai g&#233;n&#233;ralis&#233; se processus  &#224; n Contactes

C'est &#224; dire que si j'ai 3 contactes, mon document finale se compose de
3 pages ou chacune des pages contient respectivement le nom de chaque
contacte.



En r&#233;sum&#233; je cherche une solution simple et fiable pour arriver &#224; dupliquer le template.

ou sinon connaissez vous un prog en VB capable de parser du code RTF?



Merci d'avance pour vos r&#233;ponses :)

cs_Jack · Answer

Salut
Je connais pas les techniques des Templates, mais il suffit de r&#233;p&#233;ter 3 fois la m&#234;me manip &#224; partir d'un fichier Template vierge &#224; chaque fois.
Donc ton probl&#232;me est en r&#233;alit&#233; de faire d&#233;filer les 3 (ou X) noms renvoy&#233;s par ta requ&#232;te sur la base de donn&#233;es.
Ne sachant pas comment tu as op&#233;r&#233;, difficile de tout t'&#233;crire ici.
Inspire toi des sources de ce site et int&#233;resse toi aux objets RecordSet et faire une boucle du style :
monRecordSet.MoveFirst
While Not monRecordSet.EOF
      ' Les lignes qui permettent de faire ton insertion en utilisant comme nom : monRecordSet!NomDB
      ' o&#249; NomDB correspond au nom du champ dans ta DB
      monRecordSet.MoveNext
Loop

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)
(je

Erenion · Answer

Merci pour ta r&#233;ponse rapide

J'entends par template : mod&#232;le de document. Dans mon cas il s'agit simplement d'un fichier rtf, contenant un bookmark "NOM"



Si on ouvre le fichier rtf avec blocnote on voit un code de ce genre :

{rtf1 \..........\pard\plain \...{ "NOM" }....}



I) Cas pour un seul contact

Donc le programme vb

1) R&#233;cupere le code rtf

sRtfCode =  {rtf1 \..........\pard\plain \...{ "NOM" }....}



2) R&#233;cupere les valeurs  en bdd

Value(0) = "DUPOND"

Bookmark(0) = "NOM"



3)Remplace dans la chaine RTF, le bookmark par sa value



REPLACE( sRtfCode, Bookmark(0),Value(0))



> sRtfCode  {rtf1 \..........\pard\plain \...{ DUPOND }....}

j'inscrit ensuite le code rtf dans un fichier texte



 II) Cas pour N contactes 

si j'ai plusieurs value a ramener il faudrait que la chaine RTF soit modifi&#233;e au fur et &#224; mesure que je fusionne les contactes.



Par  exemple

Value(0)  = "DUPOND"

Value(1) = "DUPOND2"

Value(3) = "DUPOND3"

Bookmark(0) = "NOM"

Au depart sRtfCode = {rtf1 \..........\pard\plain \...{ "NOM" }....}



Je fusionne le Premier contacte :

sRtfCode =>{rtf1 \..........\pard\plain \...{ DUPOND1 ...."Nom"}....}



Je fusionne le deuxieme contacte

sRtfCode =>{rtf1 \..........\pard\plain \...{ DUPOND1 ....DUPOND2...."NOM."}....}



Je fusionne le dernier contacte

sRtfCode => {rtf1 \..........\pard\plain \...{ DUPOND ....DUPOND2....DUPOND3."}....}

cs_Jack · Answer

re
J'ai bien compris le principe, mais ce que tu n'as pas saisi, c'est qu'il fallait recharger le rtf original avant de faire chaque remplacement :
- Charge le rtf original
- remplace NOM
- sauve le nouveau dans une chaine
- Recharge le rtf original
- remplace NOM
- ajoute le rtf modifi&#233; au pr&#233;c&#233;dent (ChaineSauv&#233;e = ChaineSauv&#233;e & Derni&#232;reChaineModifi&#233;e)
- Recharge le rtf original
- remplace NOM
- ajoute le rtf modifi&#233; au pr&#233;c&#233;dent (ChaineSauv&#233;e = ChaineSauv&#233;e & Derni&#232;reChaineModifi&#233;e)
...
Seul doute : Un fichier rtf poss&#232;de des codes d'ent&#234;te (avec la d&#233;finition des fontes utilis&#233;es dans le document) : &#224; mon avis, on ne peut pas concat&#233;ner deux fichiers rtf comme &#231;a. Il va falloir travailler sur la structure du rtf, bon courage !

D'autre part, m&#233;fie toi des mots trop courts : Comme tu lis le fichier rtf avec toute sa structure, il y a fort &#224; parier que le texte NOM apparait ailleurs : Choisis des noms de balise|bookmark plus complexes, par exemple : {"NOM_A_REMPLACER"}
Comme &#231;a, plus de possibilit&#233; de m&#233;lange.

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)
(je

Erenion · Answer

J'ai concat&#233;n&#233; le code rtf charg&#233; au d&#233;part  autant
de fois que j'ai de contactes &#224; fusionner,  en prenant soin pour
les n-1 contactes d'enlever la derniere "}" et de rajouter au nieme
contacte autant de "}" qu'il y'a de  contactes



Je charge la chaine une seule fois et apres je fais du traitement sur cette chaine 

dans le meme esprit que ce que tu as expliqu&#233; plus haut 



ChaineSauv&#233;e = ChaineSauv&#233;e & Derni&#232;reChaineModifi&#233;e




&#231;a donne un truc dans ce genre

chaine de d&#233;part  : {rtf1 \..........\pard\plain \...{ "NOM" }....}}



chaine &#224; l'arriv&#233;e




{rtf1 \..........\pard\plain \...{ DUPOND1 }....} \page


{rtf1 \..........\pard\plain \...{ DUPOND2 }....} \page


{rtf1 \..........\pard\plain \...{ DUPOND3} ....} \page


{rtf1 \..........\pard\plain \...{DUPOND4}.... }}}}






Merci pour ton aide :)

Dupliquer un Template RTF

4 réponses

Discussions similaires