//&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);COPY

@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 /bCOPY

#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)COPY

@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 /bCOPY