Open Statement

Daatu chanele fananno.

Ganallo:

FayleteSu'ma Naanni-fikiimmate gede[Albiidi Gara] [Injo IOMode] [Gargaraminoha] [#]FayleteSu'ma Intijerete gede [Len = DatasetLength] fani

Eishshuwa:

Faylete su'ma: Fana hasiratto faylete su'manna haruma. Nookki fayle nabbawate wo'naalittoro(Injo- Nabbawi),so'ro sokka leellitanno. Nookki faylera borreessate wo'naalittoro(Injo-Borreessi), haaro fayle kalaqantanno.

Gara: Faylete gara badanno qaraqaale. Addimmo hornyuwa: Maxxagisi (aantete faylera maxxagisi), Laminaate (daatu haare woratenni bayitetenni injeessamanno), Eo (nabbawate daatu chanele fananno), Guma(borreessate daatu chanele fananno), hattono Hedeweelcho(riletive faylla muccisanno).

IoGara: Injo dana tiranno qaraqaale. Addimmo hornyo: Nabbawi(nabbawa calla), Borreessi(Borreessa calla), Nabbawanna Borreessa(lamenka).

Gargaraminoha: fayle fanihu gedensaanni gargarooshshu deerra tiranno qaraqaale. Addimmo Hornyuwa: Guatamme(kayle wole loosansiisonni fa'nama dandiitanno), Nabbawa Wawaansi(fayle nabbawatenni gargarantino), Borreessa Waawaansa( fayle borreessatenni gargarantino),Nabbawa Borreessa Waawaansa(faylete injo diloossanno).

FayleteKiiro: Fano daati chaanale leellishanno 0nni 511 geeshsha noo intijerete handaara. Fayle injeessate hajajo daatu chanale widoonni sayisa daandaatto. Faylete kiiro Fano fooliishsho albanni FanoFayle assishshinni tirama hasiisannosi.

DaatuqinooSeendille: Hedeweelchu injo faylaa, maareekkote seendille qineessi.

Fani fooliishshonni fa'nantino faylete amado calla soorra dandaatto. Balaxxe fa'nantino fayle fanate wo'naalittoro, so'ro sokka leellitanno.

Lawishsha:

Sub ExampleWorkWithAFile

Dim iNumber As Integer

Dim sLine As String

Dim aFile As String

Dim sMsg As String

    aFile = "c:\data.txt"

    iNumber = Freefile

    Open aFile For Output As #iNumber

    #ikiiro attami, "Kuni borrote xuruuraati"

    #ikiiro attami, "Kuni wole borrote xuruuraati"

    Close #iNumber

    iNumber = Freefile

    Open aFile For Input As iNumber

    While Not eof(iNumber)

        Line Input #iNumber, sLine

        If sLine <>"" Then

            sMsg = sMsg & sLine & chr(13)

        End If

    Wend

    Close #iNumber

    MsgBox sMsg

End Sub