Atvertas sakinys

Atveria duomenų kanalą.

Sintaksė:

Atveria sakinio diagramą

prieigos fragmento diagrama

užrakinto fragmento diagrama


Open pathname For mode [Access io] [locking] As [#]filenum [Len=recLen]

Parametrai:

kelio pavadinimas: Atveriamo failo kelias ir pavadinimas. Jei bandote skaityti neegzistuojantį failą („Access = Read“), pasirodys klaidos pranešimas. Jei bandote rašyti į neegzistuojantį failą (Access = Write), sukuriamas naujas failas.

mode: raktinis žodis, kuris nurodo failo būseną. Galiojančios reikšmės: Pridėti (pridėti prie nuoseklaus failo), Dvejetainis (duomenys gali būti pasiekiami baitais, naudojant „Get“ ir „Put“), Įvestis (atveria duomenų kanalą skaitymui), Išvestis (atveria duomenų kanalą rašymui), ir Atsitiktinis (taiso atitinkamus failus).

io: Raktažodis apibrėžia prieigos tipą. Galiojančios reikšmės: Skaityti (tik skaitymui), Rašyti (tik rašymui), Skaityti ir rašyti (abu).

locking: Raktažodis, kuris apibrėžia atveriamo failo saugumo būseną. Galiojančios reikšmės: Bendrinama (failas gali būti atvertas kita programa), Užrakinta skaitymui (failo neleidžiama skaityti), Užrakinta rašymui (failas apsaugotas nuo rašymo), Užrakinta skaitymui ir rašymui (atmetama failo prieiga).

filenum: Bet kuri sveikojo skaičiaus išraiška nuo 0 iki 511, nurodo nemokamo duomenų kanalo numerį. Tada galite perduoti komandas šiuo duomenų kanalu ir pasiekti failą. Failo numerį turi nustatyti „FreeFile“ funkcija prieš pat atliekant atvėrimo sakinį.

recLen: Esant atsitiktinei failų prieigai, nustato įrašų ilgį.

note

Galite modifikuoti tik failo, kuris buvo atvertas naudojant atvėrimo sakinį, turinį. Jei bandysite atverti jau atvertą failą, pasirodys klaidos pranešimas.


Pavyzdys:


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, "Pirmoji teksto eilutė"
    Print #iNumber, "Kita teksto eilutė"
    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

Paremkite mus!