AtEndOfStream

Οι ιδιότητες του TextStream AtEndOfStream »επιστρέφει True εάν ο δείκτης βρίσκεται στο τέλος του αρχείου, διαφορετικά επιστρέφει False.

Σημείωση: Αυτή η ιδιότητα θα λειτουργήσει μόνο με ένα TextStream άνοιξε για την ανάγνωση.

Ας πάρουμε ένα παράδειγμα.
Ας υποθέσουμε ότι έχετε ένα αρχείο κειμένου (c: \ Test.txt) με το ακόλουθο περιεχόμενο:

 



 Γεια σας αυτό είναι το όνομά σου;







 Το όνομά μου είναι Marcello!

 

 Dim fs, t, x









 «Ανοίγω μια εμφάνιση του FSO







 Ορισμός fs = Server.CreateObject ("Scripting.FileSystemObject")

 







 «Ανοίγω το διαβάσει λειτουργία







 σύνολο T = fs.OpenTextFile ("C: \ Test.txt", 1, ψευδής)









 «Μπορώ να δημιουργήσω ένα βρόχο που έχει σταματήσει στο τέλος του αρχείου







 κάνουν ενώ t.AtEndOfStream <> αλήθεια



  



 x = t.Read (1)







 βρόχος









 «Κλείνω τα πάντα







 t.Close







 Ορισμός T = Τίποτα







 Ορισμός fs = Τίποτα









 «Βίντεο Mold







 Η έξοδος είναι:

 
 



 Ο τελευταίος χαρακτήρας είναι:!