[文件操作] 【已解决】按指定数量生成内容相同的多页PDF文件

@echo off
pushd "%~dp0"
for %%A in ("*印：*.pdf") do (
  for /f "tokens=2 delims=：" %%B in ("%%~nA") do (
    for /l %%I in (1,1,%%B) do (
      echo "%%A" --^> "%%~nA#%%I%%~xA"
      copy "%%A" "%%~nA#%%I.*"
    )
  )
)
popd
pause
exit /b
复制代码

@echo off
mode con lines=3000
set info=互助互利,支付宝扫码头像,感谢打赏
rem 有问题,可加QQ956535081及时沟通
title %info%
set "newfolder1=#result"
set "newfolder2=#tmp"
cd /d "%~dp0"
md "%newfolder1%" 2>nul
if exist "%newfolder2%\" rd /s /q "%newfolder2%\"
if not exist "pdftk.exe" (echo;"pdftk.exe" not found&goto end)
for /f "delims=" %%a in ('dir /a-d/b "*印：*.pdf"') do (
    echo;"%%a"
    set n=1000001
    for /f "tokens=2 delims=：" %%b in ("%%~na") do (
        set "file=%%a"
        set /a m=n+%%b-1
        md "%newfolder2%" 2>nul
        setlocal enabledelayedexpansion
        for /l %%c in (!n! 1 !m!) do (
            copy "!file!" "%newfolder2%\%%c%%~xa"
        )
        endlocal
        pdftk.exe "%newfolder2%\*.pdf" cat output "%newfolder1%\%%~nxa"
        rd /s /q "%newfolder2%\"
    )
)
:end
echo;%info%
pause
复制代码