【已解决】搜寻未出现数据的批处理代码 为什么出错

思想之翼

1. @echo off
   
2. pushd "D:\数据1"
   
3. for /l %%a in (10000 1 19999) do set $%%a=1
   
4. for %%a in (*.txt) do (
   
5.   set "str= "
   
6.   setlocal enabledelayedexpansion
   
7.   for /f "delims=" %%b in (%%~snxa) do (
   
8.      for %%c in (%%b) do set "$1%%c="
   
9.   )
   
10.   for /l %%b in (10000 1 19999) do if defined $%%b set "str=!str! %%b"
    
11.   set "str=!str: 1= !"
    
12.   echo;!str:~2!
    
13.   endlocal
    
14. )>"d:\未现数\数据1\%%~nxa"
    
15. exit

复制代码

上述代码欲在0000-9999中，找出没有出现过的数据。但是未出现的数据找不全。代码错在哪里？恳望得到帮助。

aa77dd@163.com

1. set "str= "
   
2. setlocal enabledelayedexpansion
   
3. for /l %%b in (10000 1 19999) do set "str=!str! %%b"

复制代码

上面的代码经测试有效运行到了 11363

1364*6+5=8189

再继续就要超出变量存储上限了

依山居

转投其它编程语言肯定没有错。

WHY

1. @if (0)==(0) echo off
   
2. md "D:\未出现\数据1" 2>nul
   
3. pushd D:\数据1\
   
4. dir /b *.txt | cscript //nologo //e:jscript "%~f0"
   
5. pause & exit
   
6. @end
   
7. 
   
8. var fso = new ActiveXObject('Scripting.FileSystemObject');
   
9. while (!WSH.StdIn.AtEndOfStream){
   
10.     var strFile = WSH.StdIn.ReadLine();
    
11.     var objFile = fso.OpentextFile(strFile, 1);
    
12.     var s = objFile.ReadAll();
    
13.     objFile.Close(); objFile = null;
    
14.     var arr = [];
    
15.     for (var i=10000; i<20000; i++){
    
16.         var re = new RegExp('\\b' + (i+'').substr(1) + '\\b', '');
    
17.         if (!re.test(s)){arr.push((i+'').substr(1))};
    
18.     }
    
19.     fso.OpenTextFile('D:\\未出现\\数据1\\' + strFile, 2, true).Write(arr.join(' '))
    
20. }

复制代码