@echo off&setlocal enabledelayedexpansion
for /f "tokens=1,2 delims=-" %%a in ('type "截取号码段.txt"') do (
    set "a=%%a"&set "b=%%b"
    set "name=!a:~,4!"
    if not defined #!name! set "#!name!=1"
    for /l %%c in (1!a:~4^,7! 1 1!b:~4^,7!) do set "_!name!%%c=1"
)
for /f "tokens=1 delims=#=" %%a in ('set #') do (
    for /f "delims=" %%i in ('type "%%a.txt"') do (
        set "c=%%i"
        for %%k in (!c:~4^,7!) do if defined _%%a1%%k echo;%%i
    )
)
pause
复制代码

@echo off&setlocal enabledelayedexpansion
if not exist "截取号码段.txt" echo;not exist
for /f "tokens=1,2 delims=-" %%a in ('type "截取号码段.txt"') do (
    set "a=%%a"&set "b=%%b"
    set "name=!a:~,4!"
    if not defined #!name! (
        set "#!name!=1"
        if not exist "!name!.txt" echo;!name! not exist
    )
    for /l %%c in (1!a:~4^,7! 1 1!b:~4^,7!) do set "_!name!%%c=1"
)
set #
pause
复制代码

#0000=1
#0001=1
#1250=1
请按任意键继续. . .
复制代码

//&cls&cd /d "%~dp0"&cscript -nologo -e:jscript "%~f0"&pause&exit

var fso = new ActiveXObject('Scripting.FileSystemObject');
var file = '截取号码段.txt';
var s = '', files={}, list={};
if(!fso.FileExists(file))WSH.Echo(file+'不存在');
var text = fso.OpenTextFile(file, 1).ReadAll().split(/[\r\n]/);
for(var i=0; i<text.length; i++){
    var name = text[i].slice(0,4);
    if(!files[name])files[name]=1;
    text[i].replace(/\d{4}(\d{7})\d{2}-\d{4}(\d{7})\d{2}/, function(a,b,c){
        for(var j=Number(1+''+b);j<=Number(1+''+c);j++){
            list[name+(''+j).slice(1)]=j
        }
    })
}
for(var f in files){
    if(!fso.FileExists(f+'.txt')){
        WSH.Echo(f+'.txt不存在')
    }else{
        try{
            var ftext = fso.OpenTextFile(f+'.txt', 1).ReadAll().split(/[\r\n]/);
            for(var i=0; i<ftext.length; i++){
                var str = ftext[i].replace(/^\s*|\s*$/g,'');
                if(!/^\d{13}$/.test(str))WSH.Echo(f+'.txt:第'+(i+1)+'行['+str+']含有非数字字符或长度不为13位');
                if(list[str.slice(0,11)])s+=str+'\r\n';
            }
        }catch(e){WSH.Echo(f+'.txt为空文件')}
    }
}
fso.CreateTextFile('结果.txt', 2).Write(s);
复制代码

@echo off & setlocal enabledelayedexpansion

>result.txt cd.

for /f "tokens=1,2 delims=-" %%a in (截取号码段.txt) do (

    set "a=%%a" & set "b=%%b" & set "name=!a:~0,4!"

    for /f tokens^=2delims^=: %%i in ('find /c /v "" "!name!.txt"') do set /a "lb=0, ub=%%i, sk=ub/2"
    call :PAfterLines "!name!.txt" "!a:~0,13!" 0

    call :writeTemp "!name!.txt" tmpfile new
    sort /r tmpfile /o tmpfile

    for /f tokens^=2delims^=: %%i in ('find /c /v "" tmpfile') do set /a "lb=0, ub=%%i, sk=ub/2"
    call :PAfterLines tmpfile "!b:~0,13!" -1
    call :writeTemp tmpfile result.txt
)
sort result.txt /o result.txt
del tmpfile
pause
exit


:writeTemp infile outfile new
if "%3" neq "" >"%~2" cd.
if !sk! equ 0 (copy "%~2" + "%~1" "%~2" & exit /b)
>>"%~2"  (for /f skip^=%sk% %%a in (%~s1) do echo;%%a)
exit /b


