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.
Commenti
Per inserire un commento, devi avere un account.
Fai il login e torna a questa pagina, oppure registrati alla nostra community.
