Open Statement

Öppnar en datakanal.

Syntax:

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

Parametrar:

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.

LÀge: Nyckelord som anger fillÀge. Giltiga vÀrden: Append (lÀgg till i sekventiell fil), Binary (data kan kommas Ät med byte med Get och Put), Input (öppnar datakanal för att lÀsa), Output (öppnar datakanal för att skriva) och Random (redigerar relativa filer).

IOMode: Nyckelord som definierar typ av Ätkomst. Giltiga vÀrden: Read (bara lÀsning), Write (bara skriva), Read Write (bÄda).

Protected: Nyckelord som definierar sÀkerhetsstatus för en fil nÀr den har öppnats. Valid values: Shared (filen kan öppnas av andra program), Lock Read (filen Àr lÀsskyddad), Lock Write (filen Àr skrivskyddad), Lock Read Write (nekar filÄtkomst).

FileNumber: Ett heltalsuttryck frÄn 0 till 511 som anger numret pÄ en ledig datakanal. Du kan sedan överföra kommandon via datakanalen för att komma Ät filen. Filnumret mÄste bestÀmmas av funktionen FreeFile omedelbart före Open-satsen.

DatasetLength: Ange posternas lÀngd för filer med Random-Ätkomst.

Symbolen Info

Du kan bara Àndra innehÄllet i en fil som Àr öppnad med en Open-sats. Om du försöker öppna en fil som redan Àr öppen visas ett felmeddelande.


Exempel:

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, "Det hÀr Àr en textrad"

    Print #iNumber, "Det hÀr Àr ytterligare en textrad"

    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