Kolom

De kolom eigendom van 'TextStream geeft de huidige teken positie.

Opmerking: Deze eigenschap wordt beschouwd als het begin van het teken een lijn.
Om het aantal lopende teken in de regel noodzakelijk is, in de praktijk, het uitvoeren van een aftrek van -1 aan het resultaat geproduceerd door deze natuurlijke eigenschap.

Laten we een voorbeeld nemen.
Stel je hebt een tekst bestand (c: \ test.txt) met de volgende inhoud:

 



 Hallo wat is je naam?

 

 dim fs, t, x, y









 'Ik maak een exemplaar van de FSO







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

 







 'Ik open het bestand in te lezen-modus







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









 'Ik maak een lus die is gestopt aan het einde van het bestand







 doen, terwijl t.AtEndOfStream <> waar



  



 x = t.Read (1)



  



 y-1 = t.Column







 lus









 'Ik sluit alles







 t.Close







 Set T = Nothing







 Set fs = Nothing









 'Afdrukken naar video

 





 Uitgang:

 
 



 Het laatste teken in het tekstbestand is:?







 tekenpositie: 20