Zeichen in mehreren Dateien ersetzen

@echo off & setlocal
set "Basis=D:\Dein Ordner"  
set "Von=AlterInhalt"  
set "Nach=NeuerInhalt"  

set R=%temp%\ReplaceInFile.vbs
>%R% echo Set fso=CreateObject("Scripting.FileSystemObject"):Set a=WScript.Arguments:T=fso.OpenTextFile(a(0)).ReadAll:If InStr(1,T,a(1),1)^>0 Then fso.CreateTextFile(a(0)).Write Replace(T,a(1),a(2),1,-1,1)  

for %%i in ("%Basis%\*.txt") do (  
    echo %%i
    cscript //nologo %R% "%%i" "%Von%" "%Nach%"  
)

set "Von=^<div^>AlterInhalt^</div^>"