|
Creare report RTF Tramite questo esempio č possibile utilizzare un docuemnto RTF di base, utilizzandolo come modello, per crearne (e salvarne) un altro.
In questo modello dovremmo mettere oltre ai testi base, delle parti dinamiche, contrassegnandole in un modo particolare, ad esempio [nomeVaribile].
Questo script si presenta particolarmente utile nel caso di pių lettere il cui testo standard č uguale, ad eccezion fatta del nominativo.
Per un ulteriore approfondimento sul formato RTF e relative trasformazioni da html a tag rtf consultare questo link.
dim fso, f1, f2, mioFileRTF, nominativo
nominativo = "Mario Rossi" ' statico in questo caso, ma posso prenderlo da un eventuale request ad esempio
'apro e leggo il modello RTF
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.OpenTextFile(Server.MapPath("modello.rtf"), 1)
mioFileRTF = f.ReadAll
f1.Close
'preparo e salvo il documento basato sul modello
mioFileRTF = Replace(mioFileRTF, "[nominativo]", nominativo)
Set f2 = fso.OpenTextFile(Server.MapPath("mioFile.rtf"), 2, True)
f2.Write Documento
f2.Close
Set f1 = Nothing
Set f2 = Nothing
Set fso = Nothing
|
|
