CODE: [Copy to clipboard]
@echo off&setlocal enabledelayedexpansion&>I.txt echo 序号 次数 电话号码
for /f "delims=" %%i in ('sed "s/[^0-9-]/\n/g" 1693.txt ^| findstr ^[0-9][0-9][0-9][0-9][0-9][0-9][0-9]*[0-9]$') do (set A=%%i
if "!A:~0,3!" neq "000" if "!A:~0,2!" neq "10" if "!A:~0,4!" neq "2009" (if "!A:~0,5!" == "17951" set A=!A:~5!)&set /a A_!A!+=1)
for /f "tokens=2,3 delims==_" %%i in ('set ^| findstr "^A_"') do set B=00000000%%j&set C_!B:~-9!:%%i==
for /f "tokens=2,3 delims==_:" %%i in ('set ^| findstr "^C_" ^| sort /r') do (set /a C+=1
call :D %%i
if !C! lss 11 >>I.txt echo !C! !E! %%j)
start notepad I.txt&exit
:D
set E=%1
:F
if "!E:~0,1!" == "0" set E=!E:~1!&goto F