Lưu ý
Hàm, phương pháp, đối tượng hoặc thuộc tính được mô tả trong chủ đề này bị tắt nếu Dịch vụ Biểu thức Microsoft Jet đang chạy ở chế độ hộp cát, điều này ngăn chặn việc đánh giá các biểu thức không an toàn tiềm ẩn. Để biết thêm thông tin về chế độ hộp cát, hãy tìm kiếm "chế độ hộp cát" trong Trợ giúp.
Trả về một Số nguyên chứa giá trị Boolean True khi đã đạt đến cuối tệp được mở cho Nhập ngẫunhiên hoặc tuần tự.
Cú pháp
EOF(số tệp)
Đối số filenumberbắt buộc là một Số nguyên chứa bất kỳ số tệp hợp lệ nào.
Chú thích
Dùng EOF để tránh lỗi tạo ra khi cố gắng nhận đầu vào quá cuối tệp.
Hàm EOF trả về False cho đến khi đạt đến cuối tệp. Với các tệp được mở cho truy nhập Ngẫu nhiên hoặc Nhị phân , EOF trả về False cho đến khi câu lệnh Get được thực hiện gần nhất không thể đọc toàn bộ bản ghi.
Với các tệp được mở để truy nhập Nhị phân , việc cố gắng đọc qua tệp bằng cách sử dụng hàm Input cho đến khi EOF trả về True sẽ tạo ra lỗi. Sử dụng các hàm LOF và Loc thay cho EOF khi đọc tệp nhị phân bằng Input, hoặc sử dụng Get khi sử dụng hàm EOF . Với các tệp được mở cho Đầu ra, hàm EOF luôn trả về True.
Ví dụ
Lưu ý
Các ví dụ sau thể hiện cách sử dụng hàm này trong mô-đun Visual Basic for Applications (VBA). Để biết thêm thông tin về cách làm việc với VBA, chọn Tham khảo dành cho Nhà phát triển trong danh sách thả xuống cạnh Tìm kiếm, rồi nhập một hoặc nhiều từ vào hộp tìm kiếm.
Ví dụ này sử dụng hàm EOF để phát hiện kết thúc của tệp. Ví dụ này giả định rằng đó MYFILE là một tệp văn bản có một vài dòng văn bản.
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