Ăppna uttryck
Ăppnar en datakanal.
Open FileName As String [For Mode] [Access IOMode] [Protected] As [#]FileNumber As Integer [Len = DatasetLength]i37502
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.
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.
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