AtEndOfStream

Ominaisuudet AtEndOfStream "TextStream palauttaa True jos osoitin on sijoitettu tiedoston loppuun, muuten se palauttaa False.

Huomaa: Tämä ominaisuus toimii vain TextStream avataan lukemista.

Otetaanpa esimerkki.
Oletetaan, että olet tekstitiedosto (C: \ test.txt) seuraavalla sisällöllä:

 



 Moikka Mikä sinun nimesi on?







 Nimeni on Marcello!

 

 hämärä fs, T, x









 "Avaan yksi esiintymä FSO







 Set fs = Server.CreateObject ("scripting.filesystemobject")

 







 "Olen auki lukenut tilassa







 Aseta t = fs.OpenTextFile ("C: \ test.txt", 1, false)









 "Luon silmukka, joka pysäyttää tiedoston loppuun







 tehdä, kun t.AtEndOfStream <> totta



  



 x = t.Read (1)







 silmukka









 "Suljen kaiken







 t.Close







 Aseta T = Nothing







 Set fs = Nothing









 "Mold Video







 Teho on:

 
 



 Viimeinen merkki on:!