tmplinshi

@echo off
if exist "%~dp0\lock.txt" exit /b
call :o "%~f0" >"%~dp0\lock.txt"
exit /b

:o
pushd "%~dp1"
echo %date%    %time%
echo,
set "DestDir=d:\cont"
set OutDir=
set #dir_num#=1
for %%i in (*.png) do (
    SetLocal EnableDelayedExpansion
    set OutDir_Pre=%DestDir%\%%~ni_cont\%%~ni_cont_
    if not exist "!OutDir_Pre!*" (
        set "OutDir=!OutDir_Pre!1"
    ) else (
        for /d %%D in ("!OutDir_Pre!*") do (
           set /a #dir_num# += 1, _%%~nxD = 0
        )
        for /l %%N in (1 1 !#dir_num#!) do (
            if not defined _%%~ni_cont_%%N (
                 if not defined OutDir set OutDir=!OutDir_Pre!%%N
            )
        )
    )
    md "!OutDir!"
    copy "%%i" "!OutDir!\%%~ni_cont_!#dir_num#!.png" >nul
    echo !OutDir!\%%~ni_cont_!#dir_num#!.png
    EndLocal
)
POPD
goto :eof
复制代码

tmplinshi

8# linjuming


已修改

tmplinshi

13# linjuming

@echo off
if exist "%~dp0\lock.txt" exit /b
call :o "%~f0" >"%~dp0\lock.txt"
exit /b

:o
pushd "%~dp1"
echo %date%    %time%
echo,
set "DestDir=d:\cont"
set OutDir=
set #dir_num#=1
for /f "delims=" %%i in (' dir /a:-d /b /o:n *.png ') do (
    SetLocal EnableDelayedExpansion
    set fname_old=%%~ni
    set "fname=!fname_old:.=<d>!"
    for %%i in ("!fname:_=.!") do set fname=%%~ni
    set fname=!fname:.=_!
    set "fname=!fname:<d>=.!"
    set OutDir_Pre=%DestDir%\!fname!_cont\!fname!_cont_
    if not exist "!OutDir_Pre!*" (
        set "OutDir=!OutDir_Pre!1"
    ) else (
        for /d %%D in ("!OutDir_Pre!*") do (
           set /a #dir_num# += 1, _%%~nxD = 0
        )
        for /l %%N in (1 1 !#dir_num#!) do (
            if not defined _!fname!_cont_%%N (
                 if not defined OutDir set OutDir=!OutDir_Pre!%%N
            )
        )
    )
    md "!OutDir!"
    copy "%%i" "!OutDir!\!fname!_cont_!#dir_num#!.png" >nul
    echo !fname_old!.png -^> !OutDir!\!fname!_cont_!#dir_num#!.png
    EndLocal
)
POPD
goto :eof
复制代码