Open lause

Avab andmekanali

SĂŒntaks:


Open FileName As String [For Mode] [Access IOMode] [Protected] As [#]FileNumber As Integer [Len = DatasetLength]i37502

Parameetrid:

FileName: Name and path of the file to open. If you try to read a file that does not exist (Access = Read), an error message appears. If you try to write to a file that does not exist (Access = Write), a new file is created.

Mode: vĂ”tmesĂ”na, mis mÀÀrab faili reĆŸiimi. Sobivad vÀÀrtused on Append (lisa jadafailile), Binary (andmetele pÀÀseb juurde lausete Get ja Put abil baitide jĂ€rgi), Input (avab andmekanali lugemiseks), Output (avab andmekanali kirjutamiseks) ja Random (redigeerib suhtelisi faile).

IOMode: vĂ”tmesĂ”na, mis mÀÀrab juurdepÀÀsutĂŒĂŒbi. Sobivad vÀÀrtused on Read (kirjutuskaitstud), Write (ainult kirjutamiseks), Read Write (mĂ”lemad).

Protected: vÔtmesÔna, mis mÀÀrab faili turbeoleku pÀrast avamist. Sobivad vÀÀrtused on Shared (muu rakendus vÔib faili avada), Lock Read (fail on lugemiseks kaitstud), Lock Write (fail on kirjutuskaitstud), Lock Read Write (juurdepÀÀs failile on keelatud).

FileNumber: vaba andmekanalit tÀhistav suvaline tÀisarvavaldis vahemikus 0 kuni 511. SeejÀrel saad failile juurdepÀÀsemiseks edastada kÀsud selle andmekanali kaudu. Faili number peab olema funktsiooni FreeFile abil mÀÀratud vahetult enne lauset Open.

DatasetLength: mÀÀrab juhupÀÀsuga failide korral kirjete pikkuse.

note

Saad muuta ainult lause Open abil avatud failide sisu. Kui proovid avada faili, mis on juba avatud, kuvatakse veateade.


NĂ€ide:


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
    Print #iNumber, "See on rida teksti"
    Print #iNumber, "See on veel ĂŒks rida teksti"
    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

Palun toeta meid!