Input# Statement
āĻāĻāĻāĻŋ āĻŽā§āĻā§āϤ āĻĒāϰā§āϝāĻžāϝāĻŧāĻā§āϰāĻŽāĻŋāĻ āĻĢāĻžāĻāϞ āĻšāϤ⧠āĻĄāĻžāĻāĻž āĻĒāĻĄāĻŧāĻā§āĨ¤
āϏāĻŋāύāĻā§āϝāĻžāĻā§āϏ:
Input #FileNumber As Integer; var1[, var2[, var3[,...]]]
āĻĒā§āϝāĻžāϰāĻžāĻŽāĻŋāĻāĻžāϰ:
FileNumber:āĻĄāĻžāĻāĻž āϧāĻžāϰāĻŖāĻāĻžāϰ⧠āĻĢāĻžāĻāϞā§āϰ āϏāĻāĻā§āϝāĻž āϝāĻž āĻāĻĒāύāĻŋ āĻĒāĻĄāĻŧāϤ⧠āĻāĻžāύāĨ¤ āĻĢāĻžāĻāϞāĻāĻŋ āĻ āĻŦāĻļā§āϝāĻ 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
' Write data ( which we will read later with Input ) to file
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
' Read data file using Input
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