Beschreibung
Öffnet eine angegebene Datei und gibt ein TextStream-Objekt zurück, das zum Lesen aus, zum Schreiben in und zum Anhängen an die Datei verwendet werden kann.
Syntax
Objekt.OpenAsTextStream([E/A-Modus, [Format]])
Die Syntax der OpenAsTextStream-Methode besteht aus folgenden Teilen:
Teil | Beschreibung |
---|---|
Objekt | Erforderlich. Immer der Name eines File-Objekts. |
E/A-Modus | Optional. Gibt den Ein-/Ausgabemodus an. Dieser kann eine von drei Konstanten sein: ForReading, ForWriting oder ForAppending. |
Format | Optional. Einer der drei Tristate-Werte, mit dem das Format der geöffneten Datei angegeben wird. Wird für den Wert keine Angabe gemacht, wird die Datei im ASCII-Format geöffnet. |
Einstellungen
Das Argument E/A-Modus kann eine der folgenden Einstellungen haben:
Konstante | Wert | Beschreibung |
---|---|---|
ForReading | 1 | Öffnet eine Datei nur zum Lesen. Sie können nicht in diese Datei schreiben. |
ForWriting | 2 | Öffnet eine Datei zum Schreiben. Wenn es bereits eine Datei mit dem gleichen Namen gibt, wird der Inhalt der früheren Datei überschrieben. |
ForAppending | 8 | Öffnet eine Datei und schreibt am Ende dieser. |
Das Argument Format kann eine der folgenden Einstellungen haben:
Konstante | Wert | Beschreibung |
---|---|---|
TristateUseDefault | –2 | Öffnet die Datei mit den Systemvorgaben. |
TristateTrue | –1 | Öffnet die Datei als Unicode-Datei. |
TristateFalse | 0 | Öffnet die Datei als ASCII-Datei. |
Anmerkungen
Die OpenAsTextStream-Methode bietet die gleichen Funktionsmerkmale wie die OpenTextFile-Methode des FileSystemObject. Darüber hinaus kann mit der OpenAsTextStream-Methode in eine Datei geschrieben werden.
Der folgende Code veranschaulicht die Verwendung der OpenAsTextStream-Methode:
Sub TextStreamTest Const ForReading = 1, ForWriting = 2, ForAppending = 3 Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0 Dim fs, f, ts, s Set fs = CreateObject("Scripting.FileSystemObject") fs.CreateTextFile "test1.txt" 'Erstellen einer Datei Set f = fs.GetFile("test1.txt") Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault) ts.Write "Hallo Welt" ts.Close Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault) s = ts.ReadLine MsgBox s ts.Close End Sub