ฟังก์ชัน EOF

ส่งกลับจํานวนเต็มที่มีค่าบูลีน True เมื่อถึงจุดสิ้นสุดของไฟล์ที่เปิดสําหรับการป้อนข้อมูลแบบสุ่มหรือแบบต่อเนื่อง

ไวยากรณ์

EOF(filenumber)

อาร์กิวเมนต์ filenumberที่จําเป็นคือ จํานวนเต็มที่มีหมายเลขไฟล์ที่ถูกต้อง

ข้อสังเกต

ใช้ EOF เพื่อหลีกเลี่ยงข้อผิดพลาดที่เกิดขึ้นโดยพยายามที่จะป้อนข้อมูลผ่านจุดสิ้นสุดของไฟล์

ฟังก์ชัน EOF ส่งกลับ ค่า False จนกว่าจะถึงจุดสิ้นสุดของไฟล์ เมื่อเปิดไฟล์สําหรับการเข้าถึง แบบสุ่ม หรือ ไบนารีEOF จะ ส่งกลับ ค่า False จนกว่าคําสั่ง Get ที่ดําเนินการล่าสุดจะไม่สามารถอ่านทั้งระเบียนได้

เมื่อไฟล์เปิดสําหรับการเข้าถึง แบบไบนารี ความพยายามในการอ่านผ่านไฟล์โดยใช้ฟังก์ชัน Input จนกว่า EOF ส่งกลับ True จะทําให้เกิดข้อผิดพลาด ใช้ฟังก์ชัน LOF และ Loc แทน EOF เมื่ออ่านไฟล์ไบนารีที่มี Input หรือใช้ Get เมื่อใช้ฟังก์ชัน EOF เมื่อเปิดไฟล์สําหรับผลลัพธ์EOF จะส่งกลับ True เสมอ

ตัวอย่าง

ตัวอย่างนี้ใช้ฟังก์ชัน EOF เพื่อตรวจหาจุดสิ้นสุดของไฟล์ ตัวอย่างนี้จะถือว่าเป็น MYFILE ไฟล์ข้อความที่มีข้อความสองสามบรรทัด

Dim InputData
' Open file for input.
Open "MYFILE" For Input As #1
' Check for end of file.
Do While Not EOF(1)
    ' Read line of data.
    Line Input #1, InputData  
    ' Print to the Immediate window.  
    Debug.Print InputData    
Loop
' Close file.
Close #1