Kolonne

Kolonne eiendom 'TextStream returnerer gjeldende tegnposisjon.

Merk: Denne egenskapen er regnet som begynnelsen av karakteren 1 linje.
For å få antall aktuelle tegnet i linjen er nødvendig, i praksis, utføre en subtraksjon av -1 til resultatet som produseres av denne naturlige eiendom.

La oss ta et eksempel.
Anta at du har en tekstfil (c: \ test.txt) med følgende innhold:

 



 Hei hva heter du?

 

 dim fs, t, x, y









 Jeg oppretter en forekomst av FSO







 Set fs = Server.CreateObject ("Scripting.FileSystemObject")

 







 Jeg åpne filen i skrivebeskyttet modus







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









 Jeg lager en løkke som er stoppet ved slutten av filen







 do mens t.AtEndOfStream <> sant



  



 x = t.Read (1)



  



 y-1 = t.Column







 sløyfe









 "Jeg lukker alt







 t.Close







 Sett T = Nothing







 Set fs = Nothing









 'Skriv til video

 





 Output:

 
 



 Det siste tegnet i tekstfilen er:?







 tegnposisjon: 20