Bestimmte Zeichen in CSV-Datei mit einer Batch ändern

Option Explicit

Dim Pfad
Dim PfadRepl , tempPf
Dim SuchText
Dim ReplaceText
dim FSO , MeineDatei
Dim MeineDateiNeu
Dim objDialog , intResult


Pfad = BrowseForFile("C:\", "CSV-Dateien (.csv)|*.csv|All Files|*.*")  

If Pfad = "" Then  
	Wscript.Echo "Keine Datei ausgewählt. Script wird beendet"  
	Wscript.Quit
End If

PfadRepl = Split(Pfad , "\")  
tempPf = Split(PfadRepl(Ubound(PfadRepl)),".")  
tempPf(Ubound(tempPF) - 1) = tempPf(Ubound(tempPF) - 1) & "_Replaced_"  
tempPf = Join(tempPF , ".")  
PfadRepl(Ubound(PfadRepl)) = tempPf
PfadRepl = Join(PfadRepl , "\")  


Function BrowseForFile(pstrPath, pstrFilter)
	Set objDialog = CreateObject("UserAccounts.CommonDialog")  
	objDialog.Filter = pstrFilter
	objDialog.InitialDir = pstrPath
	objDialog.Flags = &H80000 + &H4 + &H8
	intResult = objDialog.ShowOpen
	BrowseForFile = objDialog.FileName
End Function

Set objDialog = Nothing

SuchText = InputBox("Bitte Suchtext eingeben." , "Suchtext...","Suche")  
ReplaceText = InputBox("Bitte ErsetzenText eingeben." , "ErstzenText...","Ersetze")  

Ersetzen

Private Sub Ersetzen()
        
	On Error Resume next
	
	Set FSO = createobject("Scripting.FileSystemObject")  

	Set MeineDatei = FSO.OpenTextFile(Pfad, 1)
	MeineDateiNeu = Replace(MeineDatei.ReadAll,SuchText,ReplaceText)

	MeineDatei.Close

	Set MeineDatei = FSO.CreateTextFile(PfadRepl,True).Write(MeineDateiNeu)
	MeineDatei.Close

	Set FSO = Nothing
	Set MeineDatei = Nothing

End Sub