LibreOffice 7.5 Help
рдЦреБрд▓реНрд▓рд╛ рдЕрдиреБрдХреНрд░рдордмрджреНрдз рдлрд╛рдЗрд▓ рдирд╛рдордмрд╛рдЯ рдбреЗрдЯрд╛ рдкрдвреНрджрдЫ ред
Input #fileNum {,|;} var1 [, var2 [, ...]]
fileNum: Number of the file that contains the data that you want to read. The file must be opened with the Open statement using the key word INPUT.
var: A numeric or string variable that you assign the values read from the opened file to.
рдЖрдЧрдд#рдХрдерди рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рдорд╛рдирдорд╛ рдкрдвреНрдиреБрд╣реЛрд╕реН рд╡рд╛ рдЦреБрд▓рд╛ рдлрд╛рдЗрд▓рдмрд╛рдЯ рд╕реНрдЯреНрд░рд┐рдЩрд╣рд░реВ рд░ рдбреЗрдЯрд╛рдорд╛ рдПрдХ рд╡рд╛ рдПрдХрднрдиреНрджрд╛ рдмрдвреА рдЪрд▓рд╣рд░реВ рдорд╛рдирд╛рдЩреНрдХрди рдЧрд░реНрдиреБрд╣реЛрд╕реН ред рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рдЪрд▓рд▓реЗ рдкрд╣рд┐рд▓реЛ рдлрд┐рд░реНрддрд╛ рд▓рдЧреЗрдХреЛ (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, sFileName As String
Dim sName As String, sValue As Integer
sFileName = "C:\Users\ThisUser\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
' Read data file using Input
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