feiyan

回复 14# 77七

77，能不能麻烦你在添加一个小功能呢，就是我给排序这些文件名，如果有一两个是实际上是不存在的，就是空有文件名，而实际没有这个文件，也可以 忽视掉，直接合并。现在是如果文件夹少一个文件的话，就会提示无法合并。

77七

回复 16# feiyan

@echo off
rem 站内下载pdftk，修改为实际路径
set "pdftk=C:\PDFtk\PDFtk\pdftk.exe"
for /d %%d in (*) do (
	pushd "%%d"
	setlocal enabledelayedexpansion
	for %%a in (S*.pdf) do set "str=!str! "%%a""
	for %%a in ("D C F*.pdf") do set "str=!str! "%%a""
	for %%a in ("D C S*.pdf") do set "str=!str! "%%a""
	for /f "delims=" %%a in ('dir /b /a-d *.pdf ^|findstr /rvb /c:"S" /c:"D C F" /c:"D C S" /c:"D P" /c:"D F"') do (
		set "str=!str! "%%a""
	)
	for %%a in ("D P*.pdf") do set "str=!str! "%%a""
	for %%a in ("D F*.pdf") do set "str=!str! "%%a""
	"%pdftk%" !str! cat output "%%~nxd.pdf"
	move /y "%%~nxd.pdf" ..
	endlocal
	popd
)
pause
复制代码

feiyan

回复 17# 77七
感谢77，想请你喝杯水，不知怎么操作

77七

回复 18# feiyan

你的好意我心领了，谢谢。

feiyan

回复 19# 77七
77, 能麻烦修改下参数，把合并后文件输出到当前目录下，不用放到文件夹内，而且，如果当前目录已经存在相同的文件名的话，直接覆盖掉。

77七

回复 20# feiyan


   已在17楼修改。

feiyan

回复 21# 77七

提示框显示移动了一个文件，实际上没有移动，合并后的文件还是在文件夹内部，没有到和这个文件夹相同的这个目录下，也就是到文件夹外面来

77七

回复 22# feiyan


   16行末尾少写一个 .加上就行了。

qixiaobin0715

好像不行。因为第5行pushd后，在popd前，点代表pushd后的路径。
16行的.换成"%~dp0"试试。包括引号额。

feiyan

回复 24# qixiaobin0715

好像不行，提示系统找不到指定的文件

feiyan

回复 23# 77七
试了下，提示：遇到错误，系统未能创建输出，

77七

回复 26# feiyan


   已编辑，现在直接复制17楼代码，试试

feiyan

回复 27# 77七 [/b
非常感谢，我测试了一下，成功了，高手啊 :) :)

feiyan

回复 27# 77七 hi 77，我发现合并后的pdf 文件没有书签，但是我手动合并的PDF 文件是有书签的，能否在程序中加上书签功能，就是合并后的pdf 文件自动带书签的。

77七

回复 29# feiyan

我测试合并后是带书签的，先用以下代码把pdf文件处理一遍，再合并试试
  

@echo off
for %%a in (*.pdf) do (
	pdftk "%%a" cat output $.pdf
	pdftk "%%a" dump_data output report.txt
	pdftk $.pdf update_info report.txt output $1.pdf
	move $1.pdf "%%a"
	del $.pdf;report.txt
)
pause
复制代码