【已解决】用批处理怎样实现从文本中查找特定字符串

思想之翼

D:\01\文件夹内有7315个文本，命名0001-7315，每个文本记录若干行数据，格式为
0123
3258
9871
...
D:\02\文件夹内有7315个文本，命名0001-7315，每个文本记录一行数据，格式为
0123

若D:\01\0001.txt包含D:\02\0001.txt，则为真
若D:\01\0002.txt不包含D:\02\0002.txt，则为假
若D:\01\0003.txt包含D:\02\0003.txt，则为真
...
若D:\01\7315.txt包含D:\02\7315.txt，则为真

然后统计共有多少真，比如有7311个真，则将7311写入D:\03\统计.txt

Blitz

没看明白

思想之翼

回复 2# Blitz

比如D:\01\0001.txt内数据是
1234
2345
5678
D:\02\0001.txt内数据是
2345
即D:\01\0001.txt的数据包含D:\02\0001.txt的数据
同理比较D:\01\与D:\02\内对应同名文本内的数据，之后统计包含的文本共有多少

WHY

test.js

1. var srcDir1 = 'D:/01';
   
2. var srcDir2 = 'D:/02';
   
3. var dstDir  = 'D:/03';
   
4. 
   
5. var totalNum = 0;
   
6. var fso = new ActiveXObject('Scripting.FileSystemObject');
   
7. var e = new Enumerator(fso.GetFolder(srcDir1).files);
   
8. 
   
9. if(!fso.FolderExists(dstDir)) fso.CreateFolder(dstDir);
   
10. 
    
11. for(; !e.atEnd(); e.moveNext()){
    
12.     var srcFile1 = e.item().Path;
    
13.     var srcFile2 = srcDir2 + '/' + e.item().Name;
    
14. 
    
15.     if(/\.txt$/i.test(srcFile1) && fso.FileExists(srcFile2)){
    
16.         totalNum += IsContained(srcFile1, srcFile2);
    
17.     }
    
18. }
    
19. 
    
20. function IsContained(srcFile1, srcFile2){
    
21.     var str1 = fso.OpenTextFile(srcFile1, 1).ReadAll();
    
22.     var str2 = fso.OpenTextFile(srcFile2, 1).ReadLine();
    
23. 
    
24.     var reg = new RegExp('^' + str2 + '$', 'mi');
    
25.     if(reg.test(str1)) { return 1; } else return 0;
    
26. }
    
27. 
    
28. fso.OpenTextFile(dstDir + '/统计.txt', 2, true).WriteLine(totalNum);
    
29. 
    
30. WSH.Echo('Done!')

复制代码

WHY

test.ps1

1. $srcDir1 = 'D:\01';
   
2. $srcDir2 = 'D:\02';
   
3. $dstDir  = 'D:\03';
   
4. 
   
5. $totalNum = 0;
   
6. If(!(Test-Path $dstDir)){$null = New-Item $dstDir -ItemType directory;}
   
7. 
   
8. $di = New-Object IO.DirectoryInfo($srcDir1);
   
9. $fi = $di.GetFiles('*.txt', [IO.SearchOption]::TopDirectoryOnly);
   
10. $count = $fi.Count;
    
11. 
    
12. For($i=0; $i -lt $count; $i++){
    
13.     $srcFile1 = $fi[$i].FullName;
    
14.     $srcFile2 = $srcDir2 + '\' + $fi[$i].Name;
    
15.     If(Test-Path $srcFile2){
    
16.         $arr = [IO.File]::ReadAllLines($srcFile1, [Text.Encoding]::Default);
    
17.         $str = type $srcFile2 -ReadCount 1;
    
18.         If($arr -Contains $str){ $totalNum++; }
    
19.     }
    
20. }
    
21. 
    
22. $totalNum > ($dstDir + '\统计.txt')

复制代码

思想之翼

回复 4# WHY 感谢帮助！如果文本数据格式由竖排变为横排，比如D:\01\0001.txt内数据是
1234
2345
5678
现在改变为
1234 2345 5678
D:\02\0001.txt内数据是
2345
您的代码如何修改？

WHY

回复 6# 思想之翼

第 24 行：

1. var reg = new RegExp('\\b' + str2 + '\\b');
   

复制代码