Sleja

Kolonnu īpašums "TextStream atgriež pašreizējo raksturu pozīciju.

Piezīme: Šī iestāde ir uzskatāma par sākumu rakstura 1 līnija.
Lai iegūtu pašreizējo rakstura skaits līnija nav nepieciešama, praksē veic atņemot -1 rezultātu, ko šī dabas īpašumu.

Apskatīsim piemēru.
Pieņemsim, jums ir teksta fails (c: \ test.txt) ar šādu saturu:

 



 Sveiki Kāds ir Jūsu vārds?

 

 dim fs, t, x, y









 "Es gadījums tiek izveidots FSO







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

 







 "Es atveriet failu lasīšanas režīmā







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









 "Es izveidot cilpu, kas tiek apstādināta pie beigām failu







 darīt, kamēr t.AtEndOfStream <> taisnība



  



 x = t.Read (1)



  



 y-1 = t.Column







 cilpa









 "Es aizvērt viss







 t.Close







 Set T = Nekas







 Set fs = Nekas









 "Print video

 





 Izejas:

 
 



 Pēdējo rakstzīmi teksta failā ir:?







 rakstura amats: 20