Textdatei mit einem Teil des Inhaltes umbenennen

for /f "Tokens=1,* delims= :" %%a in (c:\test\umbenamsen.ini) do echo ren "%%a" "%%b.txt">>c:\test\umbenamsen.log  

@echo off & setlocal
set "Ordner=C:\Test"  
set "Maske=*.txt"  

set ZNr=18
set Sp1=9
set L1=3
set Sp2=13
set L2=10

pushd "%Ordner%"  
for /f "delims=" %%i in ('dir /b /a-d "%Maske%"') do call :ProcessFile "%%i"  
popd
goto :eof

:ProcessFile
set "Zeile="  
for /f "tokens=1* delims=:" %%i in ('findstr /n "^" %1^|findstr /b "%ZNr%:"') do set "Zeile=%%j"  
if not defined Zeile echo %~1: Nummer nicht gefunden! & goto :eof

call set "NameNeu=%%Zeile:~%Sp1%,%L1%%%%%Zeile:~%Sp2%,%L2%%%"  
echo ren %1 "%NameNeu%%~x1"  
goto :eof

set "NameNeu=%Zeile:~9,3%%Zeile:~13,10%"

findstr /N /R /C:"\< [0-9][0-9][0-9]" c:\test\*.txt >>c:\test\umbenamsen.ini  
for /f "Tokens=1,2,3 delims=:" %%a in (c:\test\umbenamsen.ini) do echo ren "%%a%%b "%%c.txt" >>c:\test\umbenamsen.log  
notepad c:\test\umbenamsen.log

ren "Documents_03SEP09_0000235.txt" "2584792087687.txt"

pause