Input# Statement

рдЦреБрд▓реНрд▓рд╛ рдЕрдиреБрдХреНрд░рдордмрджреНрдз рдлрд╛рдЗрд▓ рдирд╛рдордмрд╛рдЯ рдбреЗрдЯрд╛ рдкрдвреНрджрдЫ ред

рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:

рдЗрдиреНрдЯрд┐рдЬрд░рдХреЛ рд░реВрдкрдорд╛ рдЖрдЧрдд #FileNumber ; varрез[, varреи[, varрей[,...]]]

рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ:

рдлрд╛рдЗрд▓ рдирдореНрдмрд░:рдлрд╛рдЗрд▓рдХреЛ рдирдореНрдмрд░рд▓реЗ рддрдкрд╛рдИрдБрд▓реЗ рдкрдвреНрди рдЪрд╛рд╣реЗрдХреЛ рдбреЗрдЯрд╛ рд╕рдорд╛рд╡реЗрд╢ рдЧрд░реНрджрдЫ ред рдХреБрдЮреНрдЬреА рд╢рдмреНрдж INPUT рдкреНрд░рдпреЛрдЧ рдЧрд░реЗрд░ рдЦреБрд▓реНрд▓рд╛ рдХрдерди рд╕рдБрдЧ рдпреЛ рдлрд╛рдЗрд▓ рдЦреЛрд▓реНрдиреБ рдкрд░реНрджрдЫ ред

рдЪрд▓: рддрдкрд╛рдИрдБрд▓реЗ рдорд╛рдирд╣рд░реВ рдорд╛рдирд╛рдЩреНрдХрди рдЧрд░реНрдиреБ рднрдПрдХреЛ рдПрдЙрдЯрд╛ рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рд╡рд╛ рд╕реНрдЯреНрд░рд┐рдЩ рдЪрд▓ рдЦреЛрд▓реНрдиреБ рдкрд░реНрдиреЗ рдлрд╛рдЗрд▓рдмрд╛рдЯ рдкрдвреНрдиреБрд╣реЛрд╕реН ред

рдЖрдЧрдд#рдХрдерди рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рдорд╛рдирдорд╛ рдкрдвреНрдиреБрд╣реЛрд╕реН рд╡рд╛ рдЦреБрд▓рд╛ рдлрд╛рдЗрд▓рдмрд╛рдЯ рд╕реНрдЯреНрд░рд┐рдЩрд╣рд░реВ рд░ рдбреЗрдЯрд╛рдорд╛ рдПрдХ рд╡рд╛ рдПрдХрднрдиреНрджрд╛ рдмрдвреА рдЪрд▓рд╣рд░реВ рдорд╛рдирд╛рдЩреНрдХрди рдЧрд░реНрдиреБрд╣реЛрд╕реН ред рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рдЪрд▓рд▓реЗ рдкрд╣рд┐рд▓реЛ рдлрд┐рд░реНрддрд╛ рд▓рдЧреЗрдХреЛ (Asc=резрей),рд░реЗрдЦрд╛ рдлрд┐рдб (Asc=резреж), рдЦрд╛рд▓реА рд╕реНрдерд╛рди рд╡рд╛ рдЕрд▓реНрдкрд╡рд┐рд░рд╛рдо рд╕рдореНрдо рдкрдвреНрдЫ ред рд╕реНрдЯреНрд░рд┐рдЩрд╣рд░реВ рдЪрд▓рд╣рд░реВрд▓реЗ рдкрд╣рд┐рд▓реЛ рдлрд┐рд░реНрддрд╛ рд▓рдЧреЗрдХреЛ (Asc=резрей),рд░реЗрдЦрд╛ рдлрд┐рдб (Asc=резреж), рд╡рд╛ рдЕрд▓реНрдкрд╡рд┐рд░рд╛рдо рд╕рдореНрдо рдкрдвреНрдЫрдиреН ред

рдкрд░рд╛рдорд┐рддрд┐рд░рдорд╛ "var" рдкрд╛рд╕ рднрдПрдХрд╛ рдЪрд▓рд╣рд░реВрдХреЛ рд░реВрдкрдорд╛ рдЙрд╣реА рдХреНрд░рдордорд╛ рдЦреБрд▓реЗрдХрд╛ рдлрд╛рдЗрд▓рдорд╛ рдбреЗрдЯрд╛ рд░ рдбреЗрдЯрд╛ рдкреНрд░рдХрд╛рд╣рд░реВ рджреЗрдЦрд╛ рдкрд░реНрджрдЫрдиреН ред рдпрджрд┐ рдЕ-рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рдорд╛рдирд╣рд░реВ рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рдЪрд▓рд╣рд░реВрд▓рд╛рдИ рдорд╛рдирд╛рдЩреНрдХрди рдЧрд░реЗрдХреЛ рдЦрдгреНрдбрдорд╛, "реж"рдХреЛ рдорд╛рди"var"рдорд╛ рдорд╛рдирд╛рдВрдЩреНрдХрди рд╣реБрдиреНрдЫ ред

Records that are separated by commas cannot be assigned to a string variable. Quotation marks (") in the file are disregarded as well. If you want to read these characters from the file, use the Line Input# statement to read pure text files (files containing only printable characters) line by line.

рдбреЗрдЯрд╛ рддрддреНрд╡ рдкрдврд┐рд░рд╣реЗрдХреЛ рдмреЗрд▓рд╛ рдлреИрд▓реНрдпрд╛рдИрдПрдХреЛ рдлрд╛рдЗрд▓рдХреЛ рдЕрдиреНрддреНрдп рднрдПрдХреЛ рдЦрдгреНрдбрдорд╛ рддреНрд░реБрдЯрд┐ рдЖрдЙрдЫ рд░ рдкреНрд░рдХреНрд░рд┐рдпрд╛ рддреНрдпрд╛рдЧреНрдиреБ рдкрд░реНрджрдЫ ред

рдЙрджрд╛рд╣рд░рдг:


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