Stupac

Stupac vlasništvo "TextStream predmet vraća trenutni položaj znaka.

Napomena: Ovaj objekt se smatra kao početak karaktera 1 linija.
Da biste dobili broj tekućeg znaka u retku je potrebno, u praksi, obavljati oduzimanje -1 do prirodne rezultat proizvedena ova nekretnina.

Uzmimo primjer.
Pretpostavimo da imate tekstualnu datoteku (C: \ test.txt) sa sljedećim sadržajem:

 



 Pozdrav što je vaše ime?

 

 Dim FS, t, x, y









 'Ja stvoriti instancu FSO







 Postavite FS = Server.CreateObject ("Scripting.FileSystemObject")

 







 'Ja otvorite datoteku u čitanje načinu rada







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









 'Ja stvoriti petlje koji je zaustavljen na kraju datoteke







 učiniti dok t.AtEndOfStream <> istina



  



 x = t.Read (1)



  



 = Y-1 t.Column







 petlja









 'Ja zatvorite sve







 t.Close







 Ništa skup T =







 Postavite fs = Nothing









 'Ispis Video

 





 Izlaz:

 
 



 Zadnji znak u tekstualnu datoteku je:?







 znaka: 20