@if(0)==(0) echo off
dir /b /s D:\数据\*.txt | cscript -NoLogo -E:JScript %0 "D:/数据库/" "D:/搜寻/"
pause & exit
readFile(filename){ f1.Close();
@end
var ting = 6;
var ph1= WScript.Arguments.Item(0);
var ph2= WScript.Arguments.Item(1);
var fso = new ActiveXObject("Scripting.FileSystemObject");
function readFile(filename, n) {
    var ar = fso.OpenTextFile(filename, n).ReadAll().replace(/\r?\n$/g,'').split("\r\n");
    return ar;
}

function uniq(ar){
    var j = 0, str = "", obj = {};
    for(var i = 0, l = ar.length; i < l; i++ ){
       var k =  ar[i];
       obj[k] = obj[k] > 0 ? obj[k] + 1 :1
    }
    for (var k in obj) str += obj[k] > ting ? k + " ": "";
    return str.replace(/\s+$/g, "");
}

while (!WScript.StdIn.AtEndOfStream){
    var filename = WScript.StdIn.Readline();
    var text = readFile(filename, 1);
    for(i = 0, len = text.length; i < len; i++ ){
        var ar = [], arr = text[i].split(" ");
        for(var j = 0, l = arr.length; j < l; j++ ){
            var p = j + 1 + "\\"
            p += arr[j] + ".txt"
            ar = ar.concat(readFile(ph1 + p, 1));
        }
        var  file = i + 1 + ".txt"
        var f = fso.GetBaseName(filename);
        var Folder = ph2 +  f
        if (!fso.FolderExists(Folder)) fso.CreateFolder (Folder);
        var newfile = Folder  + "/" +  f + "_" + file;
        fso.CreateTextFile(newfile, true).Write(uniq(ar));
    }
}
复制代码

fso.CreateTextFile(newfile, true).WriteLine(uniq(ar));
复制代码

function uniq(ar){
    var j = 0, arr = [], obj = {};
    for(var i = 0, l = ar.length; i < l; i++ ){
       var k =  ar[i];
       obj[k] = obj[k] > 0 ? obj[k] + 1 :1
    }
    for (var k in obj) {
        if (obj[k] > ting) arr[j++] = k;
    }
    return arr.join("\r\n");
}
复制代码

@if (0)==(0) echo off
set "dstDir=D:\搜寻"
md "%dstDir%" 2>nul
pushd D:\数据\
dir /b *.txt | cscript //nologo //e:jscript "%~f0" "%dstDir%\"
pause & exit
@end

var strPath = WSH.Arguments(0);
var fso = new ActiveXObject('Scripting.FileSystemObject');

var readTextFile = function(strFile){
    var objFile = fso.OpenTextFile(strFile, 1);
    var str = objFile.ReadAll();
    objFile.Close(); objFile = null;
    return str
}

while(!WSH.StdIn.AtEndOfStream){
    var f = WSH.StdIn.ReadLine(), n = 0;
    var s = readTextFile(f).replace(/[ \t]+/g, '');
    s.replace(/\d+/g, function(s0){
        var s1 = txt = '';
        for(var i=1; i<=s0.length; i++){
            var f1 = 'D:\\数据库\\' + i + '\\' + s0.substr(i-1,1) + '.txt';
            s1 += readTextFile(f1) + '\r\n';
        }
        s1 = s1.match(/\d+/g).sort().join('\r\n') + '\r\n';
        var ar, re = /(\d+\r\n)(\1){6,}/g;
        while (ar = re.exec(s1)) { txt += ar[1] };

        if (txt != '') {
            var fd = f.replace(/\.txt$/i, '');
            n += 1;
            var ff = strPath + fd + '\\' + fd + '_' + n + '.txt';
            if(!fso.FolderExists(strPath + fd)) fso.CreateFolder(strPath + fd);
            fso.OpenTextFile(ff, 2, true).Write(txt);
        }
    })
}
复制代码

$filelist = Get-ChildItem -Path D:\数据\* -Include  *.txt
$ph1 = "D:\数据库\"
$ph2 = "D:\搜寻\"
foreach($file in $filelist){
    $arr = cat $file.FullName
    $name =  $file.Name.split(".")[0]
    $num = 0
    $new_file =  $ph2 + $name + "\"
    foreach($a in $arr)
    {
        $num++
        $array = New-Object -TypeName System.Collections.ArrayList
        $ar = $a.split(" ")
        $len = $ar.Count
        for($i=0; $i -lt $len; $i++)
       {
           $ph = $ph1 +"$($i + 1)\" + $ar[$i] + ".txt"
           get-content $ph|?{$null = $array.add($_)}
        }
        $ph = $new_file  + $name + "_" + $num + ".txt"
        $str = $array| group |?{$_.Count -gt 6}| select  -Exp name | Out-String
        $null = new-item -type file -path $ph -Force -Value $str
    }
}
复制代码