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