WHY

@echo off & setlocal enabledelayedexpansion
rem 移动到 E:\Test
set "dstFolder=E:\Test"

for /f "tokens=1,3delims=:" %%i in ('findstr /i /s /r /c:"^;\*.*: *[^0-9][^0-9]*[0-9][0-9]*[^0-9][^0-9]*" *.txt *.Log') do (
    rem 取第二行
    (for %%m in (a a) do set /p s=)<"%%i"
    if /i "!s!" == "&REL 847" (set FD4=YES) else (set FD4=NO)

    for /f "delims=(" %%m in ("%%j") do (
        for /f "tokens=*" %%m in ("%%m") do set "FD3=%%m"
    )
    for /f "tokens=1* delims=1234567890" %%m in ("!FD3!") do (
        set "FD2=!FD3:%%n=!"
        set "fd=%dstFolder%\%%m\!FD2!\!FD3!\!FD4!"
        if not exist "!fd!\" (
            rem 转换成大写字母
            for %%k in (Q W E R T Y U I O P A S D F G H J K L Z X C V B N M) do set "fd=!fd:%%k=%%k!"
            echo;md "!fd!\"
        )
        echo;move "%%i" "!fd!\"
    )
)
pause
复制代码

大写转换搞复杂了，改一下。

WHY

@if(0)==(0) echo off
dir /b /s *.txt *.Log | cscript //nologo //e:jscript "%~f0"
pause & goto :EOF
@end

var dstFolder = 'E:\\Test\\';      //移动到 E:\Test 目录
//var dstFolder = WSH.ScriptFullName.replace(/[^\\]+$/, '');
var fso = new ActiveXObject('Scripting.FileSystemObject');

while(!WSH.StdIn.AtEndOfStream){
    var strFile = WSH.StdIn.ReadLine();
    var objFile = fso.OpenTextFile(strFile, 1);
    var str = objFile.ReadAll();
    objFile.Close();
    var m1 = str.match(/^[^\r\n]*\r?\n&REL 847/i);
    var m2 = str.match(/^;\*.*: *(\D+)(\d+)([^(]+)\(/m);
    if(!m2) continue;
    var fd = dstFolder + m2[1] + '\\' + m2[1]+m2[2] + '\\' + m2[1]+m2[2]+m2[3]+ '\\' + (m1 ? 'YES' : 'NO');
    createFolder(fd.toUpperCase());
    var name = strFile.replace(/.*\\/, '');
    if(!fso.FileExists(fd + '\\' + name)) fso.getFile(strFile).Move(fd + '\\');
}

function createFolder(strFolder) {
    var arr = strFolder.split('\\');
    var fd  = arr[0]; 
    for(var i=1; i<arr.length; i++) {
        fd += '\\' + arr[i];
        if(!fso.FolderExists(fd)) fso.CreateFolder(fd);
    }
}
复制代码