Input# Statement
α’αΆαβαα·ααααααβααΈβα―αααΆαβαααβααΆαβααΎαβαβααααΆΒ α
ααΆαααβααααααα α
Input #FileNumber As Integer; var1[, var2[, var3[,...]]]
αααΆαααΆαααααα α
FileNumber α α ααα½αβα―αααΆαβαααβααΆαβαα·αααααα αααβα’αααβα ααβα’αΆα α α―αααΆαβααααΌαβααβααΎαβααΆαα½αβααα ααααΈβαααααβααΆααα Open αααβααααΎβααΆαααβαααααΉα INPUTΒ α
var α α’αααβααα α¬βααααβα’ααααβαααβα’αααβαααααβαααααβαααβα’αΆαβααΈβα―αααΆαβαααβααΆαβααΎαβαα Β α
ααα ααααΈβαααααβααΆααα Input# α’αΆαβαααααβααα α¬βααααβα’ααααβααΈβα―αααΆαβαααβααΎα αα·αβαααααβαααααβαα·ααααααβαα βα’αααβαα½α α¬βα αααΎαΒ α α’αααβαααβααααΌαβααΆαβα’αΆαβαα αΌαβαααβα αΌαβαααααΆααβααααΈβααααΌα (Asc=13) α α»αβαααααΆαα (Asc=10) ααααααΆ α¬βαααααΆβαααααΒ α α’αααβααααβα’ααααβααααΌαβααΆαβα’αΆαβαα αΌαβαααβα αΌαβαααααΆααβααααΈ (Asc=13) α α»αβαααααΆαα (Asc=10) α¬βαααααΆβαααααΒ α
αα·αααααα αα·αβααααααβαα·ααααααβαααα»αβα―αααΆαβαααβααΆαβααΎα ααααΌαβααβααα βα‘αΎαβαααα»αβααααΆααβααΌα βααααΆβαα βααΉαβα’αααβαααβααααΌαβααΆαβα α»α βαααα»αβαααΆαααΆαααααα "var"Β α ααααα·αβααΎβα’αααβαααααβαααααβαα·αβαααβααΆβαααβαα βα’αααβααα "var" ααααΌαβααΆαβαααααβααααα "0"Β α
αααααβααααΆβαααβααααΌαβααΆαβαααααβαααβαααααΆβααααα αααααΆβαααααβαα·αβα’αΆα βααααΌαβααΆαβαααααβαααααβαα βα’αααβααααβα’ααααΒ α αααααΆβαααααα (") αααα»αβα―αααΆαβααβαα·αβααααΌαβααΆαβααααβααβαααΒ α ααααα·αβααΎβα’αααβα ααβα’αΆαβαα½βα’ααααβααΆααβαααβααΈβα―αααΆα ααααΎβααα ααααΈβαααααβααΆααα Line Input# ααΎααααΈβα’αΆαβα―αααΆαβα’αααααβαα»ααα (α―αααΆαβαααβααΆαβααβαα½βα’ααααβα’αΆα βααααα»ααα) ααααβαα½αβαα½αβαΒ α
ααααα·αβααΎβαα βαααβα α»αβα―αααΆα αααβαααβα’αΆαβααΆαα»βαα·αααααα ααα α»αβαα½αβααΎαβα‘αΎα αα·αββααααΎαααΆαβααααΌαβααΆαβααααααΒ α
α§ααΆα ααα α
Sub ExampleWorkWithAFile
Dim iCount As Integer
Dim sName As String
Dim sValue As Integer
Dim sFileName As String
sFileName = "c:\data.txt"
iCount = Freefile
' αααααβαα·αααααα (αααβααΎαβααΉαβα’αΆαβαα βαααβαααααβααΆαα½αβααααααΆαβαααα αΌα) αα ααΆααβα―αααΆα
Open sFileName For Output As iCount
sName = "Hamburg"
sValue = 200
Write #iCount, sName, sValue
sName = "New York"
sValue = 300
Write #iCount, sName, sValue
sName = "Miami"
sValue = 459
Write #iCount, sName, sValue
Close #iCount
iCount = Freefile
' α’αΆαβα―αααΆαβαα·ααααααβαααβααααΎβααααααΆαβαααα αΌα
Open sFileName For Input As iCount
Input #iCount; sName, sValue
MsgBox sName & " " & sValue
Input #iCount; sName, sValue
MsgBox sName & " " & sValue
Input #iCount; sName, sValue
MsgBox sName & " " & sValue
Close #iCount
End Sub