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