Open Statement

рдбреЗрдЯрд╛ рдЪреНрдпрд╛рдирд▓ рдЦреЛрд▓реНрджрдЫ ред

Syntax:


Open FileName As String [For Mode] [Access IOMode] [Protected] As [#]FileNumber As Integer [Len = DatasetLength]i37502

Parameters:

FileName: Name and path of the file to open. If you try to read a file that does not exist (Access = Read), an error message appears. If you try to write to a file that does not exist (Access = Write), a new file is created.

рдореЛрдб:рдХреБрдЮреНрдЬреА рд╢рдмреНрдж рдЬрд╕рд▓реЗ рдлрд╛рдЗрд▓ рдореЛрдб рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдЧрд░реНрджрдЫ ред рд╡реИрдз рдорд╛рди: рдЬреЛрдбрд┐рдПрдХреЛ (рд╢реНрд░реГрдЩреНрдЦрд▓рд╛ рдлрд╛рдЗрд▓ рдЬреЛрдбрд┐рдПрдХреЛ),рдмрд╛рдЗрдирд░рд┐ (рдбреЗрдЯрд╛рд▓реЗ рдкрд╛рдЙрдиреБ рд░ рд░рд╛рдЦреНрдиреБ рдкреНрд░рдпреЛрдЧ рдЧрд░реНрджреИ рдмрд╛рдЗрдЯрд╣рд░реВрджреНрд╡рд╛рд░рд╛ рдкрд╣реБрдБрдЪ рдмрдврд╛рдЙрди рд╕рдХреНрдЫ),рдЖрдЧрдд(рдкрдвреНрдирдХреЛрд▓рд╛рдЧрд┐ рдбреЗрдЯрд╛ рдЪреНрдпрд╛рдирд▓ рдЦреЛрд▓реНрдЫ), рдирд┐рд░реНрдЧрдд (рд▓реЗрдЦреНрдирдХрд╛ рд▓рд╛рдЧрд┐ рдбреЗрдЯрд╛ рдЪреНрдпрд╛рдирд▓ рдЦреЛрд▓реНрдЫ) рд░ рдЕрдирд┐рдпрдорд┐рдд (рд╕рдореНрдмрдиреНрдзрд┐рдд рдлрд╛рдЗрд▓рд╣рд░реВ рд╕рдореНрдкрд╛рджрди рдЧрд░реНрджрдЫ) ред

рдЖрдЧрдд рдирд┐рд░реНрдЧрдд рдореЛрдб: рдХреБрдЮреНрдЬреА рд╢рдмреНрджрд▓реЗ рдкрд╣реБрдБрдЪ рдкреНрд░рдХрд╛рд░ рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдЧрд░реНрджрдЫ ред рд╡реИрдз рдорд╛рди : рдкрдвреНрди(рдкрдвреНрдиреЗ-рдорд╛рддреНрд░), рд▓реЗрдЦрди(рд▓реЗрдЦрди-рдорд╛рддреНрд░), рдкрдвреНрди рд▓реЗрдЦреНрди (рджреБрдмреИ) ред

рд╕реБрд░рдХреНрд╖рд┐рдд: рдХреБрдЮреНрдЬреА рд╢рдмреНрджрд▓реЗ рдЦреЛрд▓рд┐рд╕рдХреЗрдкрдЫрд┐рдХреЛ рдлрд╛рдЗрд▓рдХреЛ рд╕реБрд░рдХреНрд╖рд╛ рд╡рд╕реНрддреБрд╕реНрдерд┐рддрд┐ рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдЧрд░реНрджрдЫ ред рд╡реИрдз рдорд╛рдирд╣рд░реВ: рдмрд╛рдБрдбрдлрд╛рдб рдЧрд░рд┐рдПрдХреЛ (рдлрд╛рдЗрд▓ рдЕрд░реНрдХреЛ рдЕрдиреБрдкреНрд░рдпреЛрдЧрд╣рд░реВрдорд╛ рдЦреБрд▓реНрди рдкрдирд┐ рд╕рдХреНрдиреЗрдЫ) рдкрдвреНрди рддрд╛рд▓рд╛ рд▓рдЧрд╛рдПрдХреЛ (рдкрдардирдХреЛ рдмрд┐рд░реБрдзреНрдж рд╕реБрд░рдХреНрд╖рд┐рдд рдЧрд░реЗрдХреЛ рдлрд╛рдЗрд▓) рд▓реЗрдЦреНрди рддрд╛рд▓рд╛ рд▓рдЧрд╛рдПрдХреЛ (рд▓реЗрдЦрдирдХреЛ рдмрд┐рд░реБрдзреНрдж рд╕реБрд░рдХреНрд╖рд┐рдд рдЧрд░реЗрдХреЛ рдлрд╛рдЗрд▓) рдкрдвреНрди рд▓реЗрдЦреНрди рддрд╛рд▓рд╛ рд▓рд╛рдЧрд╛рдПрдХреЛ ( рдЕрд╕реНрд╡рд┐рдХреГрдд рдкрд╣реБрдБрдЪ рдлрд╛рдЗрд▓) ред

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

DatasetLength: For random access files, set the length of the records.

note

рддрдкрд╛рдИрдБрд▓реЗ рдХреЗрдмрд▓ рдЦреБрд▓рд╛ рдХрдерди рд╕рдБрдЧ рдЦреБрд▓реЗрдХреЛ рдлрд╛рдЗрд▓рдХрд╛ рд╕рд╛рдордЧреНрд░реАрд╣рд░реВ рдорд╛рддреНрд░ рдкрд░рд┐рдорд╛рд░реНрдЬрди рдЧрд░реНрди рд╕рдХреНрдиреБрд╣реБрдиреНрдЫ ред рдпрджрд┐ рддрдкрд╛рдИрдБрд▓реЗ рдлрд╛рдЗрд▓ рдЦреЛрд▓реНрди рдкреНрд░рдпрд╛рд╕ рдЧрд░реНрдиреБрднрдпреЛ рднрдиреЗ рддреНрдпреЛ рдкрд╣рд┐рд▓реЗрдиреИ рдЦреБрд▓реЗрдХреЛ рд╣реБрдиреНрдЫ, рддреНрд░реБрдЯрд┐ рд╕рдиреНрджреЗрд╢ рдкрдард╛рдЙрдБрдЫ ред


Example:


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

Please support us!