[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
本帖最后由 WHY 于 2018-2-1 13:33 编辑

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

评分人数

TOP

本帖最后由 WHY 于 2018-2-11 01:33 编辑

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

评分人数

TOP

回复 6# 思想之翼

第 24 行:
  1. var reg = new RegExp('\\b' + str2 + '\\b');
复制代码
1

评分人数

TOP

返回列表