- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 分享：如何实现指定目录下的pdf文件 1、合并成一个新的pdf 2、对新pdf实现写入编码，排除封面和目录页，从第3页开始编码；同时实现单数与偶数页编码位置不同进行设置。 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=189248)
-- 发布时间：2023/11/20 3:22:00
-- 分享：如何实现指定目录下的pdf文件 1、合并成一个新的pdf 2、对新pdf实现写入编码，排除封面和目录页，从第3页开始编码；同时实现单数与偶数页编码位置不同进行设置。
如何实现指定目录下的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编辑过]
-- 发布时间：2023/11/20 8:25:00
--
服务端项目去掉下面3句代码
Dim Proc As New Process \'定义一个新的Process
Proc.File = Str \'指定要打开的文件
Proc.Start()
-- 发布时间：2023/11/20 9:04:00
--
学习一下
-- 发布时间：2023/11/20 9:29:00
--
学习一下
-- 发布时间：2023/11/20 18:13:00
-- 回复：（有点蓝）服务端项目去掉下面3句代码Dim Proc ...
好的老师 实际使用时是去掉了的 在调试的时候可以保留
-- 发布时间：2023/11/21 13:41:00
--
精华
-- 发布时间：2023/11/21 18:45:00
--
学习
-- 发布时间：2023/11/21 19:36:00
--
看看
-- 发布时间：2023/11/30 10:39:00
--
学习，有用。
-- 发布时间：2023/11/30 19:13:00
--
OK