Kolonne

Den Kolonne ejendom 'TextStream returnerer den aktuelle tegnposition.

Bemærk: Denne ejendom betragtes som begyndelsen af ​​den karakter 1 linje.
For at få antallet af aktuelle tegn i linjen er nødvendigt i praksis, foretage en subtraktion af -1 til resultatet produceret af denne naturlige ejendom.

Lad os tage et eksempel.
Antag du har en tekstfil (C: \ test.txt) med følgende indhold:

 



 Hej hvad er dit navn?

 

 dim fs, t, x, y









 "Jeg opretter en instans af FSO







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

 







 'Jeg åbner filen i skrivebeskyttet tilstand







 sæt T = fs.OpenTextFile ("c: \ test.txt", 1, falske)









 "Jeg opretter en løkke, der er standset i slutningen af ​​filen







 gøre, mens t.AtEndOfStream <> sandt



  



 x = t.Read (1)



  



 y-1 = t.Column







 loop









 "Jeg lukke alt







 t.Close







 Set T = Nothing







 Set fs = Nothing









 'Udskriv til video

 





 Output:

 
 



 Det sidste tegn i tekstfilen er:?







 tegnposition: 20