VBScript

LEZIONI - OGGETTO TEXTSTREAM

VBScript ci mette a disposizione l'oggetto TextStream, grazie al quale è possibile creare, leggere e scrivere su un file di testo. Le applicazioni legate a questo oggetto sono innumerevoli; ad esempio, si può realizzare un contatore: ad ogni accesso alla pagina si legge il valore nel file di testo, e lo si riscrive incrementato di un'unità. Oppure si può creare un file per le statistiche, in cui memorizzare la data e l'ora di accesso ad una pagina.

Iniziamo con il realizzare un contatore:

<SCRIPT LANGUAGE=vbscript>
<!--
Set fso = CreateObject("Scripting.FileSystemObject")
contatore="c:contatore.txt"
if not fso.FileExists (contatore)then
fso.CreateTextFile (contatore)
Set OggFile = fso.GetFile (contatore)
Set OggTextStream = OggFile.OpenAsTextStream(2)
OggTextStream.WriteLine "0"
OggTextStream.Close
end if
Set OggFile = fso.GetFile (contatore)

Set OggTextStream1 = OggFile.OpenAsTextStream(1)
valore=OggTextStream1.ReadLine
OggTextStream1.Close

Set OggTextStream = OggFile.OpenAsTextStream(2)
OggTextStream.WriteLine cstr(cint(valore)+1)
OggTextStream.Close
//-->
</SCRIPT>

Lo script è composto da una prima parte che si occupa di verificare se esiste il file di testo; se non esiste, lo crea e gli inserisce dentro il valore 0.
Il passo successivo è quello di leggere il valore contenuto nel file di testo, che poi viene incrementato e scritto nel file di testo.
Si noti la differenza tra l'accesso al file in scrittura ed in lettura: in lettura si ha OpenAsTextStream(1), mentre in scrittura OpenAsTextStream(2).
L'altro modo per aprire il file di testo è in accodamento, usando OpenAsTextStream(8).

La scrittura in accodamento è proprio quella che ci occorre per realizzare un file di log.

<SCRIPT LANGUAGE=vbscript>
<!--
Set fso = CreateObject("Scripting.FileSystemObject")
logfile="c:logfile.txt"
if not fso.FileExists (logfile)then
fso.CreateTextFile (logfile)
end if
Set OggFile = fso.GetFile (logfile)

Set OggTextStream = OggFile.OpenAsTextStream(8)
OggTextStream.WriteLine now()
OggTextStream.Close

Set OggTextStream1 = OggFile.OpenAsTextStream(1)
Do While Not OggTextStream1.AtEndOfStream
stringa = OggTextStream1.ReadLine
document.write stringa & "<br>"
loop
OggTextStream1.Close
//-->
</SCRIPT>

Anche in questa applicazione viene controllata l'esistenza del file di log e, se necessario, viene creato. Il file viene poi aperto in accodamento e gli viene scritta la data e l'ora dell'accesso.
Per dimostrarne il funzionamento, il file viene poi aperto e con un ciclo Do While-Loop vengono visualizzati tutti gli accessi.

Come l'oggetto FileSystem, anche l'oggetto TextStream è utilizzato per lo più lato server. Con i due esercizi appena proposti, abbiamo infatti creato un contatore di accessi come se ne vedono tanti nei siti internet, ed un file di statistiche.

Non solo i file di testo possono essere utilizzati come file di configurazione, oppure, se si è capaci, possono essere usati come database per piccole applicazioni. Alcuni forum sfruttano 2 file di testo per funzionare, uno per gli utenti ed uno per i messaggi. Potrebbe essere un ottimo esercizio per verificare le conoscenze di VBScript apprese finora.