[文件操作] 求助批处理实现文件查找和剪切

@if (0)==(0) echo off
set "file=列表.txt"
set "fold=G:\文件汇总"
for /f "tokens=1*delims=|" %%i in ('dir /b /s /a-d *.jpg^|cscript //nologo //e:jscript "%~f0" "%file%"')do (
    md "%fold%\%%i\"
    move "%%j" "%fold%\%%i\%%~nxj"
) 2>nul
pause & exit
@end

var str = WScript.StdIn.ReadAll();
var fso = new ActiveXObject('Scripting.FileSystemObject');
var txt = fso.OpenTextFile(WScript.Arguments(0)).ReadAll();
txt = txt.replace(/[\^$()\[\]+\-{}.]/g, '\\$&');
var arr, reg = /(.+)\r\n/g, re, ar, s='';
while(arr = reg.exec(txt+'\r\n')){
    re = new RegExp('.*(' + arr[1] + ')[^\\\\]*\\r\\n', 'g');
    while(ar = re.exec(str)){
        s += ar[1].replace(/\-/g, '\\') + '|' + ar[0];
    }
}
WScript.Echo(s)
复制代码

@if (0)==(0) echo off
for /f "tokens=1*delims=|" %%i in ('dir /b /s G:\*-*.jpg^|cscript //nologo //e:jscript "%~f0"')do (
    md "G:\文件汇总\%%i\"
    move "%%j" "G:\文件汇总\%%i\"
) 2>nul
pause & exit
@end

var str = WScript.StdIn.ReadAll().replace(/G:\\文件汇总\\.+\.jpg$/igm, '');
var fso = new ActiveXObject('Scripting.FileSystemObject');
var txt = fso.OpenTextFile('列表.txt').ReadAll();
txt = txt.replace(/[\^$()\[\]+\-{}.]/g, '\\$&');
var arr, reg = /(.+)\r\n/g, re, ar, s='';
while(arr = reg.exec(txt+'\r\n')){
    re = new RegExp('.*(' + arr[1] + ')[^\\\\]*\\r\\n', 'ig');
    while(ar = re.exec(str)){
        s += ar[1].replace(/\-/g, '\\') + '|' + ar[0];
    }
}
WScript.Echo(s)
复制代码