Module
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