FreeFile Function
рдлрд╛рдЗрд▓ рдЦреЛрд▓реНрдирдХрд╛ рд▓рд╛рдЧрд┐ рдЕрд░реНрдХреЛ рдЙрдкрд▓рдмреНрдз рдлрд╛рдЗрд▓ рдирдореНрдмрд░ рдлрд░реНрдХрд╛рдЙрдиреБрд╣реЛрд╕реН ред рд╣рд╛рд▓реИ рдЦреЛрд▓реЗрдХреЛ рдлрд╛рдЗрд▓рд▓реЗ рдкрд╣рд┐рд▓реЗ рдиреИ рдкреНрд░рдпреЛрдЧ рдЧрд░рд┐рд░рд╣реЗрдХреЛ рдлрд╛рдЗрд▓ рдирдореНрдмрд░рдХреЛ рдкреНрд░рдпреЛрдЧ рдЧрд░реЗрд░ рдлрд╛рдЗрд▓ рдЦреЛрд▓реНрди рдпреЛ рдкреНрд░рдХрд╛рд░реНрдп рдкреНрд░рдпреЛрдЧ рдЧрд░реНрдиреБрд╣реЛрд╕реН ред
рдЗрдиреНрдЯрд┐рдЬрд░
рдпреЛ рдкреНрд░рдХрд╛рд░реНрдп рдЦреБрд▓рд╛ рдХрдердирдорд╛ рдЕрдЧрд╛рдврд┐ рдкрдЯреНрдЯреА рддреБрд░реБрдиреНрддреИ рдорд╛рддреНрд░ рдкреНрд░рдпреЛрдЧ рдЧрд░реНрди рд╕рдХрд┐рдиреНрдЫ ред рд╕реНрд╡рддрдиреНрддреНрд░ рдлрд╛рдЗрд▓рд▓реЗ рдЕрд░реНрдХреЛ рдЙрдкрд▓рдмреНрдз рдлрд╛рдЗрд▓ рдирдореНрдмрд░ рдлрд░реНрдХрд╛рдЙрдБрдЫ рддрд░ рдпрд╕рд▓рд╛рдИ рд╕рдЮреНрдЪрд┐рдд рдЧрд░реЗрд░ рд░рд╛рдЦреНрди рд╕рдХреНрджреИрди ред
рддреНрд░реБрдЯрд┐ рд╕рдЩреНрдХреЗрддрд╣рд░реВ
5 рдЕрд╡реИрдз рдХрд╛рд░реНрдп-рд╡рд┐рдзрд┐ рдХрд▓
67 рдирд┐рдХреИ рдзреЗрд░реИ рдлрд╛рдЗрд▓рд╣рд░реВ
Sub ExampleWorkWithAFile
Dim iNumber As Integer
Dim sLine As String
Dim aFile As String
Dim sMsg As String
aFile = "C:\Users\ThisUser\data.txt"
iNumber = Freefile
Open aFile For Output As #iNumber
#iNumber, "рдпреЛ рдкрд╛рдардХреЛ рд▓рд╛рдЗрди рд╣реЛ" рдореБрджреНрд░рдг рдЧрд░реНрдиреБрд╣реЛрд╕реН
#iNumber рдореБрджреНрд░рдг рдЧрд░реНрдиреБрд╣реЛрд╕реН, "This is another line of text"
Close #iNumber
iNumber = Freefile
Open aFile For Input As iNumber
While Not eof(iNumber)
Line Input #iNumber, sLine
If sLine <>"" Then
sMsg = sMsg & sLine & chr(13)
End If
Wend
Close #iNumber
MsgBox sMsg
End Sub
Sub ExampleWorkWithAFile
Dim iNumber As Integer
Dim sLine As String
Dim aFile As String
Dim sMsg As String
aFile = "~/data.txt"
iNumber = Freefile
Open aFile For Output As #iNumber
Print #iNumber, "This is a line of text"
Print #iNumber, "This is another line of text"
Close #iNumber
iNumber = Freefile
Open aFile For Input As iNumber
While Not eof(iNumber)
Line Input #iNumber, sLine
If sLine <>"" Then
sMsg = sMsg & sLine & chr(13)
End If
Wend
Close #iNumber
MsgBox sMsg
End Sub