Generare un file rtf da una form (asp)

Demo

In alcuni casi potrebbe esse utile generare un file RTF, attingendo dati da un data base o da un form compilato dall'utente.

Se l'utente deve riempire un modulo con una formattazione ben precisa,  conviene realizzare il modulo in formato RTF e inserire le variabili tra parentesi quadre, lo script farà il resto, sostituendo alle variabili i dati che l'utente ha inserito nella form.

Realizziamo una semplice form con Nome, Cognome, Indirizzo ecc. . Questo file lo salveremo con il nome file_rtf0.asp. Cliccando il tasto invio i dati inseriti verranno passati in un altro file che chiamereno file_rtf

Codice del file: file_rtf0.asp <form method=post action="file_rtf.asp" name="form"> <div align="center"></div> <table width="86%" border="1" cellpadding="3" align="center" bordercolor="#FFFFFF" height="94"> <tr bordercolor="#FF9900" bgcolor="#CCCCFF"> <td bordercolor="#FF9900" height="19" width="35%"> <div align="right"><b><font color="#000000">nome</font></b></div> </td> <td height="19" width="65%"> <input class="CAMPOFORM" type="text" name="nome" > </td> </tr> <tr bordercolor="#FF9900" bgcolor="#CCCCFF"> <td height="10" width="35%"> <div align="right"><b><font color="#000000">cognome</font></b></div> </td> <td height="10" width="65%"> <input class="CAMPOFORM" type="text" name="cognome"> </td> </tr> <tr bordercolor="#FF9900" bgcolor="#CCCCFF"> <td height="10" width="35%"> <div align="right"><b><font color="#000000">indirizzo</font></b></div> </td> <td height="10" width="65%"> <input class="CAMPOFORM" type="text" name="indirizzo"> </td> </tr> <tr bordercolor="#FFFFFF" bgcolor="#FFFFFF"> <td height="12" width="35%" valign="top"> <div align="right"></div> </td> <td height="12" width="65%"> <div align="left"> <input class="CAMPINVIO" type="submit" name="Submit" value="invia"> </div> </td> </tr> </table> <p> </p> </form>

 Codice del file: file_rtf.asp <% Language=VBScript %> <% '---------www.rootweb.it creare nel web-------------------------- d = date() Set FSO = Server.CreateObject("Scripting.FileSystemObject") Set F = FSO.OpenTextFile(Server.mappath("doc.rtf"), 1) Documento = F.ReadAll F.close Set F = Nothing indirizzo = request("indirizzo") Nome = request("nome") cognome = request("cognome") Documento = Replace(documento, "[nome]", nome) Documento = Replace(documento, "[cognome]", cognome) Documento = Replace(documento, "[indirizzo]", indirizzo) Documento = Replace(documento, "[data]", d) file = "docnewfile.rtf" Set F = FSO.OpenTextFile(Server.mappath(file), 2, true) F.write documento F.close set F = nothing Set Fso = nothing '------------------------------------------------------ %>

Non ci resta che creare un normalissimo file word con il nome: Doc.rtf  e ricordandoci di inserire i nomi delle variabili tra parentesi quadre .

Clicca qui per scaricare i file di esempio formato zip 4Kbyte

 

Commenta questo articolo Visualizza i commenti (-0,5)