Applies ToAccess cho Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

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ề Chuỗi chứa các ký tự từ một tệp được mở trong chế độ Nhậphoặc Nhị phân.

Cú pháp

Input( number, [# ] filenumber)

pháp hàm Input có các đối số sau đây:

Đối số

Mô tả

number

Bắt buộc. Bất kỳ 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ỳ tài khoản hợp số tệp.

Chú thích

Dữ liệu được đọc bằng hàm Input thường được viết vào một tệp với In # hoặc Đặt. Chỉ sử dụng hàm này với các tệp được mở trong chế độ Nhậphoặc Nhị phân.

Không giống như câu lệnh Đầu vào # , 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, dòng chữ, dấu ngoặc kép và dấu cách ở đầu.

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 .

Lưu ý:  Sử dụng hàm InputB cho dữ liệu byte chứa trong các tệp văn bản. Với InputB, số sẽ xác định số byte cần trả về chứ không phải là 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 từng ký tự một từ tệp và in vào cửa sổ Tức thời. Ví dụ này giả TESTFILE là một tệp văn bản với một vài dòng dữ liệu mẫu.

Dim MyCharOpen "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.LoopClose #1    ' Close file.

Bạn cần thêm trợ giúp?

Bạn muốn xem các tùy chọn khác?

Khám phá các lợi ích của gói đăng ký, xem qua các khóa đào tạo, tìm hiểu cách bảo mật thiết bị của bạn và hơn thế nữa.

Cộng đồng giúp bạn đặt và trả lời các câu hỏi, cung cấp phản hồi và lắng nghe ý kiến từ các chuyên gia có kiến thức phong phú.