L'ultimo oggetto del file system è TextStream. Grazie a questo oggetto è possibile creare, leggere e scrivere in un file di testo.
L'oggetto TextStream ha le seguenti Proprietà:
AtEndOfLine restituisce True se
il puntatore del file è alla fine di una riga di un file
AtEndOfStream restituisce True se il puntatore del file è alla
fine di un file
Column restituisce il numero di colonna del carattere corrente
Line restituisce il numero di riga del carattere corrente
I metodi dell'oggetto TextStream permettono di navigare, leggere e scrivere file.
Close chiude il file corrente
Read (numerocaratteri) legge il numero di caratteri specificato da un
file.
ReadAll legge tutti i caratteri di un file.
ReadLine legge una riga da un file.
Skip(numerocaratteri) salta il numero di caratteri specificato da un
file.
SkipLine salta alla riga successiva.
Write(stringa) scrive una stringa in un file.
WriteLine crea una nuova riga.
WriteBlankLines(numero) crea un numero specificato di righe vuote.
Vediamo qualche esempio dove sono applicati i concetti appena incontrati.
Iniziamo con un esempio che ci permette di scrivere su un file di testo:
<script language="vbscript">
Dim OggFile, origine, OggTextStream
origine="c:textstream.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateTextFile (origine)
Set OggFile = fso.GetFile (origine)
Set OggTextStream = OggFile.OpenAsTextStream(2)
OggTextStream.WriteLine "Lezione di VBScript sull'oggetto TextStream"
OggTextStream.WriteLine
OggTextStream.WriteLine "Terza riga dell'esempio."
OggTextStream.close
document.write "Scrittura eseguita correttamente."
</script>
Con il comando CreateTextFile viene creato il file di testo e tramite il comando OpenAsTextStream il file viene aperto. Per aprire un file ci sono 3 modalità:
- Sola lettura 1
- Sola lettura 1
- Scrittura 2
- Scrittura in coda 8
Nell'esempio il file è stato aperto con il parametro 2 cioè in scrittura. Se il file esiste già, viene sovrascritto.
Passiamo ora ad un esempio che ci permette di leggere il file appena creato:
<script language="vbscript" >
Dim OggFile, origine, OggTextStream, stringa
origine="c:textstream.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set OggFile = fso.GetFile (origine)
Set OggTextStream = OggFile.OpenAsTextStream(1)
Do While Not OggTextStream.AtEndOfStream
stringa = OggTextStream.ReadLine
document.write stringa & "<br>"
loop
OggTextStream.close
</script>
Attraverso il cilclo do - loop è possibile leggere tutto il file di testo. Si noti come il parametro di OpenAsTextStream sia impostato ad 1, dato che il file è aperto in lettura.
