Creare report RTF

di , in Classic ASP, UserScript, Scripting,

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

Visualizza/aggiungi commenti

Creare report RTF (#329) 810 578
| Condividi su: Twitter, Facebook, LinkedIn

Per inserire un commento, devi avere un account.

Fai il login e torna a questa pagina, oppure registrati alla nostra community.

Approfondimenti

Nessuna risorsa collegata

I più letti di oggi