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