AtEndOfStream
La proprietà AtEndOfStream dell'oggetto TextStream restituisce True se il puntatore è posizionato alla fine del file, in caso contrario restituisce False.
Nota: Questa proprietà funzionerà solo con un oggetto TextStream aperto in lettura.
Facciamo un esempio.
Si supponga di avere un file di testo (c:\test.txt) col seguente contenuto:
Ciao come ti chiami? Il mio nome è Marcello!questo il codice
dim fs,t,x
' Apro una istanza dell'oggetto FSO
set fs = Server.CreateObject("Scripting.FileSystemObject")
' Apro in modalità lettura
set t = fs.OpenTextFile("c:\test.txt",1,false)
' Creo un ciclo che si stoppa alla fine del file
do while t.AtEndOfStream<>true
x = t.Read(1)
loop
' chiudo tutto
t.Close
Set t = Nothing
Set fs = Nothing
' Stampo a video
Response.Write("L'ultimo carattere è: " & x)
L'output generato è:
L'ultimo carattere è: !
