Die VBA-eigenen Befehle wie Open<\/b>, Write<\/b>, Input<\/b>, Close <\/b>und so weiter erlauben das Erstellen, Schreiben und Lesen von Textdateien. Wenn es etwas komfortabler sein darf, gibt es jedoch noch andere Möglichkeiten. Eine davon ist die Klasse FileSystemObject<\/b>, die Sie in der Bibliothek Microsoft Scripting Runtime <\/b>finden. In den Artikeln Das FileSystemObject: Verzeichnisse <\/b>und Das FileSystemObject: Dateien <\/b>haben wir die Grundlagen zu dieser Bibliothek und zum Umgang mit Laufwerken, Verzeichnissen und Dateien erläutert. Dieser Artikel zeigt, welche Möglichkeiten diese Bibliothek im Hinblick auf den Umgang mit Textdateien bietet.<\/p>\n
Beispieldatenbank<\/h2>\n
Die Beispiele dieses Artikels finden Sie in der Datenbank 1902_FileSystemObject_Textstream.accdb<\/b>.<\/p>\n
Die TextStream-Klasse<\/h2>\n
Beim Aufruf der Methode CreateTextFile <\/b>der FileSystemObject<\/b>-Klasse und der Folder<\/b>-Klasse werden Objekte des Typs TextStream <\/b>zurückgeliefert.<\/p>\n
Diese weisen die folgenden Eigenschaften auf:<\/p>\n
\n
AtEndOfLine<\/b>: Gibt an, ob sich der Zeiger am Ende der aktuellen Zeile befindet.<\/li>\n
AtEndOfStream<\/b>: Gibt an, ob sich der Zeiger am Ende des Streams befindet.<\/li>\n
Close<\/b>: Schließt einen offenen Textstream.<\/li>\n
Column<\/b>: Gibt die aktuelle Spalte des Zeigers aus.<\/li>\n
Line<\/b>: Gibt die Nummer der aktuellen Zeile des Zeigers aus.<\/li>\n
Read<\/b>: Liest die mit dem Parameter angegebene Menge an Zeichen.<\/li>\n
ReadAll<\/b>: Liest den kompletten Inhalt des TextStream<\/b>-Objekts.<\/li>\n
ReadLine<\/b>: Liest die jeweils folgende Zeile des TextStream<\/b>-Objekts.<\/li>\n
Skip<\/b>: Verschiebt den Zeiger um die angegebene Anzahl Zeichen in Richtung Ende des Streams.<\/li>\n
SkipLine<\/b>: Verschiebt den Zeiger auf den Anfang der nächsten Zeile.<\/li>\n
Write<\/b>: Fügt den Inhalt des Parameters hinter dem letzten vorhandenen Zeichen in einem Textstream<\/b>-Objekt ein.<\/li>\n
WriteBlankLines<\/b>: Fügt hinter dem letzten Zeichen des TextStream<\/b>-Objekts leere Zeilen entsprechend der im Parameter angegebenen Anzahl ein.<\/li>\n
WriteLine<\/b>: Fügt den als Parameter angegebenen Text hinter dem letzten Zeichen des TextStream<\/b>-Objekts ein und hängt ein Zeilenumbruchszeichen hinten an.<\/li>\n<\/ul>\n
Erstellen einer Textdatei und Füllen mit Text aus einer Variablen<\/h2>\n
Wenn Sie einfach nur den Inhalt einer String<\/b>-Variablen in eine neue Textdatei schreiben wollen, gehen Sie wie folgt vor:<\/p>\n
Dim <\/span>strDatei As String<\/span>\r\nDim <\/span>strPfad As String<\/span>\r\nDim <\/span>strText As String<\/span>\r\nDim <\/span>objTextstream As <\/span>TextStream\r\nstrDatei = Replace<\/span>(FSO.GetTempName, \".tmp\", \".txt\")\r\nstrPfad = FSO.BuildPath(CurrentProject.Path, strDatei)\r\nstrText = \"Dies ist ein Beispieltext.\" & vbCrLf<\/span>\r\nstrText = strText & \"Und noch eine Zeile.\" & vbCrLf<\/span>\r\nstrText = strText & \"Und die letzte Zeile.\"\r\nSet<\/span> objTextstream = FSO.CreateTextFile(strPfad)\r\nWith<\/span> objTextstream\r\n .Write strText\r\nEnd With<\/span>\r\nobjTextstream.Close<\/pre>\n
Hier ermitteln wir einen temporären Dateinamen, bei dem wir die Dateiendung .tmp <\/b>durch .txt <\/b>ersetzen. Dann fügen wir diese über die Funktion BuildPath <\/b>mit dem Verzeichnis der aktuellen Datenbank zu einem Pfad zusammen. Außerdem fügen wir in der Variablen strText <\/b>einen mehrzeiligen Text zusammen, den wir dann zur Datei hinzufügen wollen.<\/p>\n
Die Textdatei erstellen wir mit der CreateTextFile<\/b>-Methode des FileSystemObject<\/b>-Objekts, der wir als Parameter den Pfad aus strPfad <\/b>übergeben.<\/p>\n
Dann nutzen wir die Write<\/b>-Methode des mit der Variablen objTextstream <\/b>erstellten TextStream<\/b>-Objekts, um den Inhalt der Variablen strText <\/b>einzufügen.<\/p>\n
Schließlich schließen wir die Datei mit der Close<\/b>-Methode. Das Ergebnis ist eine Textdatei mit dem Text aus strText <\/b>(siehe Bild 1).<\/p>\n
![\"Eine](\"..\/tl_files\/images\/pic_440_001.png\")
<\/a><\/p>\n