Удалить в текстовом файле каждую строку, в которой число повторов какого-либо символа превышает заданное

@set infile=000.txt
@set outfile=111.txt
@set char=P
@set count=6
@echo off
setlocal ENABLEDELAYEDEXPANSION
for /l %%i in (1,1,!count!) do set reg=!reg!.*!char!
>nul findstr /v /r "!reg!" !infile!>!outfile!
exit /b

@set infile=000.txt
@set outfile=111.txt
@set count=4
@echo off
setlocal ENABLEDELAYEDEXPANSION
echo.>.tmp
>nul copy /y %infile% %outfile%
for /f "tokens=* delims=" %%a in (%outfile%) do (
    set "line=%%a"
    call :parsLine)
del /q "!outfile!.tmp" .tmp
exit /b
:parsLine
set "reg="
set "char=!line:~0,1!"
>nul findstr "!char!" .tmp && exit /b || (
    echo.!char!>>.tmp
    for /l %%i in (1,1,!count!) do set reg=!reg!.*!char!
    findstr /v /r "!reg!" !outfile! >!outfile!.tmp
    >nul copy /y !outfile!.tmp !outfile!)
set "line=!line:~1!"
if defined line goto parsLine
exit /b

@set infile=000.txt
@set outfile=111.txt
@set count=6
@echo off
setlocal ENABLEDELAYEDEXPANSION
if exist !outfile! del /q !outfile!
for /f "tokens=* delims=" %%a in (!infile!) do (
    set "line=%%a"
    set "num=0"
    call :parsLine
    if !err! lss !count! echo !line!>>!outfile!)
exit /b
 
:parsLine
set "err=1"
set "char=!line:~%num%,1!"
set "newline=!line:~%num%!"
set /a num+=1
if not defined char exit /b
:recurs
set "newline=!newline:~1!"
if "!char!"=="!newline:~0,1!" set /a err+=1 
if !err! geq !count! exit /b
if defined newline goto :recurs 
goto :parsLine