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

rockjean

现有这些单页的PDF文件，能不能按照绿线所框的数量，把该单页PDF的内容生成指定数量的多页文件呢？
比如，文件名有掏空的文件除外，编号01开头的PDF文件，生成331页相同内容的多页PDF文件；
编号02开头的PDF生成421页相同内容的多页PDF，以此类推……

rockjean

回复 9# flashercs


    对的，只是打印用的，每个文件要打印的次数不同，操作人员不想手动设置数量，
多的时候要设置好几百次，而且容易输错。所以，想直接把PDF撸成多页，这样就默认
一个文件打印一次，就满足所需的数量了。文件大的问题是因为里面的文字都是矢量，
缺少字体支持，这样没办法合并相同的文字。

flashercs

回复 8# rockjean

既然文件这么大为何要弄这么多重复页?奇怪 ,只是为了打印吗?

rockjean

回复 5# flashercs


    现在我把文件名里的中文字符去掉了，可以按指定数量生成多页文件，缺点就是每个文件容量都很大，40多个文件可达6G之多，之前一个单页的文件只有800多kb。

rockjean

回复 5# flashercs


    已经接近完美了，我从网盘下载mutools.exe与pdf.bat配合使用
但是，只有部分文件有反应，是不是文件名有中文字符的原因呢？

rockjean

回复 5# flashercs


    我试一下，看到EXE文件会令人警觉

flashercs

回复 3# rockjean
改了一下:mutool.exe和pdf.bat都放到pdf文件目录下
链接：https://pan.baidu.com/s/1Xrhx9vHODvHduJ0Wrho_yw
提取码：ur8d

zaqmlp

http://bcn.bathome.net/tool/PDFtk.rar下载解压，将exe、dll文件跟bat及pdf文件放一起

@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
复制代码

rockjean

回复 2# flashercs

这个生成文件数量是没有问题的，但我想要的是多页的一个PDF文件，比例编号01里面有331页，这个样子的。

flashercs

@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
复制代码