หมายเหตุ: ฟังก์ชัน วิธีการ วัตถุ หรือคุณสมบัติที่อธิบายไว้ในหัวข้อนี้จะถูกปิดใช้งานถ้า Microsoft Jet Expression Service ทํางานในโหมด Sandbox ซึ่งจะป้องกันการประเมินนิพจน์ที่อาจไม่ปลอดภัย สําหรับข้อมูลเพิ่มเติมเกี่ยวกับโหมด Sandbox ให้ค้นหา "โหมด Sandbox" ในวิธีใช้
ส่งกลับจํานวนเต็มที่มีค่า บูลีนเป็น True เมื่อถึงจุดสิ้นสุดของไฟล์ที่เปิดสําหรับการป้อนข้อมูลแบบสุ่มหรือตามลําดับ
ไวยากรณ์
EOF( filenumber )
อาร์กิวเมนต์ filenumber ที่จําเป็นเป็น จํานวนเต็ม ที่มี หมายเลขไฟล์ ที่ถูกต้อง
ข้อสังเกต
ใช้ EOF เพื่อหลีกเลี่ยงข้อผิดพลาดที่สร้างขึ้นโดยพยายามรับข้อมูลป้อนเข้าผ่านจุดสิ้นสุดของไฟล์
ฟังก์ชัน EOF จะส่งกลับค่า False จนกว่าจะถึงจุดสิ้นสุดของไฟล์ เมื่อเปิดไฟล์สําหรับการเข้าถึง แบบสุ่ม หรือ ไบนารีEOF จะส่งกลับเป็น False จนกว่าคําสั่ง Get ที่ดําเนินการล่าสุดจะไม่สามารถอ่านทั้งระเบียนได้
เมื่อเปิดไฟล์สําหรับการเข้าถึง แบบไบนารี ความพยายามในการอ่านไฟล์โดยใช้ฟังก์ชัน Input จนกว่า EOF จะส่งกลับ True จะเกิดข้อผิดพลาด ใช้ฟังก์ชัน LOF และ Loc แทน EOF เมื่ออ่านไฟล์ไบนารีด้วยการป้อนข้อมูล หรือใช้ Get เมื่อใช้ฟังก์ชัน EOF เมื่อเปิดไฟล์สําหรับ เอาท์พุทEOF จะส่งกลับ เป็น True เสมอ
ตัวอย่าง
หมายเหตุ: ตัวอย่างต่อไปนี้จะสาธิตการใช้ฟังก์ชันนี้ในโมดูล Visual Basic for Applications (VBA) สําหรับข้อมูลเพิ่มเติมเกี่ยวกับการทํางานกับ VBA ให้เลือก การอ้างอิงสําหรับนักพัฒนา ในรายการดรอปดาวน์ที่อยู่ถัดจาก ค้นหา แล้วใส่คําอย่างน้อยหนึ่งคําในกล่องค้นหา
ตัวอย่างนี้ใช้ฟังก์ชัน 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
