[文件操作] 批处理怎样实现奇数页的pdf最后一页插入空白页？

暴雪英雄

工作中，需要将多个pdf文件，合并成一个pdf文件，原pdf的首页均要放在合并后pdf的奇数页，希望实现以下功能，原来偶数页的pdf保持不变，奇数页的pdf则在合并前，在最后一页插入一张空白页，再与其他的pdf一起合并，请问该如何实现？

77七

执行代码前 手动创建一个空白页的pdf文件，命名为 空白页.pdf

@echo off
rem 批处理保存为ansi编码格式
rem 下载pdftk http://bcn.bathome.net/tool/PDFtk.rar
cd /d "%~dp0"
setlocal enabledelayedexpansion
for /f "delims=" %%i in ('dir /b /a-d *.pdf ^|find /v /i "空白页.pdf"') do (
	pdftk "%%i" dump_data |findstr /rbec:"NumberOfPages:.*[13579]" 1>nul && (
		set str=!str! "%%i" 空白页.pdf
	) || (
		set str=!str! "%%i"
	)
)
set str=!str!$$
set "str=!str:空白页.pdf$$=!"
set "str=!str:$$=!"
for %%i in (.) do (
	echo 合并 !str!
	pdftk !str! cat output "%%~nxi.pdf"
)
endlocal
pause
复制代码

暴雪英雄

回复 2# 77七


    感谢大神，代码中间漏了一个声明PDFtk路径的语句，我自己加上，题目需求能够完全实现，再请教个问题，空白页pdf能不能固定放在某个路径下面，比如D盘的空白页文件夹底下，请问代码要怎么完善？

暴雪英雄

回复 2# 77七


    如果可以把空白页pdf固定放在局域网某个路径下就更好了，这样的话，就不用每次在要处理的文件夹底下临时放空白页pdf了

77七

回复 4# 暴雪英雄


  

@echo off
rem 批处理保存为ansi编码格式
rem 下载pdftk http://bcn.bathome.net/tool/PDFtk.rar

set "file=d:\空白页文件夹\空白页.pdf"
set "_pdftk=d:\pdftk\pdftk.exe"

cd /d "%~dp0"
setlocal enabledelayedexpansion
for %%a in (*.pdf) do (
	set /a n+=1
)
for /f "delims=" %%i in ('dir /b /a-d *.pdf') do (
	set /a m+=1
	if !m! neq !n! (
		"%_pdftk%" "%%i" dump_data |findstr /rbec:"NumberOfPages:.*[13579]" 1>nul && (
			set str=!str! "%%i" "%file%"
		) || (
			set str=!str! "%%i"
		)
	) else (
		set str=!str! "%%i"
	)
)
for %%i in (.) do (
	echo 合并 !str!
	"%_pdftk%" !str! cat output "%%~nxi.pdf"
)
endlocal
pause
复制代码

暴雪英雄

回复 5# 77七


    所有功能均已完全实现，大神，请收下我的膝盖

暴雪英雄

回复 5# 77七


    大神，不好意思，又有新的需求，就是合并生成pdf文件后，需要把未合并前的原始pdf文件删除，仅保留合并后的pdf文档，请问代码应该如何完善？

77七

回复 7# 暴雪英雄


   第25-28行，修改为：

for %%i in (.) do (
	echo 合并 !str!
	"%_pdftk%" !str! cat output "%%~nxi.pdf"
	if exist "%%~nxi.pdf" (
		for %%a in (*.pdf) do (
			if "%%a" neq "%%~nxi.pdf" (
				del "%%a"
			)
		)
	)
)
复制代码

暴雪英雄

回复 8# 77七


    感谢大神的耐心解答，新的需求已实现

暴雪英雄

回复 8# 77七


    不好意思，再次请教，合并pdf文件之前，希望给每个pdf文件添加文件名标签，文件名格式为“01办公会（财务室202XXXXX）”，最好只添加括号中的中文，即“财务室”作为标签，看了大神的另一回答，使用到了以下方法（见链接），但是该方法使用的是utf-8编码格式，如果在此代码中，直接插入添加标签的代码，最后可以正常合并，就是后续窗口输出的中文会乱码，请问如何在同一个bat中使用两种编码？http://www.bathome.net/viewthrea ... mp;page=3#pid274718

暴雪英雄

回复 8# 77七


    那个帖子的代码如下

@echo off
rem 批处理保存为utf-8编码格式
chcp 65001 >nul
for /f "delims=" %%i in ('dir /b /a-d *.pdf') do (
        pdftk "%%i" dump_data_utf8 output |find "BookmarkTitle:" 1>nul
        if errorlevel 1 (
                >report.txt (
                        echo BookmarkBegin
                        echo BookmarkTitle: %%~ni
                        echo BookmarkLevel: 1
                        echo BookmarkPageNumber: 1
                )
                pdftk "%%i" update_info_utf8 report.txt output $.pdf
                move $.pdf "%%i"
        )
)
del report.txt
复制代码

77七

回复 11# 暴雪英雄


   当时这个代码，使用utf-8方便些，所以采用了utf-8编码。试着将5楼代码第16行 修改为

		"%_pdftk%" "%%i" dump_data_utf8 output |findstr /rbec:"NumberOfPages:.*[13579]" 1>nul && (
复制代码

并在批处理文件开头添加

chcp 65001 >nul
复制代码

批处理保存为utf-8编码格式

77七

回复 10# 暴雪英雄

@echo off
rem 批处理保存为utf-8编码格式
chcp 65001 >nul
for /f "delims=" %%i in ('dir /b /a-d *.pdf') do (
	pdftk "%%i" dump_data_utf8 output |find "BookmarkTitle:" 1>nul
	if errorlevel 1 (
		>report.txt (
			echo BookmarkBegin
			for /f "tokens=2 delims=（" %%x in ("%%~ni") do (
				for /f "tokens=1 delims=2" %%y in ("%%x") do (
					echo BookmarkTitle: %%y
				)
			)
			echo BookmarkLevel: 1
			echo BookmarkPageNumber: 1
		)
		pdftk "%%i" update_info_utf8 report.txt output $.pdf
		move $.pdf "%%i"
	)
)
del report.txt
复制代码

暴雪英雄

回复 13# 77七


    除了pdf合并的代码，bat文件里还有批量修改word文档文件名、批量生成pdf的代码，都是ansi编码，请问有没有办法把添加标签的代码也弄成ansi编码，就完美统一了

77七

回复 14# 暴雪英雄


  添加标签的代码，生成的报告

ansi
BookmarkTitle: &去掉#31532;&去掉#19968;&去掉#31456;
utf-8
BookmarkTitle: 第一章
复制代码

添加标签就是修改这个报告，改为ansi有点麻烦（其实我不会，可能需要其它脚本转换），可以参考12楼，把其它代码向 utf-8靠拢。