Contents
Index 🔎︎

# Get Statement

Faayilii fira ta'e irraa kuusaa ykn tartiiba baayitii faayilii lamee irraa gara gegeedaramaatti dubbisa.

Hima: PUT ilaali.

## caasimaa:

    Get [#] FileNumber As Integer, [Position], Variable

## Ulaagaalee:

FileNumber: Himannoo itergaa kammiyyuu kan baay'ina faayilii murteessu.

Qabannoo: Faayilii haala darbee darbeetiin banamu, Qabannoo Baay'ina kuusaa dubbisuu barbaaddu.

Faayilii haala lameetiin baname qabannoo iddoo qabannoon baayitii dubbisuun irraa eegalu.

Yoo Qabannoo dhiifame, qabdoon ammee ykn faayiliin qabdoo kuusaa deetaa ammee fayyadama.

Jijjiiramaa: Maqaa jijjiramaa dubbifamuuf. Quxaala wanta gegeedaramaa waliin, akaakuu gegeedaramaa kammiyyuu fayyadamuu dandeessa.

## Fakkeenya:

    Sub ExampleRandomAccess
    Dim iNumber As Integer
    Dim sText As Variant REM Must be a variant
    Dim aFile As String
        aFile = "c:\data.txt"
        iNumber = Freefile
        Open aFile For Random As #iNumber Len=32
        Seek #iNumber,1 REM Qubannoo jalqaba irraatti
        Put #iNumber,, "Kun sarara barruu tokkoffaati" REM Sarara barruudhaan guuta.
        Put #iNumber,, "Kun sarara barruu isa lammaffa dha"
        Put #iNumber,, "Kun sarara barruu isa sadaffaadha"
        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,,"Kun barruu haaradha"
        Get #iNumber,1,sText
        Get #iNumber,2,sText
        Put #iNumber,20,"Kun barruu kuusaa 20 keessati"
        Print Lof(#iNumber)
        Close #iNumber
    End Sub