随手写的,没有测试。。- @echo off&setlocal enabledelayedexpansion
- ::目标目录填入5个,无须带引号,如果搜索的文件名都是同一个后缀如JPG,把dir /s /b *_*_*_*改成 dir /s /b *_*_*_*.jpg 会更好。
- set "d1=path1"
- set "d2=path2"
- set "d3=path3"
- set "d4=path4"
- set "d5=path5"
- for /l %%D in (1,1,5) do (
- pushd !d%%D!
- for /f "delims=*" %%x in ('dir /s /b *_*_*_*') do (
- for /f "tokens=1,2,4 delims=_" %%i in ("%%~nx") do (
- if defined _%%i_%%j_%%k (
- set /a n=!_%%i_%%j_%%k:~0,1!+1
- set "_%%i_%%j_%%k=!n!!_%%i_%%j_%%k:~1!,%%x"
- ) else (
- set "_%%i_%%j_%%k=1,%%x"
- )
- )
- )
- popd
- )
- set newfile=d:\newfile
- mkdir !newfile!
- for /f "tokens=2-7 delims=,=" %%a in ('set _') do (
- if %%a equ 5 (
- copy "%%b" "!newfile!\%%~nxb" /y
- copy "%%c" "!newfile!\%%~nxc" /y
- copy "%%d" "!newfile!\%%~nxd" /y
- copy "%%e" "!newfile!\%%~nxe" /y
- copy "%%f" "!newfile!\%%~nxf" /y
- )
- )
- start "!newfile!"
- pause>nul
复制代码
[ 本帖最后由 caruko 于 2011-2-24 12:45 编辑 ] |