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