Foxtable(狐表)用户栏目专家坐堂 → 分享:如何实现指定目录下的pdf文件 1、合并成一个新的pdf 2、对新pdf实现写入编码,排除封面和目录页,从第3页开始编码;同时实现单数与偶数页编码位置不同进行设置。


  共有6731人关注过本帖树形打印复制链接

主题:分享:如何实现指定目录下的pdf文件 1、合并成一个新的pdf 2、对新pdf实现写入编码,排除封面和目录页,从第3页开始编码;同时实现单数与偶数页编码位置不同进行设置。

帅哥哟,离线,有人找我吗?
cnsjroom
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1571 积分:11238 威望:0 精华:0 注册:2021/1/17 17:06:00
分享:如何实现指定目录下的pdf文件 1、合并成一个新的pdf 2、对新pdf实现写入编码,排除封面和目录页,从第3页开始编码;同时实现单数与偶数页编码位置不同进行设置。  发帖心情 Post By:2023/11/20 3:22:00 [显示全部帖子]

如何实现指定目录下的pdf文件
1、合并成一个新的pdf,比如合并成“我是新pdf”的pdf文件;
2、对新pdf实现写入编码,排除封面和目录页,比如封面页数为1,目录页为1,那就视为正文是从第3开始,从第3页开始,编码从1至文档结束;同时实现单数与偶数页编码位置不同进行设置。
3、对编码后的文件输出为“我的新pdf编码”的pdf,然后供使用。
 

可内部函数里面直接cs端运行,也可以放入BS端进行调用运行。
Dim e As RequestEventArgs = rq.e
Dim ymsum As Integer = functions.Execute("pdfSharp获取多个pdf文件的页数并汇总", ProjectPath & "\pdf测试")
Dim mbpdf As String = Functions.Execute("pdfSharp合并指定目录下的pdf并生成一个新的pdf文件", ProjectPath & "\pdf测试", "我是新pdf")
Dim fmml As Integer = Functions.Execute("pdfSharp获取封面目录页页数并汇总", ProjectPath & "\pdf测试")
Dim Str As String = Functions.Execute("pdfSharp根据指定页数来添加对应的数字作编码水印", "我是新pdf", "我是新pdf编码",fmml)
Dim Proc As New Process '定义一个新的Process
Proc.File = Str '指定要打开的文件
Proc.Start()


以下内容只有回复后才可以浏览


使用截图:
文件目录及文件:
图片点击可在新窗口打开查看
生成后的目录内容:
图片点击可在新窗口打开查看
我是新pdf编码文件的截图
图片点击可在新窗口打开查看
(合并的pdf中封面页和目录页没有进行编码,系统自动避开)
图片点击可在新窗口打开查看
                                                               
                                                                                        (合并的pdf中进行编码,可灵活设置单数页与双数页 编码位置的方向)
图片点击可在新窗口打开查看
[此贴子已经被作者于2023/11/20 3:25:28编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
cnsjroom
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1571 积分:11238 威望:0 精华:0 注册:2021/1/17 17:06:00
回复:(有点蓝)服务端项目去掉下面3句代码Dim Proc ...  发帖心情 Post By:2023/11/20 18:13:00 [显示全部帖子]

好的老师   实际使用时是去掉了的   在调试的时候可以保留

 回到顶部