Turinys
Rodyklė 🔎︎

# Gauti sakinys

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

Dar žr.: Įdėti sakinį

### Sintaksė:

    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

Susijusios temos

Atvertas sakinys

Put# sakinys

Uždarymo sakinys