Klammern und Inhalt der Klammern aus einem Text entfernen per Batch

'Ein- und Ausgabedatei hier eintragen  
strInFile   = "Test.txt"  
strOutFile  = "Test neu.txt"  

'Alle Arten von Klammern  
arrBrackets = Array("()", "", "{}", "<>")  


Const ForReading = 1

'Das Klammer-Array tauglich machen  
'als Suchmuster für Reguläre Ausdrücke.  
'.* steht für alle Zeichen, die zwischen  
'den Klammern stehen, die Klammern  
'müssen mit \ escaped werden, da sie  
'zur Syntax von Regulären Ausdrücken gehören.  
' {0,1} bewirkt, dass zusätzlich zu der zu  
'löschenden Klammer auch noch EIN  
'nachfolgendes Leerzeichen gelöscht wird,  
'wenn es denn vorhanden ist.  
For I = 0 To UBound(arrBrackets)
  arrBrackets(I) = Replace(arrBrackets(I), "()", "\(.*\) {0,1}")  
  arrBrackets(I) = Replace(arrBrackets(I), "", "\[.*\] {0,1}")  
  arrBrackets(I) = Replace(arrBrackets(I), "{}", "\{.*\} {0,1}")  
  arrBrackets(I) = Replace(arrBrackets(I), "<>", "<.*> {0,1}")  
Next

'Dateisystemobjekt erzeugen  
Set objFSO = CreateObject("Scripting.FileSystemObject")  

'Eingabedatei öffnen, auslesen und wieder schließen  
Set objInFile = objFSO.OpenTextFile(strInFile, ForReading, False)
strContent    = objInFile.ReadAll
objInFile.Close

'Objekt für Reguläre Ausdrücke erzeugen und einstellen,  
'dass alle Fundstellen berücksichtigt werden sollen  
Set objRegExp    = New RegExp
objRegExp.Global = True

'Alle Klammerarten suchen und ersetzen  
For Each strBrackets In arrBrackets
  objRegExp.Pattern = strBrackets
  strContent = objRegExp.Replace(strContent, "")  
Next

'Ausgabedatei öffnen und  
'den veränderten Dateiinhalt in neue Datei schreiben  
'Ausgabedatei schließen  
Set objOutFile = objFSO.CreateTextFile(strOutFile, True)
objOutFile.Write strContent
objOutFile.Close

cscript /nologo "PfadUndNameDesScripts.vbs"