pdf处理：合并，拆分，加密码，解密。

vital

基于 pdftk free 的PDF处理工具。用于 PDF 合并，拆分，加密，解密。


合并某文件夹下的PDF

如果无法播放，请点击此处在新窗口打开

给PDF文件加密码。

如果无法播放，请点击此处在新窗口打开

下载： @lisp.fas

yangjian001

做一个热心并受欢迎的人

lizhaojun45

合并的这招厉害且实用，大佬啥时候放这招的源码呀。

vital

lizhaojun45 发表于 2021-7-15 16:44
合并的这招厉害且实用，大佬啥时候放这招的源码呀。

安装之后就可以用了。还可以用下面的函数。为什么非得要源码啊，重复造轮子吗？

1. (pdftk:merge  folder) ;; 合并 folder 文件夹下的 pdf 文件。
   
2. (pdftk:burst  pdf-file) ;;拆分 pdf-file
   
3. (pdftk:encrypt pdf-file owner-pw user-pw) ;; 加密 pdf文件。

(pdftk:merge  folder) ;; 合并 folder 文件夹下的 pdf 文件。<br /> (pdftk:burst  pdf-file) ;;拆分 pdf-file<br /> (pdftk:encrypt pdf-file owner-pw user-pw) ;; 加密 pdf文件。

......
等。
可以与其它批量工具形成流水线操作。实现半自动化。比如 ，批量转PDF->合并PDF->加密码。 设计好流程。就不用一步一步的操作了。
菜单界面是次要的。

lizhaojun45

vital 发表于 2021-7-15 16:59
安装之后就可以用了。还可以用下面的函数。为什么非得要源码啊，重复造轮子吗？

使用的环境和方法是有不同的。难度高的，写不出来。

vital

lizhaojun45 发表于 2021-7-15 17:32
使用的环境和方法是有不同的。难度高的，写不出来。

函数尽量通用化了。界面是另一个函数。交互函数只管交互，内部调用保证通用。
部分示例：

1. (@:add-menu "出图排版" "拆分PDF" "(pdftk:menu-burst)" )
   
2. (defun pdftk:menu-burst (/ pdf-file)
   
3.   (if (setq pdf-file  (getfiled "请选择要拆分的PDF文件" "D:\\" "pdf" 8))
   
4.       (pdftk:burst pdf-file)))
   
5. 
   
6. (defun pdftk:burst (pdf-filename / app )
   
7.   "拆分 pdf 文件为单页文件"
   
8.   (setq app "bin\\pdftk.exe")
   
9.   (pdftk:download)
   
10.   (if (and (findfile app)
    
11.            (= 'str (type-of pdf-filename))
    
12.            (findfile pdf-filename))
    
13.       (progn
    
14.         (setvar "cmdecho" 0)
    
15.         (command "start-bg"
    
16.                  (strcat " /D " (vl-filename-directory pdf-filename)
    
17.                          " /MIN /B  "
    
18.                          @:*prefix* app  " "
    
19.                          pdf-filename " "
    
20.                          "burst "
    
21.                          ))
    
22.         (setvar "cmdecho" 1)
    
23.         (system:explorer (vl-filename-directory pdf-filename))
    
24.         ))
    
25.   (princ)
    
26.   )

(@:add-menu "出图排版" "拆分PDF" "(pdftk:menu-burst)" )<br /> (defun pdftk:menu-burst (/ pdf-file)<br />   (if (setq pdf-file  (getfiled "请选择要拆分的PDF文件" "D:\\" "pdf" 8))<br />       (pdftk:burst pdf-file)))<br /> <br /> (defun pdftk:burst (pdf-filename / app )<br />   "拆分 pdf 文件为单页文件"<br />   (setq app "bin\\pdftk.exe")<br />   (pdftk:download)<br />   (if (and (findfile app)<br />            (= 'str (type-of pdf-filename))<br />            (findfile pdf-filename))<br />       (progn<br />         (setvar "cmdecho" 0)<br />         (command "start-bg"<br />                  (strcat " /D " (vl-filename-directory pdf-filename)<br />                          " /MIN /B  "<br />                          @:*prefix* app  " "<br />                          pdf-filename " "<br />                          "burst " <br />                          ))<br />         (setvar "cmdecho" 1)<br />         (system:explorer (vl-filename-directory pdf-filename))<br />         ))<br />   (princ)<br />   )

lizhaojun45

vital 发表于 2021-7-15 21:08
函数尽量通用化了。界面是另一个函数。交互函数只管交互，内部调用保证通用。
部分示例：

强强强强强强强

olenewman

命令: APPLOAD 已成功加载 @lisp.fas。
命令: Loading @lisp ...
调用(*push-error-using-command*)前无法从 *error* 调用(command)。
建议将(command)调用转换为(command-s)。

vital

olenewman 发表于 2021-7-17 14:08
命令: APPLOAD 已成功加载 @lisp.fas。
命令: Loading @lisp ...
调用(*push-error-using-command*)前无 ...

重新下载一下，正好你下载的这个版本引入了个bug.
已修复。

载入时命令行显示为
Loading @lisp ...
version: 1.3.36
不显示 version 或低于这个版本的。说明下载的版本不对。请到官网首页下载。

lizhaojun45

vital 发表于 2021-7-17 15:04
重新下载一下，正好你下载的这个版本引入了个bug.
已修复。

&#128077;&#127995;&#128077;&#127995;&#128077;&#127995;&#128077;&#127995;&#128077;&#127995;&#128077;&#127995;

yangjian001

用于 PDF 合并，拆分，加密，解密

hh_lj007

感谢分享功能！

Cafemeow

可以直接跳转到pdf某一页么

Cafemeow

可以直接跳转到对应页码么

yuren008

做个对论坛有益的人。