Suchen und Ersetzen per Batch

@echo off & setlocal enabledelayedexpansion
set "Datei=Test.txt"   
set "t=Temp.tmp"   

set "Suchen1=aaa"  
set "Ersetzen1=bbb"  
set "Suchen2=ccc"  
set "Ersetzen2=ddd"  

if exist "%t%" del "%t%"  
for /f "delims=" %%i in ('findstr /n $ "%Datei%"') do set "Line=%%i" & call :ProcessLine  
move "%t%" "%Datei%"  
goto :WEITER_IM_BATCH

:ProcessLine
for /f "tokens=1* delims=:" %%a in ("%Line%") do set "L=%%b"  
if not defined L >>"%t%" echo\& goto :eof  
set WriteLine1=!L:%Suchen1%=%Ersetzen1%!
set WriteLine2=!WriteLine1:%Suchen2%=%Ersetzen2%!
>>"%t%" echo !WriteLine2!  
goto :eof

:WEITER_IM_BATCH
.......

set "Suchen1=aaa^^=xyz"  
set "Ersetzen1=bbb^^=zyx"  
...