3
Suche ersetzten Inhalt Datei aus gesamten Verzeichnis
Guten Abend,
Ich habe folgendes Problem.
In einem Verzeichnis liegen x Textdateien, nun möchte ich in den Dateien gewisse Wörter ersetzen lassen.
dieses soll für alle Dateien in dem Verzeichnis erfolgen.
z.b.
GHTZ23 soll in Test123
BHGR44 soll in Test789
..
ersetzt werden
Habe hier zwar ein Beispiel gefunden, kann es meinen Bedürfnissen aber nicht anpassen.
Es soll die Möglichkeit bestehen mit einfachsten Mitteln neue Wörter hinzufügen
Danke für eure hilfe
Ich habe folgendes Problem.
In einem Verzeichnis liegen x Textdateien, nun möchte ich in den Dateien gewisse Wörter ersetzen lassen.
dieses soll für alle Dateien in dem Verzeichnis erfolgen.
z.b.
GHTZ23 soll in Test123
BHGR44 soll in Test789
..
ersetzt werden
Habe hier zwar ein Beispiel gefunden, kann es meinen Bedürfnissen aber nicht anpassen.
Es soll die Möglichkeit bestehen mit einfachsten Mitteln neue Wörter hinzufügen
Const ORDNER = "C:\ordner"
Const EXTENSION = "txt"
Set fso = CreateObject("Scripting.Filesystemobject")
Set regex = CreateObject("vbscript.regexp")
regex.Global = False: regex.IgnoreCase = True: regex.MultiLine = True
regex.Pattern = "(Parameter)\s*=\s*(\d+)"
For Each file In fso.GetFolder(ORDNER).Files
If LCase(fso.GetExtensionName(file.Name)) = LCase(EXTENSION) Then
strContent = fso.OpenTextFile(file.Path,1).ReadAll()
set matches = regex.Execute(strContent)
If matches.Count > 0 Then
If CDbl(matches(0).submatches(1)) > 0 Then
fso.OpenTextFile(file.Path,2).Write(regex.Replace(strContent,"$1 = 0"))
End If
End If
End IfDanke für eure hilfe
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 278718
Url: https://administrator.de/contentid/278718
Printed on: April 19, 2024 at 22:04 o'clock
3 Comments
Latest comment
Oh je, das "never ending" Find Replace-Thema, gibt's hier schon zum Umfallen Threads noch und nöcher ....
Gruß jodel32
Const ORDNER = "C:\ordner"
Const EXTENSION = "txt"
Set fso = CreateObject("Scripting.Filesystemobject")
Set dic = CreateObject("Scripting.Dictionary")
dic.add "Suchstring1","Ersetzungsstring1"
dic.add "Suchstring2","Ersetzungsstring2"
keys = dic.keys
For Each file In fso.GetFolder(ORDNER).Files
If LCase(fso.GetExtensionName(file.Name)) = LCase(EXTENSION) Then
Set fRead = fso.OpenTextFile(file.Path,1)
strContent = fRead.ReadAll()
fRead.Close
for i = 0 to keys.count -1
strContent = Replace(strContent,keys(i), dic.Item(keys(i)),1,-1,1)
next
fso.OpenTextFile(file.Path,2).Write(strContent)
End If
Next
MsgBox "Finished"
Set fso = Nothing
Set dic = Nothing
@Endoro
Der Thomas darf glaub nur VBS ... hat ich bei Ihm schon mal mit Powershell versucht, erfolglos
Haben die Ihm alles gesperrt.
Gruß jodel32
Der Thomas darf glaub nur VBS ... hat ich bei Ihm schon mal mit Powershell versucht, erfolglos
Haben die Ihm alles gesperrt.Gruß jodel32
