ຟັງຊັນ Input [VBA]
ສົ່ງຄືນສະຕຣີມ (stream) ທີ່ເປີດຢູ່ຂອງໄຟລ໌ Input ຫຼື Binary (ເປັນຂໍ້ຄວາມ).
ຄ່າຄົງທີ່, ຟັງຊັນ ຫຼື ອັອບເຈັກນີ້ຈະຖືກເປີດໃຊ້ດ້ວຍຄຳສັ່ງ Option VBASupport 1 ທີ່ວາງໄວ້ກ່ອນລະຫັດໂປຣແກຣມໃນໂມດູນ.
Input( Number as Integer, [# ] FileNumber as Integer)
String
Number: (ຈຳເປັນ) ນິພົດຕົວເລກທີ່ກຳນົດຈຳນວນຕົວອັກສອນທີ່ຈະສົ່ງຄືນ.
#: (ເລືອກໄດ້).
FileNumber: (ຈຳເປັນ) ໝາຍເລກໄຟລ໌ໃດໜຶ່ງທີ່ຖືກຕ້ອງ.
REM ***** BASIC *****
Option VBASupport 1
Sub Example_Input
Dim MyData
Open "MyDataFile.txt" For Input As #1
Do While Not EOF(1)
MyData = Input(1, #1)
Print MyData
Loop
Close #1
End Sub
