LibreOffice 7.1 žinynas
Skaito įrašą iš santykinio failo arba baitų seką iš dvejetainio failo į kintamąjį.
Dar žr.: Įdėti sakinį
Get [#]fileNum, [recordNum|filePos], kintamasis
fileNum: bet kuri sveikojo skaičiaus išraiška, nustatanti failo numerį.
recordNum: Failams, atvertiems atsitiktine veiksena, recordNum, pateikiamas norimo perskaityti įrašo numeris.
Failams, atvertiems dvejetaine veiksena, filePos pateikiama failo, kuriame pradedama skaityti, baitų pozicija.
Jei recordNum ir filePos nėra, naudojama dabartinė failo padėtis arba dabartinis duomenų įrašas.
variable: skaitomo kintamojo pavadinimas. Išskyrus objektų kintamuosius, galite naudoti bet kurio tipo kintamuosius.
Sub ExampleRandomAccess
Dim iNumber As Integer
Dim sText As Variant ' Turi būti variantas
Dim aFile As String
aFile = "c:\data.txt"
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
Seek #iNumber,1 ' Pozicionuojama pradžioje
Put #iNumber,, "Tai yra pirmoji teksto eilutė" ' Užpildykite eilutę tekstu
Put #iNumber,, "Tai yra antroji teksto eilutė"
Put #iNumber,, "Tai yra trečioji teksto eilutė"
Seek #iNumber,2
Get #iNumber,,sText
Print sText
Close #iNumber
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
Get #iNumber,2,sText
Put #iNumber,,"Tai yra naujas tekstas"
Get #iNumber,1,sText
Get #iNumber,2,sText
Put #iNumber,20,"Tai yra tekstas 20-ajame įraše"
Print Lof(#iNumber)
Close #iNumber
End Sub