Öppna uttryck

Öppnar en datakanal.

Syntax:


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

Parametrar:

Filnamn: Namn och sökvÀg för den fil du vill öppna. Om du försöker lÀsa en fil som inte existerar (Access = Read) visas ett felmeddelande. Om du försöker skriva till en fil som inte finns (Access = Write) skapas en ny fil.

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.

note

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