#329 - Creare report RTF

Lo script di oggi prepara un documento RTF preso a modello da un altro, utilizzando dei [TAG] personalizzati.
Per funzionare dobbiamo creare un documetno RTF di base mettendo nei punti *dinamici* dei [TAG] da sostiture.

Ecco un esempio:
Il Sottscritto [Nome]...

[Nome] è il TAG che verrà sostituito all'interno del documento.

<%

'Per leggere il documento utilizzo FSO
Set fso = CreateObject("Scripting.FileSystemObject")

'doc.rtf e' il documento di base che contiene i tag
Set f = fso.OpenTextFile(Server.MapPath("doc.rtf"), 1)

'Leggo tutto il contenuto del documento
Documento = f.ReadAll

'chiudo subito
f.Close
Set f = Nothing

'ora sostituisco i TAG con i campi contenuti nella form

Nome = request("Nome")
Cognome = request("Cognome")

Documento = Replace(Documento, "[Nome]", Nome)
Documento = Replace(Documento, "[Cognome]", Cognome)

'creo un nuovo documento con Nome e Cognome reali al posto dei TAG
Set f = fso.OpenTextFile(Server.MapPath("docnew.rtf"), 2, True)

'chiudo tutto
f.Write Documento
f.Close
Set f = Nothing
Set fso = Nothing
%>

Con questo sistema diventa molto facile generare dei documenti attraverso Internet, come report, fatture o contratti, compilando semplice un semplice form.


Approfondimenti

Commenti

Esprimi il tuo giudizio su questo script:

Per procedere devi essere autenticato.

marinella23282 scrive:
#329 - Creare report RTF

qualcuno mi sa spiegare cosa rappresenta quel file doc.rtf?

Modificato da marinella23282 il 01 settembre 2005 11.07 -
giovedì 1 settembre 2005
viki1967 scrive:
#329 - Creare report RTF

vengo dal forum di asp avanzato, questa è la mia curiosità:lo script prevede la sostituzione sempre di docnews.rtf sarebbe possibile invece salvare ...
martedì 16 marzo 2004
crisafi scrive:
Creare report RTF

"Per funzionare dobbiamo creare un documetno RTF di base mettendo nei punti *dinamici* dei [TAG] da sostiture"Ma cosa sono i PUNTI *DINAMICI*???
giovedì 17 gennaio 2002 | 20 risposte
enry71 in #329 - Creare report RTF
domenica 23 febbraio 2003 | 2 risposte
muby in #329 - Creare report RTF
giovedì 28 novembre 2002
mmteus in #329 - Creare report RTF
venerdì 8 novembre 2002 | 1 risposta
mkenya in #329 - Creare report RTF
venerdì 19 aprile 2002
sergiocarmigno in Creare report RTF
domenica 20 gennaio 2002 | 2 risposte
arcoseno in Creare report RTF
sabato 19 gennaio 2002

Aggiungi un nuovo commento »»»
Per inserire un commento, devi registrarti alla nostra community.




IN EVIDENZA
MISC