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

Please support us!