Get Statement

рд╕рдореНрдмрдиреНрдзрд┐рдд рдлрд╛рдЗрд▓рдмрд╛рдЯ рд░реЗрдХрд░реНрдб рдкрдвреНрджрдЫ, рд╡рд╛ рдЪрд▓рдорд╛ рдмрд╛рдЗрдирд░рд┐ рдлрд╛рдЗрд▓рдмрд╛рдЯ рдмрд╛рдЗрдЯреНрд╕рдХреЛ рдЕрдиреБрдХреНрд░рдо ред

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

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

[#] рдЗрдиреНрдЯрд┐рдЬрд░рдХреЛ рд░реВрдкрдорд╛ рдлрд╛рдЗрд▓ рдирдореНрдмрд░, [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 рдЦреЛрдЬреНрдиреБрд╣реЛрд╕реН

    рдкрд╛рда рд╕рдБрдЧ #iNumber,, "This is the first line of text" REM рднрд░реНрдиреЗ рд▓рд╛рдЗрди рд░рд╛рдЦреНрдиреБрд╣реЛрд╕реН

    #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