AtEndOfLine

AtEndOfLine 'TextStream özellikleri bir Boolean değeri döndürür: Gerçek dosya işaretçisi satır işareti sonuna kadar hemen konumlandırılmış olduğunu gösterir, aksi takdirde False döndürür.

Not: Bu özellik sadece okumak için açılmış bir TextStream çalışır.

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







 'Ben FSO bir örneğini açık







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

 







 'Ben okuma modunda dosyayı açın







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









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







 yapmak t.AtEndOfLine <> gerçek ise



  



 x = t.Read (1)







 döngü









 'Her şeyi yakın







 t.Close







 T = Nothing Set







 Fs = Nothing Set









 'Kalıp video







 Çıktısı:

 
 



 Son karakter:?