Good to Know Database

Suchen und Ersetzen eines Strings in einer Textdatei


Mit dem folgenden Visual Basic Script können Sie in einer Textdatei nach einem bestimmten String suchen und diesen durch einen anderen String ersetzen. Die zu bearbeitende Datei wird hierbei in der Variable strFile angegeben (hier C:\test.txt). Durch die Variable strSearch können Sie den String angeben, nach welchem gesucht werden soll. In der Variable strReplace legen Sie fest, durch welchen String der zu suchende String ersetzt werden soll.

Nachdem die Textdatei mit der Methode OpenTextFile lesend geöffnet wurde, wird der gesamte Inhalt mit der Methode ReadAll eingelesen. Durch Replace erfolgt anschließend das Suchen und Ersetzen. Jetzt wird die Textdatei durch OpenTextFile schreibend geöffnet und mit der Methode Write der modifizierte Inhalt in die Datei geschrieben. Zum Schluss wird der Dateihandler wieder geschlossen.

Option Explicit

' Declaration of variables
Dim objFileSystem
Dim strFile
Dim objFile
Dim strContent
Dim strSearch
Dim strReplace

' Set parameters
strFile = "C:\test.txt"
strSearch = "test"
strReplace = "TEST"

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

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

' Replace strings as specified
strContent = Replace(objFile.ReadAll,strSearch,strReplace)

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

' Write modified text to file
objFile.Write(strContent)

' 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_1852.html

[ Zur Startseite ]   [ Zur Kategorie ]


Valid XHTML 1.0 Transitional Valid CSS Valid Atom 1.0

© 2004-2018 by Georg Kainzbauer