Gauti sakinys

Skaito įrašą iš santykinio failo arba baitų seką iš dvejetainio failo į kintamąjį.

Dar žr.: Įdėti sakinį

Sintaksė:

Gauti sakinį diagrama


Get [#]fileNum, [recordNum|filePos], kintamasis

Parametrai:

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.

Pavyzdys:


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