Gestione di File di Testo con ASP

Eccoci qui alla nona lezione relativa alle Active Server Pages. Per visualizzare le altre lezioni vai a questo indirizzo

Per mezzo delle pagine ASP è possibile gestire anche file di testo, grazie alla classe FileSystemObject fornita dall'Oggetto Scripting.
Questo oggetto ci permette di leggere e scrivere su un file di testo presente sul server dove è presente il sito direttamente tramite script.
Per accedere in lettura ad un file, servono solamente questi due comandi:

Set FileObject=CreateObject("Scripting.FileSystemObject") 
Set 
InStream=FileObject.OpenTextFile(MioFile,Tipo,True)

Naturalmente al posto di MioFile deve essere inserito il nome del file, digitando il suo percorso completo (tipo c:\temp\prova.txt) oppure facendolo mappare direttamente al server, nel caso il file in questione risieda in una delle directory accessibile al web server, tramite il comando:

MioFile=Server.MapPath("/cartella/prova.txt")

che utilizza l'Oggetto Server e che indica al server di mappare (cioé tradurre nel corrispondente indirizzo DOS) l'indirizzo della virtual directory "/cartella", dando come risultato una cosa del tipo "c:\web\cartella\".
L'altro parametro da specificare, la variabile tipo, va ad indicare allo script con quale metodo si intende aprire il file.
Abbiamo a disposizione le seguenti opzioni:

1 apre in lettura
2 apre in scrittura cancellando l'eventuale testo presente
8 apre ed aggiunge in scrittura dopo la fine del file

Una volta specificate queste informazioni, i metodi usati per leggere o scrivere sul file appena aperto sono semplicissimi.
Per leggere una riga basta il comando:

testo=InStream.ReadLine()

che legge una sola linea. Se si ha bisogno di leggere tutto il file, si usa invece il comando

testo=InStream.ReadAll

Se non conosco a priori il numero di righe da leggere e voglio fare una lettura riga per riga faccio così:

Do While Not InStream.AtEndOfStream 
testo=InStream.ReadLine 

Response.Write("<br>Il contenuto della linea é: "&testo) 
Loop 

InStream.SkipLine()

Per quanto riguarda la scrittura abbiamo visto le due opzioni disponibili come impostazioni.
Ora andiamo a vedere come si fa:

testo="prova testo" 
InStream.WriteLine(testo) 

InStream.Close 
Set InStream=Nothing 
Set FileObject=Nothing