Lof Function
Fa'nantino fayle bikka bayitetenni qolanno.
Ganallo:
Lof (FayleteKiiro)
Qolote guma:
Seeda
Eishsha:
FayleteSu'ma: Fani fooliishsho giddo badantino faylete kiiro amaddanno kiirote handaara.
Ea'nantinokki fayle seendille afirate,FayleLen assishsha horonsi'ri.
Lawishsha:
Sub ExampleRandomAccess
Dim iNumber As Integer
Dim sBorro Baxxaancho REM gede Baxxaancho ikka hasiisannosi
Dim aFile As String
aFile = "c:\data.txt"
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
#iKiiro la'i,1 REM ofolla hanafote
#iKiiro wori,, "Kuni umi borrote xuuraati" REM Borrotenni wonshshi
#iKiiro wori ,, "Kuni layinkki borrote xuuraati"
#iKiiro wori,, "Kuni sayikki borrote xuuraati"
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,, "Kuni haaro borrote xuuraati"
Get #iNumber,1,sText
Get #iNumber,2,sText
#iKiiro wori,20,"Tini 20 maareekko giddo noo borrooti"
Print Lof(#iNumber)
Close #iNumber
End Sub