Textstellen in einer Textdatei mittels Batch/VBS ersetzten

Computer: Software & Programmierung Windows
1

Hallo Ihr Lieben,

ich möchte in verschiedenen TXT-Dateien regelmäßig einen Suchstring gegen einen anderen ersetzten.
Ich suche KEIN Toll/Programm, welches das kann, sondern eine Script-Lösung. Wie muss ich das anpacken? Habe gegoogelt, aber nichts gefunden, was bei mir funktioniert hätte.

Gruß
F

2

Habs jetzt so gelöst (VBS-Script)

Const ForReading = 1
Const ForWriting = 2

Quelle ="D:\test\"

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set filesys = CreateObject("Scripting.FileSystemObject")
Set fo = objFSO.GetFolder(Quelle)

For Each oFile In fo.Files
 If filesys.GetExtensionName(oFile) = "txt" Then

 Set objFile = objFSO.OpenTextFile(oFile, ForReading)

 strText = objFile.ReadAll
 objFile.Close
 strNewText = Replace(strText, "Hallo", "Ciao")

 Set objFile = objFSO.OpenTextFile(oFile, ForWriting)
 objFile.WriteLine strNewText 
 objFile.Close
 End If
Next

Gruß

F