ฟังก์ชันอินพุต

ส่งกลับสตริงที่มีอักขระจากไฟล์ที่เปิดในโหมดป้อนข้อมูลหรือโหมดไบนารี

ไวยากรณ์

Input(number, [# ], filenumber)

ไวยากรณ์ของฟังก์ชัน Input มีอาร์กิวเมนต์ดังนี้

อาร์กิวเมนต์	คำอธิบาย
ตัวเลข	จำเป็น นิพจน์ตัวเลขที่ถูกต้องใดๆ ซึ่งระบุจํานวนอักขระที่จะส่งกลับ
หมายเลขไฟล์	จำเป็น หมายเลขไฟล์ที่ถูกต้องใดๆ

    

ข้อสังเกต

ข้อมูลที่อ่านด้วยฟังก์ชัน Input มักจะถูกเขียนลงในไฟล์ที่มี Print # หรือ Put ใช้ฟังก์ชันนี้เฉพาะกับไฟล์ที่เปิดในโหมด ป้อนข้อมูล หรือ โหมดไบนารี เท่านั้น

ฟังก์ชัน Input จะส่งกลับอักขระทั้งหมดที่อ่าน ซึ่งไม่เหมือนกับคําสั่ง Input # ฟังก์ชัน Input จะส่งกลับอักขระทั้งหมดที่อ่าน รวมถึงเครื่องหมายจุลภาค อักขระขึ้นบรรทัดใหม่ ตัวดึงข้อมูลบรรทัด เครื่องหมายอัญประกาศ และช่องว่างนําหน้า

เมื่อไฟล์เปิดสําหรับการเข้าถึง แบบไบนารี ความพยายามในการอ่านผ่านไฟล์โดยใช้ฟังก์ชัน Input จนกว่า EOF ส่งกลับ True จะทําให้เกิดข้อผิดพลาด ใช้ฟังก์ชัน LOF และ Loc แทน EOF เมื่ออ่านไฟล์ไบนารีที่มี Input หรือใช้ Get เมื่อใช้ฟังก์ชัน EOF

ตัวอย่าง

ตัวอย่างนี้ใช้ฟังก์ชัน 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.