@if(0)==(0) echo off
md 合并 2>nul
dir /b /s *.nc | findstr "\\G[0-9][0-9]*\\[^\\]*$" | cscript //nologo //e:jscript "%~f0" > 合并\result.nc
pause & goto :EOF
@end

var fso = new ActiveXObject('Scripting.FileSystemObject');
var s = '';

while(!WSH.StdIn.AtEndofStream) {
    var strFile = WSH.StdIn.ReadLine();
    var strFolder = strFile.replace(/.+?\\([^\\]+)\\[^\\]+$/, '$1');

    var objFile = fso.OpenTextFile(strFile, 1);
    var str = objFile.ReadAll().replace(/(\r\n)+$/, '');
    var arr = str.split('\r\n');
    objFile.Close();

    if(typeof(s1) == 'undefined'){
        var s1 = arr.slice(0, 6).join('\r\n') + '\r\n';
        var s3 = arr.slice(-3).join('\r\n');
    }

    var s2 = arr.slice(6, -3).join('\r\n');
    s += s2.replace(/\bG54\b/g, strFolder) + '\r\n';
}

WSH.Echo(s1 + s + s3)
复制代码

@echo off
set r=[IO.File]::ReadAllText($_.FullName, [Text.Encoding]::Default)
powershell ^
    $s='';dir . G*^|?{$_.PSIsContainer}^|%%{dir $_ *.nc^
    ^|%%{(%r% -replace '\bG54\b',$_.Directory.Name) -match '^((.+\n){6})([\s\S]+?)((.+\n){2}.+)\s*$'^|out-null;^
    if(!$n){$a=$matches[1];$b=$matches[4]}$n=1;$s+=$matches[3]^}};^
    $a+$s+$b^|out-file '合并.nc' -encoding Default
pause
复制代码

@echo off
md 合并 2>nul
PowerShell -c "$arr=dir G*\*.nc|%%{(type $_) -replace '\bG54\b',$_.Directory.Name};$str=$arr -join \"`r`n\";$str -replace '(?n:[^\r\n]+\r\n){2}%%(?n:\r\n)+%%\r\n(?n:[^\r\n]+\r\n){5}', ''" > 合并\result.nc
pause
复制代码