Online Reference

Home

Input Function, Input$ Function

VBA Function, ฟังก์ชัน Input ส่งออกค่าเป็นประเภทข้อมูล Variant (String) ที่เก็บตัวอักษรจากไฟล์ที่เปิดในโหมด Input หรือ Binary
VBA Function, ฟังก์ชัน Input$ ส่งออกค่าเป็นประเภทข้อมูล String ที่เก็บตัวอักษรจากไฟล์ที่เปิดในโหมด Input หรือ Binary

ไวยากรณ์

Input(number, [#]filename )

Input$(number, [#]filename )

ฟังก์ชัน Input และ ฟังก์ชัน Input$ มีไวยากรณ์ของส่วน คือ

ลักษณะการประยุกต์

ข้อมูลที่อ่านด้วยฟังก์ชัน Input สามารถเขียนเป็นไฟล์ด้วย Print# หรือ Put ใช้ฟังก์ชันนี้ในการเปิดโหมด Input sหรือ Binary แต่แตกต่างจากคำสั่ง Input# statement โดยที่ฟังก์ชัน Input อ่านตัวอักษรได้ทั้งหมด รวมถึง เครื่องหมายจุลภาค, แป้น “Enter” (carriage return), linefeeds, เครื่องหมายคำพูด และช่องว่างด้านหน้า

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

หมายเหตุ

• ฟังก์ชัน InputB ใช้สำหรับข้อมูลแบบไบต์ที่เก็บไฟล์ข้อความ (Text file)

ตัวอย่าง

ตัวอย่างการใช้ฟังก์ชัน Input เพื่ออ่านค่าตัวอักษร 1 ตัวจากไฟล์และพิมพ์ออกใน Immediate window สมมติให้ TESTFILE เป็น text file ที่มีข้อมูลตัวอย่างจำนวนหนึ่ง

Dim MyChar

' เปิดไฟล์
Open "TESTFILE" For Input As #1

' วนรอบจนกระทั้งสิ้นสุดไฟล์
Do While Not EOF(1)
  ' ดึง 1 ตัวอักษร
  MyChar = Input(1, #1)
  ' พิมพ์ออกใน Immediate window
  Debug.Print MyChar
Loop

' ปิดไฟล์
Close #1