pcl_test

1、不需要贴不能满足你需求的代码
2、优先文字说明，能用文字说明清楚的勿发图片
3、上传的附件需压缩打包
4、对应关系没有明确说明

pcl_test

猜

@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
复制代码

pcl_test

回复 4# winbat

cmd窗口没输出，还是没有输出到txt文本，还是什么都没输出？如果是没有输出到txt文本，自行添加

pcl_test

回复 7# winbat

cmd窗口的输出结果呢？你确定你添加对了？
http://www.bathome.net/thread-2516-1-1.html

5楼11行
for %%k in (!c:~4^,7!) do if defined _%%a1%%k >>"学学基础知识.txt" echo;%%i

pcl_test

回复 9# winbat

不要重复贴码
把顶楼的除了result.txt之外的所有txt文件跟bat文件放一起运行

pcl_test

回复 11# winbat

不改5楼的代码直接运行显示什么

pcl_test

回复 13# winbat

@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
复制代码

这样呢，显示什么

pcl_test

回复 15# winbat

核对下代码，不改5楼的代码直接运行只显示“请按任意键继续. . . ”么？

pcl_test

回复 17# winbat

//&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);
复制代码

这样呢，显示什么

pcl_test

回复 21# winbat

嗯，我以你顶楼给出的样本测试没有问题，自行找原因或者把QQ私密我吧