Batch! Variable Zeile mit festem Anfang, Änderung nach dem Anfang von variabler zahl in neue zahl!

findstr "^account" "D:\Datei.txt"|findstr "[0-9]3"

@echo off &setlocal disabledelayedexpansion
set "Input=D:\Adminhelp\test.txt"  
set "Output=D:\Adminhelp\Ausgabe.txt"  
set "Zahl=512"  

(
echo @echo off ^& setlocal enabledelayedexpansion
echo echo.!Line!
echo endlocal
)>"%temp%\Line.cmd"  

(
for /f "usebackq delims=" %%i in ("%Input%") do (  
	set "line=%%i"  
	"%temp%\Line.cmd"|findstr /b /c:" account" >nul 2>nul&&(  
		for /f "tokens=1* delims=1234567890" %%j in ("%%i") do echo.%%j%Zahl%%%k  
	)||echo.%%i
)
)>"%temp%\Temp"  
move "%temp%\Temp" "%Output%"  

@echo off & setlocal enabledelayedexpansion
set "Alt=E:\alt.txt"  
set "Neu=E:\neu.txt"  
set "fest= fester_inhalt: "  

for /f "tokens=3 delims= " %%i in ('findstr /n %fest% %Alt%') do (  
echo Zahl vorher: %%i
set Zahl=%%i
set Wert=10
)
set Von=%fest%%Zahl%
set Nach=%fest%%Wert%

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

copy "%Alt%" "%Neu%">nul  
cscript //nologo %R% "%Neu%" "%Von%" "%Nach%"  

@echo off & setlocal
set "Alt=E:\alt.txt"  
set "Neu=E:\neu.txt"  
set "fest=fester_inhalt: "  

for /f "tokens=3 delims= " %%i in ('findstr /n %fest% "%Alt%"') do (  
echo Zahl vorher: %%i
set Zahl=%%i
set Wert=10
)
set "Von=%fest%%Zahl%"  
set "Nach=%fest%%Wert%"  

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

copy "%Alt%" "%Neu%">nul  
cscript //nologo %R% "%Neu%" "%Von%" "%Nach%"  

@echo off & setlocal
set "Datei=E:\alt.txt"  
set "fest=fester_inhalt: "  

for /f "tokens=3 delims= " %%i in ('findstr /n %fest% "%Datei%"') do (  
echo Zahl vorher: %%i
set Zahl=%%i
set Wert=10
)
set "Von=%fest%%Zahl%"  
set "Nach=%fest%%Wert%"  

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

cscript //nologo %R% "%Datei%" "%Von%" "%Nach%"  

>type test.txt
 account & 7125387631487 & noch mehr
andere Zeile
 account 11111 rest
 nochwas 22222
>"\cmd befehle\VariLine"
>type Ausgabe.txt
 account & 512 & noch mehr
andere Zeile
 account 512 rest
 nochwas 22222