Put Statement

рдмрд╛рдЗрдирд░рд┐ рдлрд╛рдЗрд▓рдорд╛ рд╕рдореНрдмрдиреНрдзрд┐рдд рдлрд╛рдЗрд▓ рд╡рд╛ рдмрд╛рдЗрдЯрд╣рд░реВрдХреЛ рдХреНрд░рдордмрджреНрдз рд░реЗрдХрд░реНрдб рд▓реЗрдЦреНрджрдЫ ред

рдпреЛ рдкрдирд┐ рд╣реЗрд░реНрдиреБрд╣реЛрд╕реН:рд▓рд┐рдиреБрд╣реЛрд╕реНрдХрдерди

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


рдЗрдиреНрдЯрд┐рдЬрд░рдХреЛ рд░реВрдкрдорд╛ [#] рдлрд╛рдЗрд▓ рдирдореНрдмрд░,   [position], рдЪрд▓

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

рдЪрд▓: рдХреЗрд╣реА рдЗрдиреНрдЯрд┐рдЬрд░ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рд▓реЗ рддрдкрд╛рдИрдБрд▓реЗ рд▓реЗрдЦреНрди рдЪрд╛рд╣рдиреБ рднрдПрдХреЛ рдлрд╛рдЗрд▓ рдкрд░рд┐рднрд╛рд╖рд┐рдд рдЧрд░реНрджрдЫ ред

рд╕реНрдерд┐рддрд┐рдорд╛: рд╕рдореНрдмрдиреНрдзрд┐рдд рдлрд╛рдЗрд▓рдХрд╛ рд▓рд╛рдЧрд┐ (рдЕрдирд┐рдпрдорд┐рдд рдкрд╣реБрдБрдЪ рдлрд╛рдЗрд▓рд╣рд░реВ), рддрдкрд╛рдИрдБ рд▓реЗрдЦреНрди рдЪрд╛рд╣реЗрдХреЛ рд░реЗрдХрд░реНрдбрдХреЛ рдирдореНрдмрд░ ред

рдмрд╛рдЗрдирд░реА рдлрд╛рдЗрд▓рд╣рд░реВрдХрд╛ рд▓рд╛рдЧрд┐ (рдмрд╛рдЗрдирд░рд┐ рдкрд╣реБрдБрдЪ), рдлрд╛рдЗрд▓рдорд╛ рдмрд╛рдЗрдЯрдХреЛ рд╕реНрдерд┐рддрд┐ рдЬрд╣рд╛рдБрдмрд╛рдЯ рд▓реЗрдЦрди рд╕реБрд░реБ рдЧрд░реНрди рдЪрд╛рд╣рдиреБрд╣реБрдиреНрдЫ рд╣реБрдиреНрдЫ ред

рдЪрд▓:рдЪрд▓рдХреЛ рдорд╛рди рдЬреБрди рддрдкрд╛рдИрдБ рдлрд╛рдЗрд▓рдорд╛ рд▓реЗрдЦреНрди рдЪрд╛рд╣рдиреБрд╣реБрдиреНрдЫ ред

рд╕рдореНрдмрдиреНрдзрд┐рдд рдлрд╛рдЗрд▓рд╣рд░реВрдХрд╛ рд▓рд╛рдЧрд┐ рджреНрд░рдЯрд╡реНрдп: рдпрджрд┐ рдЪрд▓рд╣рд░реВрдХреЛ рд╕рд╛рдордЧреНрд░реАрд╣рд░реВрд▓реЗ рд░реЗрдХрд░реНрдбрдХреЛ рд▓рдореНрдмрд╛рдЗрдорд╛ рдореЗрд▓ рдирдЦрд╛рдПрдХреЛ рдЦрдгреНрдбрдорд╛ рдЦреБрд▓рд╛рдХрдердирдХреЛ рд▓рдореНрдмрд╛рдЗрд╡рд╛рдХреНрдп рдЦрдгреНрдбрдорд╛, рддрдкрд╛рдИрдБрд▓реЗ рд▓реЗрдЦреНрджреИ рдЧрд░реЗрдХреЛ рдлрд╛рдЗрд▓рдмрд╛рдЯ рдирдпрд╛рдБ рд▓рд┐рдЦрд┐рдд рд░реЗрдХрд░реНрдбрдХреЛ рдЕрдиреНрддреНрдп рд░ рдЕрд░реНрдХреЛ рд░реЗрдХрд░реНрдбрдХреЛ рдмреАрдЪрдХреЛ рдЦрд╛рд▓реА рд╕реНрдерд╛рдирд▓рд╛рдИ рдЕрд╡рд╕реНрдерд┐ рдбреЗрдЯрд╛ рд╕рдБрдЧ рдкреНрдпрд╛рдбрд┐рдЩ рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдЧрд░рд┐рдиреНрдЫ ред

рдмрд╛рдЗрдирд░реА рдлрд╛рдЗрд▓рд╣рд░реВрдХрд╛ рд▓рд╛рдЧрд┐ рджреНрд░рдЯрдмреНрдп: рдЪрд▓рд╣рд░реВрдХреЛ рд╕рд╛рдордЧреНрд░реАрд╣рд░реВ рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдЧрд░рд┐рдПрдХрд╛ рд╕реНрдерд┐рддрд┐рдорд╛ рд▓реЗрдЦреНрдЫрди, рд░ рдЕрдиреНрддрд┐рдо рдмрд╛рдЗрдЯ рдкрдЫрд┐ рдлрд╛рдЗрд▓ рд╕реБрдЪрдХрд╣рд░реВ рдкреНрд░рддреНрдпрдХреНрд╖ рд░реВрдкрдорд╛ рдШреБрд╕рд╛рдЙрдЫрдиреН ред рд░реЗрдХрд░реНрдбрд╣рд░реВрдХреЛ рдмреАрдЪрдорд╛ рдЦрд╛рд▓реА рд╕реНрдерд╛рди рдЫрд╛рдбрд┐рдПрдХреЛ рдЫреИрди ред

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


Sub ExampleRandomAccess
Dim iNumber As Integer
REMрдЪрд▓ рдХреЛ рд░реВрдкрдорд╛ Dim sText рдЪрд▓ рдкреНрд░рдХрд╛рд░ рд╣реБрдиреЗ рдкрд░реНрджрдЫ
Dim aFile As String
    aFile = "c:\data.txt"
    iNumber = Freefile
    Open aFile For Random As #iNumber Len=32
    рд▓реЗрдЦрди рд╕реБрд░реБ рдЧрд░реНрдирд▓рд╛рдИ рез REM рд╕реНрдерд┐рддрд┐ #iNumber рдЦреЛрдЬреНрдиреБрд╣реЛрд╕реН
    Put #iNumber,, "This is the first line of text" ' рднрд░реНрдиреЗ рд▓рд╛рдЗрди рд░рд╛рдЦреНрдиреБрд╣реЛрд╕реН
    #iNumber рд░рд╛рдЦреНрдиреБрд╣реЛрд╕реН,, "This is the second line of text"
    #iNumber рд░рд╛рдЦреНрдиреБрд╣реЛрд╕реН,, "This is the third line of text"
    Seek #iNumber,2
    Get #iNumber,,sText
    Print sText
    Close #iNumber
    iNumber = Freefile
    Open aFile For Random As #iNumber Len=32
    Get #iNumber,2,sText
    "рдпреЛ рдирдпрд╛рдБ рдкрд╛рда рд╣реЛ" #iNumber,, рд░рд╛рдЦреНрдиреБрд╣реЛрд╕реН
    Get #iNumber,1,sText
    Get #iNumber,2,sText
    #iNumber рд░рд╛рдЦреНрдиреБрд╣реЛрд╕реН,реиреж,"This is the text in record 20"
    Print Lof(#iNumber)
    Close #iNumber
End Sub