AtEndOfLine

De eigenschappen van TextStream AtEndOfLine 'geeft een Booleaanse waarde: true geeft aan dat de file pointer onmiddellijk wordt geplaatst voor het einde van de lijn marker, anders geeft False.

Opmerking: Deze eigenschap werkt alleen met een TextStream geopend voor lezen.

Laten we een voorbeeld nemen.
Stel je hebt een tekst bestand (c: \ test.txt) met de volgende inhoud:

 



 Hallo wat is je naam?

 

 dim fs, t, x







 'Ik open een exemplaar van de FSO







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

 







 'Ik open het bestand in te lezen-modus







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









 'Ik maak een lus die is gestopt aan het einde van de regel







 doen, terwijl t.AtEndOfLine <> waar



  



 x = t.Read (1)







 lus









 'Ik sluit alles







 t.Close







 Set T = Nothing







 Set fs = Nothing









 "Mold Video







 De output is:

 
 



 Het laatste teken is:?