批量从存档中按顺序提取、检查重复文件和重命名文件

Question

我一直在尝试以一种简单的方式实现通过 ftp 将图像文件复制到服务器。退出文件使用 P123456 结构，新文件应该在它们之后收到一个 _number，如 P123456_1。我没有设法让它们按顺序运行，但只能使用以下代码以随机模式运行。

set work=%temp%\%random%-%random%
mkdir "%work%"

set archives=*.rar

for %%A in (%archives%) do (
"%ProgramFiles(x86)%\7-Zip\7z.exe" e -o"%work%" "%%~A"
for %%F in ("%work%\*") do copy "%%~F" "%%~nF_%random%%%~xF"
)

rmdir "%work%"

如果新文件会为存档中的每个文件生成随机数，上述代码就足够了，但如果我在存档中有 P1、P2 和 P3，则批处理将输出 P1_random-number、P2_same-random-number、 P3_same-as-the-first-two “random” numbers 而不是 P1_random、P2-other-random 等。

Answer 1

这是一个很好的例子来描述延迟扩展在批处理文件中的使用。

setlocal enabledelayedexpansion
set work=%temp%\!random!-!random!
mkdir "%work%"
set archives=*.rar

for %%A in (%archives%) do (
"%ProgramFiles(x86)%\7-Zip\7z.exe" e -o"%work%" "%%~A"
for %%F in ("%work%\*") do copy "%%~F" "%%~nF_!random!%%~xF"
 )
rmdir "%work%"

Answer 2

实现一个计数器很容易：

setlocal enabledelayedexpansion
set work=%temp%\%random%-%random%
mkdir "%work%"
set archives=*.rar
set counter=0

for %%A in (%archives%) do (
  REM you should delete the contents of %work% for each new archive:
  rmdir /q /s "%work%"
  mkdir "%work%"
  "%ProgramFiles(x86)%\7-Zip\7z.exe" e -o"%work%" "%%~A"
  for %%F in ("%work%\*") do (
    call :getfreename "%%~F"
    copy "%%~F" "%%~nF_!counter!%%~xF"      )
)
rmdir /q /s "%work%"
goto :eof

:getfreename
set /a count+=1
if exist "%~n1_%counter%%~x1" goto :getfreename
goto :eof

有关延迟扩展的简短演示，请参阅here