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

这样呢，显示什么

winbat

回复 16# pcl_test


// 5 楼的代码运行只 cmd 回显，“ 请按任意键继续. . .  ”
// 号码段文本\批处理等全放在一个文件夹，添加 8 楼 输出代码 运行，没输出

pcl_test

回复 15# winbat

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

winbat

回复 14# pcl_test


显示：

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

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

这样呢，显示什么

winbat

回复 12# pcl_test


代码运行显示： “ 请按任意键继续. . .  ”
回车后，没输出生成文本

pcl_test

回复 11# winbat

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

winbat

回复 10# pcl_test


    放了，都放在一个文件夹下运行的

pcl_test

回复 9# winbat

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

winbat

回复 8# pcl_test

CMD 没输出结果，输出文本都没生成

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

winbat

回复 6# pcl_test
……
        set "c=%%i"
        for %%k in (!c:~4^,7!) do if defined _%%a1%%k echo;%%i
     >>result.txt echo %%i
    )
)
pause

没截取成功，只是合并了几个要截取的号码段文本

pcl_test

回复 4# winbat

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

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

winbat

回复 4# pcl_test


    试了下代码，没输出