Buono sconto 4% su Toner e Cartucce agli utenti AZpoint. SU Iomiricarico.it!!
In questo esempio vedremo come utilizzare la proprietà AtEndOfLine di un oggetto di tipo FileSystemObject (un file di testo).
La proprietà AtEndOfLine restituisce un valore Booleano. Questo valore è True se il puntatore del file è immediatamente precedente all'indicatore di fine file in un file TextStream, altrimenti ritorna False.
Questa proprietà è disponibile solo in un file aperto per la lettura, con gli altri tipi di file viene generato un errore.
La sintassi è la seguente:
TextStreamObject.AtEndOfLine
Vediamo ora un esempio:
<%
Dim fs,f,t,x
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set f=fs.CreateTextFile("c:\test.txt")
f.Write("Ciao a tutti!")
f.Close
Set t=fs.OpenTextFile("c:\test.txt",1,false)
Do While t.AtEndOfLine<>true
x=t.Read(1)
Loop
t.Close
Response.Write("L'ultimo carattere è : " & x)
%>
|