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ề Chuỗi chứa các ký tự từ tệp được mở ở chế độ Nhập hoặcNhị phân .
Cú pháp
Input(number, [# ] filenumber)
Cú pháp của hàm Input có những đối số sau:
| Đối số | Mô tả |
|---|---|
| số | Bắt buộc. Bất kỳ biểu thức số hợp lệ nào chỉ định số ký tự cần trả về. |
| số tệp | Bắt buộc. Bất kỳ số tệp hợp lệ nào. |
Chú thích
Dữ liệu đọc bằng hàm Input thường được ghi vào tệp bằng Print # hoặc Put. Chỉ sử dụng hàm này với tệp mở ở chế độ Nhập hoặcNhị phân .
Không giống như câu lệnh Input # , hàm Input trả về tất cả các ký tự mà nó đọc, bao gồm dấu phẩy, dấu xuống dòng, nguồn cấp dòng, dấu ngoặc kép và dấu cách đầu dòng.
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 .
Lưu ý
Sử dụng hàm InputB cho dữ liệu byte có trong tệp văn bản. Với InputB, số chỉ định số byte cần trả về chứ không phải số ký tự cần trả về.
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 Input để đọc lần lượt từng ký tự từ một tệp và in tệp đó vào cửa sổ Tức thời . Ví dụ này giả định rằng đó TESTFILE là một tệp văn bản với một vài dòng dữ liệu mẫu.
Dim MyChar
Open "TESTFILE" For Input As #1 ' Open file.
Do While Not EOF(1) ' Loop until end of file.
MyChar = Input(1, #1) ' Get one character.
Debug.Print MyChar ' Print to the Immediate window.
Loop
Close #1 ' Close file.