In einer txt Datei verschiedene Zeilen löschen

@echo off & setlocal
set "katalog=c:\Speicher_1.txt"  
set "KF=C:\Katalog_fertig.txt"  
set "Entf=.50.99.rec"  

tree "d:\recordings" /f /a >"%katalog%"  
set "KT=%temp%\kat.txt"  
findstr /v "\.vdr" "%katalog%"|findstr /e /v "| | |">%KT%  

set E=%temp%\Entf.vbs
>%E% echo F=WScript.Arguments(0):WScript.Echo Replace(CreateObject("Scripting.FileSystemObject").OpenTextFile(F).ReadAll,"%Entf%","")  
cscript //nologo %E% %KT%>"%KF%"  

@echo off & setlocal
set "Basis=D:\RECORDINGS"  
set "KF=D:\Katalog_fertig.txt"  

del "%KF%" 2>nul  
for /f "delims=" %%i in ('dir /s /b "%Basis%\info.vdr"') do call :ProcessFile "%%i"  
goto :eof

:ProcessFile
set "RelPfad=%~dp1%"  
set "RelPfad=%RelPfad:~,-1%"  
call set "RelPfad=%%RelPfad:%Basis%\=%%"  
for /f "tokens=1*" %%a in ('findstr /b /c:"T " %1') do set "Titel=%%b"  
for /f "tokens=1*" %%a in ('findstr /b /c:"S " %1') do set "Episode=%%b"  
echo %RelPfad%
echo %Titel%
echo %Episode%
echo\
goto :eof

>>"%KF%" echo %RelPfad%_%Titel%_%Episode%

>>"%KF%" echo "%Titel% %Episode%"

for /f "delims=" %%i in ('dir /s /b "%Basis%\info.vdr"^|findstr /v "D\.O\.A"') do call :ProcessFile "%%i"

rd /s "D:\RECORDINGS"

@echo off & setlocal
set "KF=D:\Katalog_fertig.txt"  

set /a Zaehler=1
del "%KF%" 2>nul  
for %%s in (d:\recordings e:\recordings f:\recordings \\vdr\hd0\recordings \\vdr\hd\recordings \\vdr1\hd\recordings \\vdr2\hd\recordings) do (
    for /f "delims=" %%i in ('dir /s /b "%%s\info.vdr"') do call :ProcessFile "%%i" "%%s"  
)
goto :eof

:ProcessFile
set "Speicher=%~2"  
set "RelPfad=%~dp1%"  
set "RelPfad=%RelPfad:~,-1%"  
call set "RelPfad=%%RelPfad:%Speicher%\=%%"  
set "Titel=???"  
for /f "tokens=1*" %%a in ('findstr /b /c:"T " %1') do set "Titel=%%b"  
set "Episode=???"  
for /f "tokens=1*" %%a in ('findstr /b /c:"S " %1') do set "Episode=%%b"  
>>"%KF%" echo %Zaehler%-%Titel%-%Episode%-%Speicher%(-%RelPfad%)  
set /a Zaehler+=1
goto :eof

@echo off & setlocal
set "KF=D:\Katalog_fertig.txt"  

set /a Zaehler=1
del "%KF%" 2>nul  
for %%a in ("d:\recordings@Speicher 1" "e:\recordings@Speicher 2" "f:\recordings@Speicher 3" "\\vdr\hd0\recordings@Stube VDR-Recorder" "\\vdr\hd\recordings@320 GB" "\\vdr1\hd\recordings@Kind eins VDR-Recorder" "\\vdr2\hd\recordings@Kind zwei VDR-Recorder") do (  
    for /f "tokens=1-2 delims=@" %%r in (%%a) do (  
        for /f "delims=" %%i in ('dir /s /b "%%r\info.vdr" 2^>nul') do call :ProcessFile "%%i" "%%r" "%%s"  
    )
)
goto :eof

:ProcessFile
set "SpeicherPfad=%~2"  
set "Speicher=%~3"  
set "RelPfad=%~dp1%"  
set "RelPfad=%RelPfad:~,-1%"  
call set "RelPfad=%%RelPfad:%SpeicherPfad%\=%%"  
set "Titel=???"  
for /f "tokens=1*" %%a in ('findstr /b /c:"T " %1') do set "Titel=%%b"  
set "Episode=???"  
for /f "tokens=1*" %%a in ('findstr /b /c:"S " %1') do set "Episode=%%b"  
>>"%KF%" echo %Zaehler%-%Titel%-%Episode%-%Speicher%(-%RelPfad%)  
set /a Zaehler+=1
goto :eof

for /f "delims=" %%i in ('dir /s /b "%%r\info.txt" /s /b "%%r\info.vdr"2^>nul') do call :ProcessFile "%%i" "%%r" "%%s"

@echo off & setlocal
set "KF=D:\Katalog_fertig.txt"  

set /a Zaehler=1
del "%KF%" 2>nul  
for %%a in ("d:\recordings@Speicher 1" "e:\recordings@Speicher 2" "f:\recordings@Speicher 3" "\\vdr\hd0\recordings@Stube VDR-Recorder" "\\vdr\hd\recordings@320 GB" "\\vdr1\hd\recordings@Kind eins VDR-Recorder" "\\vdr2\hd\recordings@Kind zwei VDR-Recorder") do (  
    for /f "tokens=1-2 delims=@" %%r in (%%a) do (  
        for /f "delims=" %%i in ('dir /s /b "%%r\info.txt" /s /b "%%r\info.vdr"2^>nul') do set "RelPfad=%%~dpi" & set "Datei=%%i" & call :ProcessFile "%%r" "%%s"  
    )
)
goto :eof

:ProcessFile
set "SpeicherPfad=%~1"  
set "Speicher=%~2"  
set "RelPfad=%RelPfad:~,-1%"  
call set "RelPfad=%%RelPfad:%SpeicherPfad%\=%%"  
set "Titel=???"  
for /f "tokens=1*" %%a in ('findstr /b /c:"T " "%Datei%"') do set "Titel=%%b"  
set "Episode=???"  
for /f "tokens=1*" %%a in ('findstr /b /c:"S " %Datei%"') do set "Episode=%%b"  
>>"%KF%" echo %Zaehler%-%Titel%-%Episode%-%Speicher%(-%RelPfad%)  
set /a Zaehler+=1
goto :eof