Sütun

'TextStream ve Sütun özelliği, geçerli karakter konumunu verir.

Not: Bu özellik karakter 1 satır başlangıcı olarak kabul edilir.
Doğrultusunda mevcut karakter sayısı uygulamada, gerekli almak için, bu tabiat varlıklarının tarafından üretilen sonuca -1 çıkarma yaparlar.

Bir örnek verelim.
Aşağıdaki içeriği: (\ test.txt c) Bir metin dosyası olduğunu varsayalım:

 



 Merhaba isminiz ne?

 

 dim fs, t, x, y









 'Ben FSO bir örneğini oluşturmak







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

 







 'Ben okuma modunda dosyayı açın







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









 'Ben dosyanın sonunda durur bir döngü oluşturmak







 yapmak t.AtEndOfStream <> gerçek ise



  



 x = t.Read (1)



  



 y-1 = t.Column







 döngü









 'Her şeyi yakın







 t.Close







 T = Nothing Set







 Fs = Nothing Set









 'Video Yazdır

 





 Çıkış:

 
 



 Metin dosyasındaki son karakter:?







 karakter konumu: 20