Στήλη

Η ιδιότητα Στήλη του «TextStream επιστρέφει την τρέχουσα θέση του χαρακτήρα.

Σημείωση: Το ακίνητο αυτό θεωρείται ως η αρχή του χαρακτήρα 1 γραμμή.
Για να πάρετε τον αριθμό του τρέχοντος χαρακτήρα στη γραμμή είναι απαραίτητο, στην πράξη, εκτελέσει μια αφαίρεση από -1 έως το αποτέλεσμα που προκύπτει από αυτή τη φυσική ιδιότητα.

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

 



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

 

 Dim fs, t, x, y









 «Έχω δημιουργήσει μια παρουσία της FSO







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

 







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







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









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







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



  



 x = t.Read (1)



  



 y-1 = t.Column







 βρόχος









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







 t.Close







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







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









 «Εκτύπωση σε βίντεο

 





 Έξοδος:

 
 



 Το τελευταίο χαρακτήρα στο αρχείο κειμένου είναι:?







 θέση του χαρακτήρα: 20