Online Reference

Home

EOF Function

VBA Function, ส่งออกค่าเป็นประเภทข้อมูล Integer ที่เก็บค่าทางตรรกะเป็น True เมื่อสิ้นสุดไฟล์ที่เปิด สำหรับ Random หรือ Input แบบต่อเนื่องมาถึง

ไวยากรณ์

EOF(filenumber )

อากิวเมนต์ filenumber เป็นประเภทข้อมูลเลขจำนวนเต็มใดๆ ของหมายเลขไฟล์ที่มีจริง

ลักษณะการประยุกต์

การใช้ฟังก์ชัน EOF เพื่อหลีกเลี่ยงความผิดพลาดที่เกิดจากความพยายาม Input เลยจุดสิ้นสุดไฟล์

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

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

ดูเพิ่มเติม

Get Statement, ฟังก์ชัน Loc, ฟังก์ชัน LOF, Open Statement

ตัวอย่าง

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

Dim InputData

' เปิดไฟล์สำหรับ Input
Open "MYFILE" For Input As #1

' ตรวจการสิ้นสุดไฟล์
Do While Not EOF(1)
  ' อ่านบรรทัดของข้อมูล  
  Line Input #1, InputData
  ' พิมพ์ออกใน Immediate window
  Debug.Print InputData
Loop

' ปิดไฟล์
Close #1