Module
Contents
Index 🔎︎

# Get Statement

Rileetive fayle giddonni mareekko nabbawanno, woy bayitete aante laminaatu fayle giddonni soorramaanchu wido.

Hattono: PUT Foolishsho la'i

## Ganallo:

    [#] FayleteSu'ma Intijerete Gede Adhi, [Ofolla], Soorramaancho

## Eishshuwa:

FayleteSu'ma: Faylete kiiro tirtanno intijerete handaara.

Ofolla: Randeme gari giddo fa'nantino fayllara, Ofolla nabbawa hasiratto mareekkote kiirooti.

Laminaatu faylla giddo fa'nantino fayllara, Ofolla faylete giddo nabbawishshu hanafanno bayitete ofollaati.

Ofolla ba'uro, faylenniti muli ofolla woy muli daati mareekko horonsi'rantanno.

Soorramaancho: Nabbawaanno soorramaanchu su'ma. Uduunnichu soorramaano gobbaanni, Soorramaanchu dana horonsi'ra dandaatto.

## Lawishsha:

    Sub ExampleRandomAccess
    Dim iNumber As Integer
    Dim sBorro Baxxaanchu Gede ' Baxxaancho ikka noose
    Dim aFile As String
        aFile = "c:\data.txt"
        iNumber = Freefile
        Open aFile For Random As #iNumber Len=32
        #iKiiro hasi,1 ' Ofolla hanfoho
        #iKiiro wori,, "Tini borrote umi xuruurati" ' Xuruura borrotenni wonshshi
        #iKiiro wori,, "Tini borrote layinkki xuruuraati"
        #iKiiro wori,, "Tini borrote sayikki xuruuraati"
        Seek #iNumber,2
        Get #iNumber,,sText
        Print sText
        Close #iNumber
        iNumber = Freefile
        Open aFile For Random As #iNumber Len=32
        Get #iNumber,2,sText
        #iKiiro wori,, "Tini haaro borrooti"
        Get #iNumber,1,sText
        Get #iNumber,2,sText
        #iKiiro wori,, "Tini 20 mareekko giddo noo borrooti"
        Print Lof(#iNumber)
        Close #iNumber
    End Sub