在Windows 7中的文件夹中创建批量文件以批量重命名pdf文件

Question

我们是一家每日新闻报纸代理商，我们的新闻报纸有40页。 为了将新闻纸（PDF文件）提交给新闻阅读器，我们需要将全部40页重新命名为特定格式，即PGTVD_DDMMYYYY_001 * .pdf

DDMMYY将替换为特定的日期，并且页码将自动从1增加到40。

我想创建一个批处理文件，通过运行该文件，我可以一次重命名所有文件。

请帮我怎么做。

提前致谢

钱德拉·塞卡（Chandra Sekhar）

Answer 1

如果未提供日期作为第一命令行arg，则此批处理将使用当前日期。

@Echo off&SetLocal EnableExtensions EnableDelayedExpansion
Set PreFix=PGTVD

:: Get current date
for /f "tokens=1-3 delims=.+-" %%A in (
  'wmic os get LocalDateTime^|findstr ^^[0-9]'
    ) do Set _DT=%%A
Set "MyDate=%_DT:~6,2%%_DT:~4,2%%_DT:~0,4%"
If "%~1" Neq "" Set "MyDate=%~1"

For /f "delims=" %%A in (
  'Dir /B/A-D/ON Page*.pdf'
) Do Call :RenSub "%%~fA"
Timeout /T -1
Goto :Eof
:RenSub
Set Name=%~n1
Set /A No=1000+%Name:~4%
Echo Ren %1 "%PreFix%_%MyDate%_%No:~-3%%~x1"

仅当输出看起来正确时，才重命名命令，否则请删除最后一行中的回声。