AtEndOfStream

คุณสมบัติของ TextStream AtEndOfStream'ส่งกลับค่า True ถ้าตัวชี้เป็นตำแหน่งที่ส่วนท้ายของแฟ้มที่มิฉะนั้นจะส่งกลับเท็จ

หมายเหตุ : คุณสมบัตินี้จะทำงานกับ TextStream ที่เปิดสำหรับการอ่าน

ลองมาตัวอย่างเช่น
สมมติว่าคุณมีแฟ้มข้อความ (C : \ test.txt) ที่มีเนื้อหาดังต่อไปนี้

 



 สวัสดีชื่อของคุณคืออะไร







 ชื่อของฉันคือ Marcello!

 

 สลัว FS, t, x









 'ฉันเปิดหนึ่งตัวอย่างของ FSO







 การตั้งค่า FS = Server.CreateObject ("Scripting.FileSystemObject")

 







 'ฉันเปิดในโหมดอ่าน







 การตั้งค่า T = fs.OpenTextFile ("C : \ test.txt", 1, เท็จ)









 'ฉันสร้างห่วงที่จะหยุดที่จุดสิ้นสุดของแฟ้มที่







 ทำในขณะที่ t.AtEndOfStream <> จริง



  



 x = t.Read (1)







 ห่วง









 'ฉันปิดทุกอย่าง







 t.Close







 การตั้งค่า T = ไม่มีอะไร







 การตั้งค่า FS = ไม่มีอะไร









 วิดีโอแม่พิมพ์'







 ผลลัพธ์คือ

 
 



 ตัวอักษรตัวสุดท้ายคือ :!