IBM Lotus Symphony


Open-Anweisung [Laufzeit]

Öffnet einen Datenkanal.

Syntax:

Open Dateiname As String [For Modus] [Access E/AModus] [Geschützt] As [#]Dateinummer As Integer [Len = Datensatzlänge]

Parameter:

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.

Symbol für Hinweis 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.

Beispiel:

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


Produktfeedback | Zusätzliche Dokumentation | Marken