Line Input # Statement

рдЪрд▓рд╣рд░реВ рднрд┐рддреНрд░ рдХреНрд░рдорд╛рдмрджреНрдз рдлрд╛рдЗрд▓рдмрд╛рдЯ рд╕реНрдЯреНрд░рд┐рдЩрд╣рд░реВ рдкрдвреНрджрдЫ ред

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


рд░реЗрдЦрд╛ рдЖрдЧрдд рдЗрдиреНрдЯрд┐рдЬрд░рдХреЛ рд░реВрдкрдорд╛ #FileNumber, рд╕реНрдЯреНрд░рд┐рдЩрдХреЛ рд░реВрдкрдорд╛ рдЪрд▓

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

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

рдЪрд▓:рдпреЛ рдЪрд▓рдХреЛ рдирд╛рдо рддреНрдпреЛ рдкрд░рд┐рдгрд╛рдордорд╛ рднрдгреНрдбрд╛рд░рдг рднрдПрдХреЛ рд╣реБрдиреНрдЫ ред

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

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


Sub ExampleWorkWithAFile
Dim iNumber As Integer
Dim sLine As String
Dim aFile As String
Dim sMsg As String
    aFile = "c:\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