AtEndOfStream

Gada AtEndOfStream "TextStream īpašības atgriež True, ja rādītājs ir novietots beigās failu, pretējā gadījumā tā atgriež False.

Piezīme: Šī iestāde darbosies tikai ar TextStream atvērts lasījumā.

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

 



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







 Mans vārds ir Marcello!

 

 dim fs, t, x









 "Es atvērt vienā gadījumā no FSO







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

 







 "Es atvērt 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)







 cilpa









 "Es aizvērt viss







 t.Close







 Set T = Nekas







 Set fs = Nekas









 "Mold Video







 Jauda ir:

 
 



 Pēdējo rakstzīmi ir:!