Good to Know Database

Textdatei zum Lesen oder Bearbeiten öffnen


Mit der Methode OpenTextFile kann eine Textdatei zum Lesen, Bearbeiten oder Erweitern geöffnet werden. Was Sie mit der Textdatei machen wollen, können Sie über die Option iomode festlegen. Es stehen die folgenden Werte für iomode zur Verfügung.

1   ForReading     Datei wird nur lesend geöffnet.
2   ForWriting     Datei wird zum Schreiben geöffnet. Sollte die Datei bereits existieren wird der Inhalt überschrieben.
8   ForAppending   Datei wird zum Schreiben geöffnet. Neuer Inhalt wird am Ende der Datei eingefügt.

Das folgende Beispiel öffnet die Textdatei C:\test.txt zum Lesen und schließt die Datei wieder.

Option Explicit

' Declaration of variables
Dim objFileSystem
Dim strFile
Dim objFile

' Set parameter
strFile = "C:\test.txt"

' Create object for filesystem access
Set objFileSystem = WScript.CreateObject("Scripting.FileSystemObject")

' Open textfile for reading
Set objFile = objFileSystem.OpenTextFile(strFile, 1)

' Close textfile
objFile.Close

' Deallocate file object
Set objFile = Nothing

' Deallocate filesystem object
Set objFileSystem = Nothing

' Quit Visual Basic Script
WScript.Quit()

Das folgende Beispiel öffnet die Textdatei C:\test.txt und überschreibt den Inhalt.

Option Explicit

' Declaration of variables
Dim objFileSystem
Dim strFile
Dim objFile

' Set parameter
strFile = "C:\test.txt"

' Create object for filesystem access
Set objFileSystem = WScript.CreateObject("Scripting.FileSystemObject")

' Open textfile for writting
Set objFile = objFileSystem.OpenTextFile(strFile, 2)

' Write line to textfile
objFile.WriteLine("Dieser Text ersetzt den bestehenden Inhalt.")

' Close textfile
objFile.Close

' Deallocate file object
Set objFile = Nothing

' Deallocate filesystem object
Set objFileSystem = Nothing

' Quit Visual Basic Script
WScript.Quit()

Das nächste Beispiel öffnet die Textdatei C:\test.txt und fügt am Ende der Datei eine neue Zeile an.

Option Explicit

' Declaration of variables
Dim objFileSystem
Dim strFile
Dim objFile

' Set parameter
strFile = "C:\test.txt"

' Create object for filesystem access
Set objFileSystem = WScript.CreateObject("Scripting.FileSystemObject")

' Open textfile for appending
Set objFile = objFileSystem.OpenTextFile(strFile, 8)

' Append line to textfile
objFile.WriteLine("Dieser Text wird an den bestehenden Inhalt angehängt.")

' Close textfile
objFile.Close

' Deallocate file object
Set objFile = Nothing

' Deallocate filesystem object
Set objFileSystem = Nothing

' Quit Visual Basic Script
WScript.Quit()


Dieser Eintrag wurde am 09.09.2012 erstellt und zuletzt am 22.12.2012 bearbeitet.

Direkter Link zu dieser Seite: http://www.gtkdb.de/index_29_1851.html

[ Zur Startseite ]   [ Zur Kategorie ]


Valid XHTML 1.0 Transitional Valid CSS Valid Atom 1.0

© 2004-2018 by Georg Kainzbauer