Lof Function

рдЦреБрд▓рд╛ рдлрд╛рдЗрд▓рдХреЛ рд╕рд╛рдЗрдЬ рдмрд╛рдЗрдЯреНрд╕рдорд╛ рдлрд░реНрдХрд╛рдЙрдБрдЫ ред

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


Lof (рдлрд╛рдЗрд▓ рдирдореНрдмрд░)

рдорд╛рди рдлрд░реНрдХрд╛рдЙрдиреБрд╣реЛрд╕реН:

рд▓рд╛рдореЛ

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

рдлрд╛рдЗрд▓ рдирдореНрдмрд░:рдХреБрдиреИ рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рд▓реЗ рдЦреБрд▓рд╛ рдХрдердирдорд╛ рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдЧрд░реНрдиреЗ рддреНрдпрд╕рд▓реЗ рдлрд╛рдЗрд▓ рдирдореНрдмрд░рд▓рд╛рдИ рд╕рдорд╛рд╡реЗрд╢ рдЧрд░реНрджрдЫ ред

рдЯрд┐рдк рдкреНрд░рддрд┐рдорд╛

рддреНрдпреЛ рдирдЦреБрд▓реЗрдХреЛ рдлрд╛рдЗрд▓рдХреЛ рд▓рдореНрдмрд╛рдЗ рдкреНрд░рд╛рдкреНрдд рдЧрд░реНрдирд▓рд╛рдИFileLenрдкреНрд░рдХрд╛рд░реНрдп рдкреНрд░рдпреЛрдЧ рдЧрд░реНрдиреБрд╣реЛрд╕реН ред


рддреНрд░реБрдЯрд┐ рд╕рдЩреНрдХреЗрддрд╣рд░реВ

5 рдЕрд╡реИрдз рдХрд╛рд░реНрдп-рд╡рд┐рдзрд┐ рдХрд▓

52 рдЦрд░рд╛рдм рдлрд╛рдЗрд▓ рдирд╛рдо рд╡рд╛ рдирдореНрдмрд░

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


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!