IBM Lotus Symphony
|
Öffnet einen Datenkanal.
Open Dateiname As String [For Modus] [Access E/AModus] [Geschützt] As [#]Dateinummer As Integer [Len = Datensatzlänge]
Dateiname: Name und Pfad der zu öffnenden Datei. Wenn Sie versuchen, eine nicht vorhandene Datei zu lesen (Access = Read), wird eine Fehlernachricht angezeigt. Wenn Sie versuchen, in eine nicht vorhandene Datei zu schreiben (Access = Write), wird eine neue Datei erstellt.
Modus: Schlüsselwort, das den Dateimodus angibt. Gültige Werte: Anhängen (an sequenzielle Datei anhängen), Binär (auf Daten kann mithilfe von Get und Put über Byte zugegriffen werden), Eingabe (öffnet einen Datenkanal zum Lesen), Ausgabe (öffnet einen Datenkanal zum Schreiben) und Zufällig (bearbeitet relative Dateien).
E/AModus: Schlüsselwort, das den Zugriffstyp definiert. Gültige Werte: Read (nur lesen), Write (nur schreiben), Read Write (beides).
Geschützt: Schlüsselwort, das den Sicherheitsstatus einer Datei nach dem Öffnen definiert. Gültige Werte: Shared (Datei kann von einer anderen Anwendung geöffnet sein), Lock Read (Datei ist vor Lesezugriffen geschützt), Lock Write (Datei ist vor Schreibzugriffen geschützt), Lock Read Write (verweigert den Dateizugriff).
Dateinummer: Ein beliebiger Integer-Ausdruck zwischen 0 und 511 zur Angabe der Nummer eines freien Datenkanals. Sie können dann Befehle über den Datenkanal übergeben, um auf die Datei zuzugreifen. Die Dateinummer muss unmittelbar vor der Open-Anweisung von der FreeFile-Funktion ermittelt werden.
Datensatzlänge: Legen Sie für Dateien mit wahlfreiem Zugriff die Länge der Datensätze fest.
![]() |
Sie können nur die Inhalte von Dateien ändern, die mithilfe der Open-Anweisung geöffnet wurden. Wenn Sie versuchen, eine bereits geöffnete Datei zu öffnen, wird eine Fehlernachricht angezeigt. |
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, "Dies ist eine Textzeile"
Print #iNumber, "Dies ist eine weitere Textzeile"
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