Anmerkung
Der Zugriff auf diese Seite erfordert eine Genehmigung. Du kannst versuchen, dich anzumelden oder die Verzeichnisse zu wechseln.
Der Zugriff auf diese Seite erfordert eine Genehmigung. Du kannst versuchen , die Verzeichnisse zu wechseln.
Ö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.