LibreOffice 7.1 Help
рдЦреБрд▓рд╛ рдлрд╛рдЗрд▓рдХреЛ рд╕рд╛рдЗрдЬ рдмрд╛рдЗрдЯреНрд╕рдорд╛ рдлрд░реНрдХрд╛рдЙрдБрдЫ ред
Lof (рдлрд╛рдЗрд▓ рдирдореНрдмрд░)
рд▓рд╛рдореЛ
рдлрд╛рдЗрд▓ рдирдореНрдмрд░:рдХреБрдиреИ рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рд▓реЗ рдЦреБрд▓рд╛ рдХрдердирдорд╛ рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдЧрд░реНрдиреЗ рддреНрдпрд╕рд▓реЗ рдлрд╛рдЗрд▓ рдирдореНрдмрд░рд▓рд╛рдИ рд╕рдорд╛рд╡реЗрд╢ рдЧрд░реНрджрдЫ ред
рддреНрдпреЛ рдирдЦреБрд▓реЗрдХреЛ рдлрд╛рдЗрд▓рдХреЛ рд▓рдореНрдмрд╛рдЗ рдкреНрд░рд╛рдкреНрдд рдЧрд░реНрдирд▓рд╛рдИFileLenрдкреНрд░рдХрд╛рд░реНрдп рдкреНрд░рдпреЛрдЧ рдЧрд░реНрдиреБрд╣реЛрд╕реН ред
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