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

var srcDir1 = 'D:/01';
var srcDir2 = 'D:/02';
var dstDir  = 'D:/03';

var totalNum = 0;
var fso = new ActiveXObject('Scripting.FileSystemObject');
var e = new Enumerator(fso.GetFolder(srcDir1).files);

if(!fso.FolderExists(dstDir)) fso.CreateFolder(dstDir);

for(; !e.atEnd(); e.moveNext()){
    var srcFile1 = e.item().Path;
    var srcFile2 = srcDir2 + '/' + e.item().Name;

    if(/\.txt$/i.test(srcFile1) && fso.FileExists(srcFile2)){
        totalNum += IsContained(srcFile1, srcFile2);
    }
}

function IsContained(srcFile1, srcFile2){
    var str1 = fso.OpenTextFile(srcFile1, 1).ReadAll();
    var str2 = fso.OpenTextFile(srcFile2, 1).ReadLine();

    var reg = new RegExp('^' + str2 + '$', 'mi');
    if(reg.test(str1)) { return 1; } else return 0;
}

fso.OpenTextFile(dstDir + '/统计.txt', 2, true).WriteLine(totalNum);

WSH.Echo('Done!')
复制代码

$srcDir1 = 'D:\01';
$srcDir2 = 'D:\02';
$dstDir  = 'D:\03';

$totalNum = 0;
If(!(Test-Path $dstDir)){$null = New-Item $dstDir -ItemType directory;}

$di = New-Object IO.DirectoryInfo($srcDir1);
$fi = $di.GetFiles('*.txt', [IO.SearchOption]::TopDirectoryOnly);
$count = $fi.Count;

For($i=0; $i -lt $count; $i++){
    $srcFile1 = $fi[$i].FullName;
    $srcFile2 = $srcDir2 + '\' + $fi[$i].Name;
    If(Test-Path $srcFile2){
        $arr = [IO.File]::ReadAllLines($srcFile1, [Text.Encoding]::Default);
        $str = type $srcFile2 -ReadCount 1;
        If($arr -Contains $str){ $totalNum++; }
    }
}

$totalNum > ($dstDir + '\统计.txt')
复制代码

var reg = new RegExp('\\b' + str2 + '\\b');
复制代码