หมายเหตุ: ฟังก์ชัน วิธีการ วัตถุ หรือคุณสมบัติที่อธิบายไว้ในหัวข้อนี้จะถูกปิดใช้งานถ้า 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 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.