REM order = 0 升序 order = -1 反序
:PAfterLines file str order
if !sk! equ 0 exit /b
for /f skip^=%sk% %%a in (%~1) do (
    if !lb! geq !ub! exit /b
    if "%%a" gtr "%~2" (
        set /a "ub=(~%3 & sk)|(%3 & ub), lb=(~%3 & lb)| (%3 & (sk+^!(lb-sk))), sk=(lb+ub)>>1"
        call :PAfterLines %~1 %~2 %3 &  exit /b
    ) else if "%%a" equ "%~2" (         exit /b
    ) else (
        set /a "lb=(~%3 & (sk+^!(lb-sk)))|(%3 & lb), ub=(~%3 & ub)|(%3 & sk), sk=(lb+ub)>>1"
        call :PAfterLines %~1 %~2 %3 &  exit /b
    )
)
exit /b
复制代码

#2016年10月1日 00:25:33 codegay

with open("截取号码段.txt") as f:
	号码段 =  [r.strip().split("-") for r in f.readlines()]
result = []
for s,e in 号码段:
	fn = s[:4] #filename
	start = s[4:11]
	end = e[4:11]
	numlist = [fn+str(r).rjust(7,'0') for r in range(int(start),int(end)+1)]
	with open(fn+".txt") as f:
		txt = f.readlines()
	for n in numlist:
		result += [l for l in txt if l.startswith(n)]

print(result)

with open("newresult.txt","w+") as f:
	f.writelines(result)
复制代码

@echo off & setlocal enabledelayedexpansion

>result.txt cd.

for /f "tokens=1,2 delims=-" %%a in (tmp\截取号码段.txt) do (

    set "a=%%a" & set "b=%%b" & set "name=!a:~0,4!"

    for /f tokens^=2delims^=: %%i in ('find /c /v "" "!name!.txt"') do set /a "lb=0, ub=%%i, sk=ub/2"
    call :PAfterLines "!name!.txt" "!a:~0,13!" 0

    call :writeTemp "!name!.txt" tmpfile new
    sort /r tmpfile /o tmpfile

    for /f tokens^=2delims^=: %%i in ('find /c /v "" tmpfile') do set /a "lb=0, ub=%%i, sk=ub/2"
    call :PAfterLines tmpfile "!b:~0,13!" -1
    call :writeTemp tmpfile result.txt
)
sort result.txt /o result.txt
del tmpfile
fc result.txt 期待结果.txt
pause
exit


:writeTemp infile outfile new
if "%3" neq "" >"%~2" cd.
if !sk! equ 0 (copy "%~2" + "%~1" "%~2" & exit /b)
>>"%~2"  (for /f skip^=%sk% %%a in (%~s1) do echo;%%a)
exit /b


REM order = 0 升序 order = -1 反序
:PAfterLines file str order
if !sk! equ 0 exit /b
for /f skip^=%sk% %%a in (%~1) do (
    if !lb! geq !ub! exit /b
    if "%%a" gtr "%~2" (
        set /a "ub=(~%3 & sk)|(%3 & ub), lb=(~%3 & lb)| (%3 & (sk+^!(lb-sk))), sk=(lb+ub)>>1"
        call :PAfterLines %~1 %~2 %3 &  exit /b
    ) else if "%%a" equ "%~2" (         exit /b
    ) else (
        set /a "lb=(~%3 & (sk+^!(lb-sk)))|(%3 & lb), ub=(~%3 & ub)|(%3 & sk), sk=(lb+ub)>>1"
        call :PAfterLines %~1 %~2 %3 &  exit /b
    )
)
exit /b
复制代码

@echo off & setlocal enabledelayedexpansion
copy /b *.txt a.Log
for /f "tokens=1,2delims=-" %%i in (tmp\截取号码段.txt) do (
    set /a n+=1
    set _%%i_!n!=1&set _%%j.!n!=1
)

set n=1
(for /f "delims=" %%i in ('sort a.Log') do (
    if defined _%%i_!n! set flag=1
    if defined flag echo;%%i
    if defined _%%i.!n! (set /a n+=1 & set flag=)
))>result.Log
pause
复制代码