OpenAsTextStream-Methode

  • Artikel

Öffnet eine angegebene Datei und gibt ein TextStream-Objekt zurück, das zum Lesen aus, Schreiben in oder Anfügen an die Datei verwendet werden kann.

Syntax

Objekt.OpenAsTextStream ([ iomode, [ format ]])

Die Syntax der OpenAsTextStream-Methode besteht aus folgenden Teilen:

Teil Beschreibung
Objekt Erforderlich. Immer der Name eines File-Objekts.
iomode Optional. Gibt den Eingabe-/Ausgabemodus an. Kann eine von drei Konstanten sein: ForReading, ForWriting oder ForAppending.
format Optional. Einer von drei Tristate-Werten, die verwendet werden, um das Format der geöffneten Date anzugeben. Wenn das Argument nicht angegeben wird, wird die Datei als ASCII geöffnet.

Einstellungen

Das iomode-Argument 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 eine Datei mit demselben Namen vorhanden ist, wird der vorherige Inhalt überschrieben.
ForAppending 8 Öffnen einer Datei zum Schreiben an ihrem Ende.

Für das Argument Format ist jede der folgenden Einstellungen zulässig:

Konstante Wert Beschreibung
TristateUseDefault -2 Öffnet die Datei unter Verwendung der Systemvorgabe.
TristateTrue -1 Öffnet die Datei als Unicode.
TristateFalse 0 Öffnet die Datei als ASCII.

Hinweise

Die OpenAsTextStream-Methode stellt die gleichen Funktionen wie die OpenTextFile-Methode des FileSystemObject bereit. Darüber hinaus kann die OpenAsTextStream-Methode zum Schreiben in eine Datei verwendet werden.

Der folgende Code veranschaulicht die Verwendung der OpenAsTextStream-Methode:

Sub TextStreamTest
    Const ForReading = 1, ForWriting = 2, ForAppending = 8
    Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
    Dim fs, f, ts, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    fs.CreateTextFile "test1.txt"            'Create a file
    Set f = fs.GetFile("test1.txt")
    Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault)
    ts.Write "Hello World"
    ts.Close
    Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
    s = ts.ReadLine
    MsgBox s
    ts.Close
End Sub

Siehe auch

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.