AtEndOfLine

Οι ιδιότητες του TextStream AtEndOfLine «επιστρέφει μια Boolean τιμή: True δείχνει ότι ο δείκτης του αρχείου τοποθετείται αμέσως πριν από το τέλος της γραμμής δείκτη, διαφορετικά επιστρέφει False.

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

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

 



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

 

 Dim fs, t, x







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







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

 







 «Έχω ανοίξει το αρχείο σε κατάσταση λειτουργίας ανάγνωσης







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









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







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



  



 x = t.Read (1)







 βρόχος









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







 t.Close







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







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









 «Βίντεο Mold







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

 
 



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