正常情况我们导出的征信报告是代码密码的,或者是其他的一些PDF文件都是带密码,我们要编辑的话必须要输入密码才可以,不然只能仅仅阅读,右击编辑就会出现输入密码框,通过这个工具你可以把带有密码的PDF文档导入进来,它会自动输出到指定目录,然后就可以直接修改内容,不需要密码,注意:成品不提供,仅供代码学习。
软件界面:
易语言代码【仅供代码学习,不提供成品】
=========================================================
.版本 2
.支持库 edroptarget
.支持库 iext
.支持库 spec
.程序集 窗口程序集_启动窗口, , , 本源码来自易语言资源网
.程序集变量 pdf功能, PDF功能
.程序集变量 路径, 文本型
.子程序 __启动窗口_创建完毕, , ,
拖放对象1.注册拖放控件 (取窗口句柄 ())
拖放对象1.接收文件 = 真
.子程序 _拖放对象1_得到文件
.参数 接收到的文件路径, 文本型
.局部变量 文件数组, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 j, 整数型
.如果 (文件_是否为目录 (接收到的文件路径))
.如果 (文件_枚举 (接收到的文件路径, “*.pdf”, 文件数组, 真, , ) ≠ 0)
.计次循环首 (取数组成员数 (文件数组), i)
j = 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (j, 0, 到文本 (j + 1))
超级列表框1.置标题 (j, 1, 文件_取文件名 (文件数组 [i], 假))
pdf功能.打开文档 (文件数组 [i], )
超级列表框1.置标题 (j, 2, 到文本 (pdf功能.取页数 ()))
超级列表框1.置标题 (j, 3, 文件数组 [i])
程序_延时 (10)
.计次循环尾 ()
编辑框合并路径.内容 = 接收到的文件路径
编辑框合并名称.内容 = “合并1”
.否则
信息框 (“请选择包含.pdf的文件夹拖入!!”, 16, “文件类型有误”, )
.如果结束
.否则
.如果 (文本_寻找文本 (接收到的文件路径, “.pdf”, , 真) ≠ -1 或 文本_寻找文本 (接收到的文件路径, “.PDF”, , 真) ≠ -1)
路径 = 接收到的文件路径
编辑框拆分路径.内容 = 文件_取目录 (接收到的文件路径)
编辑框拆分名称.内容 = 文件_取文件名 (接收到的文件路径, 假) + “拆分”
.否则
信息框 (“请选择.pdf文件或文件夹拖入!!”, 16, “文件类型有误”, )
.如果结束
.如果结束
.子程序 _合并_被单击, , , 易语言学习资源、源码下载站:www.eyuyan.la
.局部变量 合并文件, 文本型
.局部变量 i, 整数型
.局部变量 结果, 整数型
.计次循环首 (超级列表框1.取表项数 (), i)
i = i - 1
pdf功能.文件列表_添加文件 (合并文件, 超级列表框1.取标题 (i, 3))
程序_延时 (10)
调试输出 (超级列表框1.取标题 (i, 3))
.计次循环尾 ()
.如果 (pdf功能.文件_批量合并文件 (合并文件, 编辑框合并路径.内容 + “\” + 编辑框合并名称.内容 + “.pdf”, 假) ≠ 0)
信息框 (“合并完成!”, 0, “合并完成”, )
.否则
信息框 (“合并失败!”, 16, “合并失败”, )
.如果结束
.子程序 _拆分_被单击
.如果 (pdf功能.文件_取文件页面 (路径, “”, 编辑框拆分路径.内容 + “\” + 编辑框拆分名称.内容 + “.pdf”, 编辑框拆分页面.内容, ) = 1)
信息框 (“拆分完成!”, 0, “拆分完成”, )
.否则
信息框 (“拆分失败!”, 16, “拆分失败”, )
.如果结束
========================================================
标签:文件,列表框,路径,密码,拆分,无痕,pdf,编辑框 From: https://www.cnblogs.com/xkrj5/p/17847785.html