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