AtEndOfLine

The properties of AtEndOfLine 'TextStream returns a Boolean value: True indicates that the file pointer is positioned immediately before the end of line marker, otherwise it returns False.

Note: This property will only work with a TextStream opened for reading.

Let's take an example.
Suppose you have a text file (c: \ test.txt) with the following contents:

 



 Hello what's your name?

 

 dim fs, t, x







 'I open one instance of the FSO







 Set fs = Server.CreateObject ("Scripting.FileSystemObject")

 







 'I open the file in read mode







 set T = fs.OpenTextFile ("c: \ test.txt", 1, false)









 'I create a loop that is stopped at the end of the line







 do while t.AtEndOfLine <> true



  



 x = t.Read (1)







 loop









 'I close everything







 t.Close







 Set T = Nothing







 Set fs = Nothing









 'Mold Video







 The output is:

 
 



 The last character is:?