Lưu ý: Hàm, phương pháp, đối tượng hoặc thuộc tính được mô tả trong chủ đề này sẽ bị vô hiệu hóa nếu Dịch vụ Biểu thức Phản lực của Microsoft đang chạy trong chế độ hộp cát, điều này ngăn không cho đá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á BooleanTrue khi đã đạt đến cuối tệp được mở cho Đầu vào Ngẫu nhiên hoặc tuần tự.
Cú pháp
EOF( filenumber )
Số tệp bắt buộctham đối là một Số nguyên chứa bất kỳ số nguyên hợp lệ số tệp.
Chú thích
Sử dụng EOF để tránh lỗi được tạo ra bằng cách tìm cách đưa đầu vào qua phần cuối của 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ẫunhiên hoặc Nhị phân, EOF trả về False cho đến khi câu lệnh Get được thực hiện cuối cùng không thể đọc toàn bộ bản ghi.
Với các tệp được mở cho Truy nhập nhị phân, một nỗ lực để đọc qua tệp bằng cách sử dụng hàm Input cho đến khi hàm EOF trả về True sẽ tạo ra lỗi. Sử dụng các hàm LOFvà Loc thay vì 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, 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 phần cuối của tệp. Ví dụ này giả MYFILE là 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
