Pagina :
1 | 2 | 3 | 4

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


Se invece si vuole saltare una linea, il comando é :
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)


Dopo aver terminato le operazioni, bisogna chiudere il file e liberare le risorse:
InStream.Close
Set InStream=Nothing
Set FileObject=Nothing

 

Pagina :
1 | 2 | 3 | 4