使用PdfCopy合并pdf文件 [英] using PdfCopy to merge pdf files
问题描述
我需要将多个pdf(每个页面)添加到我的主pdf中。这些需要在特定页码之后添加,而不是附加到末尾。
我如何
1:合并特定页码的pdf
2:pdfCopy.AddDocument不可用。我已经测试了5.4.3,5.4.5和5.5.10版本。我在这里缺少什么?所有人都说使用5.X我... ...
'PdfCopy'不包含'AddDocument'的定义没有扩展方法'AddDocument'接受类型'PdfCopy'的第一个参数可以找到(你是否缺少using指令或汇编引用?)
3:当pageToInsert at大于源中的总页数时,如何处理?
我现在看了很多文档。所有告诉使用PdfCopy和.AddDocument ...
使用c#.net 中的iTextSharp合并多个PDF
<这是我第一次接受它....
使用System;
使用System.Windows.Forms;
使用iTextSharp.text;
使用iTextSharp.text.pdf;
使用System.IO;
namespace PdfMergeTest
{
public partial class Form1:Form
{
private const string baseFile =baseFile.tmp;
private const string baseTempPdfFileName =temp.pdf;
public Form1()
{
InitializeComponent();
}
private void Form1_Load(object sender,EventArgs e)
{
}
private void btnMerge_Click(object sender,EventArgs e)
{
if(!CheckBasePaths())
return;
//获取要合并到baseFile的文件
var filesToMerge = GetAllFilesToMerge();
if(filesToMerge.Length == 0)
return;
//获取我们需要合并上述文件的basefile,它是.tmp ext
var baseFileWithPath = GetBaseFile();
if(string.IsNullOrWhiteSpace(baseFileWithPath))
return;
//临时基础pdf
var tempPdfWithPath = GetBaseTempFile();
if(string.IsNullOrWhiteSpace(tempPdfWithPath))
return;
//循环文件以合并并合并到baseFile
var page = 2; //页面合并文件的位置,我们不会追加到最后。实际代码将从源中找到合并的页面,并将向其添加1
foreach(filesInfo toMerge in filesToMerge)
{
//将基本文件复制为源文件的临时文件;此时用于调试目的
File.Copy(baseFileWithPath,tempPdfWithPath,true);
//开始合并,首先是#2,第二是#4,第三是#6,依此类推
MergeFiles(baseFileWithPath,tempPdfWithPath,toMerge.FullName,page);
page + = 2;
}
}
private bool CheckBasePaths()
{
if(string.IsNullOrWhiteSpace(txtBaseDir.Text))
{
MessageBox.Show(No Base Directory);
返回false;
}
if(string.IsNullOrWhiteSpace(txtFilesToMergeToBase.Text))
{
MessageBox.Show(No files to merge Directory);
返回false;
}
if(!Directory.Exists(txtBaseDir.Text))
{
MessageBox.Show(Base dir不存在);
返回false;
}
if(!Directory.Exists(txtFilesToMergeToBase.Text))
{
MessageBox.Show(合并目录的文件不存在);
返回false;
}
返回true;
}
private FileInfo [] GetAllFilesToMerge()
{
DirectoryInfo d = new DirectoryInfo(txtFilesToMergeToBase.Text);
FileInfo [] files = d.GetFiles(*。pdf);
if(files.Length == 0)
MessageBox.Show(No files to merge);
返回文件;
}
private String GetBaseFile()
{
var myBaseFile = Path.Combine(txtBaseDir.Text,baseFile);
if(!File.Exists(myBaseFile))
{
myBaseFile =;
MessageBox.Show(基本文件丢失);
}
返回myBaseFile;
}
private String GetBaseTempFile()
{
var myBaseTempFile = Path.Combine(txtBaseDir.Text,baseTempPdfFileName);
返回myBaseTempFile;
}
private void MergeFiles(string originalFile,string sourceFile,string toMergeFile,int insertPage)
{
Document document = null;
PdfCopy pdfCopy = null;
PdfReader pdfReader = null;
try
{
//步骤#1:创建文档对象
document = new Document();
//步骤2:创建一个收听文件的作家
pdfCopy = new PdfSmartCopy(document,new FileStream(originalFile,FileMode.Create));
if(pdfCopy == null)
return;
//步骤3:打开文件
document.Open();
//步骤4:为toMergeFile创建一个阅读器并添加文档
pdfReader = new PdfReader(toMergeFile);
//添加整个文档而不是逐页添加
pdfCopy.AddDocument(pdfReader);
pdfReader.Close();
}
catch(exception ex)
{
MessageBox.Show(ex.Message);
}
最后
{
if(pdfReader!= null)pdfReader.Close();
if(pdfCopy!= null)pdfCopy.Close();
if(document!= null)document.Close();
}
}
}
}
I看过以下使用 .AddPage
但这不是我想要的。
http ://www.worldbestlearningcenter.com/index_files/csharp-combine-pdf-files.htm
此处是对我有用的解决方案......它需要一些清洁工作,现在将在长周末之后进行。
Private Sub btnExtractMerge_Click(sender As Object,e As EventArgs)处理btnExtractMerge.Click
txtCurSetupMessages.Text =
ShowMessage(txtCurSetupMessages,Extract& Merge Process Started)
'从表格中获取并检查路径/文件
Dim baseDir As String = txtCurSetupBaseDataFolder.Text
Dim baseInvDir As String = txtCurSetupInvoicesFolder.Text
Dim baseFileName As String = txtEMBaseFile.Text
Dim targetFileName As String = txtEMTargetFile.Text
If String.IsNullOrWhiteSpace(baseDir)Then
ShowMessage(txtCurSetupMessages,Base folder empty!)
退出Sub
结束如果
如果String.IsNullOrWhiteSpace(baseInvDir)则
ShowMessage(txtCurSetupMessages,Base invoice文件夹名称为空!)
退出Sub
结束如果
如果String.IsNullOrWhiteSpace( baseFileName)然后
ShowMessage(txtCurSetupMessages,基本文件名为空!)
退出Sub
结束如果
如果String.IsNullOrWhiteSpace(targetFileName)那么
ShowMessage(txtCurSetupMessages ,目标文件名为空!)
退出Sub
结束如果
如果不是Directory.Exists(baseDir)那么
ShowMessage(txtCurSetupMessages,基本文件夹不存在! )
退出Sub
结束如果
baseInvDir = System.IO.Path.Combine(baseDir,baseInvDir)
如果不是Directory.Exists(baseInvDir)那么
ShowMessage( txtCurSetupMessages,基本发票文件夹不存在!)
退出Sub
结束如果
'获取发票文件
Dim dirInfo As DirectoryInfo = New DirectoryInfo(baseInvDir) )
Dim files As FileInfo()= dirInfo.GetFiles(*。pdf)
If files.Length< = 0 Then
ShowMessage(txtCurSetupMessages,Invoices missing!)
退出Sub
结束如果
baseFileName = System.IO.Path.Combine(baseDir,baseFileName)
If not Not File.Exists(baseFileName)然后
ShowMessage(txtCurSetupMessages,基本文件丢失!)
退出Sub
结束如果
targetFileName = System.IO.Path。组合(baseDir,targetFileName)
如果File.Exists(targetFileName)则
File.Delete(targetFileName)
结束如果
Dim tempSource As String = System.IO .Path.Combine(baseDir,tempSource.pdf)
If File.Exists(tempSource)Then
File.Delete(tempSource)
End if
'将基本文件复制为临时文件
File.Copy(baseFileName,tempSource,True)
'do action
Dim iteration As Integer = 1
Dim totalPages As Integer = 0
Dim pa ge As Integer = 0
Dim temp As String = System.IO.Path.Combine(baseDir,temp.pdf)
Dim tempBefore As String = System.IO.Path.Combine (baseDir,tempBefore.pdf)
Dim tempAfter As String = System.IO.Path.Combine(baseDir,tempAfter.pdf)
Dim reader As PdfReader = Nothing
For Each myFile As FileInfo In files
If File.Exists(temp)Then File.Delete(temp)
If File.Exists(tempBefore)Then File.Delete(tempBefore)
如果File.Exists(tempAfter)然后File.Delete(tempAfter)
'获取pdf
reader中的总页数=新PdfReader(tempSource)
totalPages = reader .NumberOfPages
reader.Close()
如果totalPages = 0那么
ShowMessage(txtCurSetupMessages,String.Format(在源文件中找到0页))
退出For
结束如果
'找到页码,这是我们将发票放入的页面pdf
page = FindPageNo(tempSource,1,myFile.Name.ToUpper.Replace(。PDF,))
如果page< = 0则继续
ShowMessage(txtCurSetupMessages,String.Format(Processing Invoice:{0} Page:{1} InvoiceFile:{2},Format(iteration, 000),格式(第+页,000),myFile.Name))
如果page = totalPages那么
'将发票文件追加到末尾
AddDocuments (temp,tempSource,myFile.FullName,)
Else
'将页面分成temp之前和temp之后再放在一起
BuildTempBeforeAndAfter(tempSource,tempBefore,tempAfter,page,totalPages)
'现在放在一起
AddDocuments(temp,tempBefore,myFile.FullName,tempAfter)
End if
'将temp移入temp source
If File.Exists(temp)Then
File.Copy(temp,tempSource,True)
End if
iteration + = 1
Next
'干净的阅读器,用于临时页数
如果不是读者是没有那么读者.Close()
'清理循环使用的临时文件
If File.Exists(temp)Then File.Delete(temp)
If File.Exists(tempBefore)Then File.Delete(tempBefore)
If File.Exists(tempAfter)Then File。删除(tempAfter)
'将临时源移动到目标文件并删除
如果File.Exists(tempSource)则
File.Copy(tempSource,targetFileName,True)
File.Delete(tempSource)
End if
ShowMessage(txtCurSetupMessages,Process Completed)
End Sub
Private Function FindPageNo(ByVal sourceFiles作为String,ByVal startpage As Integer,ByVal invno As S tring)As Integer
Dim i As Integer
Dim str1 As String
Dim pos1 As Integer,pos2 As Integer
Dim bgReader As PdfReader
Dim pagen As Integer
If File.Exists(sourceFiles)Then
bgReader = New PdfReader(sourceFiles)
如果是startpage> bgReader.NumberOfPages然后
FindPageNo = -1'错误。无效
bgReader.Close()
结束如果
pagen = 0
For i = startpage to bgReader.NumberOfPages
str1 = pdftextextractor.GetTextFromPage(bgReader ,i)
pos1 = str1.IndexOf(发票编号:)
pos2 = str1.IndexOf(电话:)
如果pos2> pos1然后
如果str1.Substring(pos1 + 11,pos2 - pos1 - 11).Trim.Equals(invno)= True那么
pagen =我找到了页面
'bgReader.Close ()
'退出函数
否则
如果pagen<> 0然后
'我们找到了页面号。所以没必要再往前走了。
'现在退出
FindPageNo = pagen'找到最后一页
bgReader.Close()
退出函数
结束如果
结束如果
结束如果
下一个i
bgReader.Close()
结束如果
如果pagen<> 0然后
FindPageNo = pagen'找到的最后一页
Else
FindPageNo = 0'未找到
结束如果
结束函数
私有函数BuildTempBeforeAndAfter(ByVal tempSource As String,ByVal tempBefore As String,ByVal tempAfter As String,ByVal endPage As Integer,ByVal totalPages As Integer)As Boolean
Dim reader As PdfReader = Nothing
Dim copy As PdfCopy = Nothing
Dim doc As Document = Nothing
Dim impPage As PdfImportedPage = Nothing
Dim isBuild As Boolean = True
try
reader = New PdfReader(tempSource)
doc =新文档(reader.GetPageSizeWithRotation(1))
'之前的文件
copy =新的PdfCopy(doc,New FileStream(tempBefore,FileMode.Create))
doc.Open ()
索引= 1到endPage
impPage = copy.GetImportedPage(reader,in dex)
copy.AddPage(impPage)
下一个
copy.Close()
doc.Close()
'文件后
doc =新文档(reader.GetPageSizeWithRotation(1))
copy = New PdfCopy(doc,New FileStream(tempAfter,FileMode.Create))
doc.Open()
索引= endPage + 1到totalPages
impPage = copy.GetImportedPage(reader,index)
copy.AddPage(impPage)
Next
reader.Close()
copy.Close()
doc.Close()
Catch ex As Exception
isBuild = False
最后
'清理对象
如果Not reader Is Nothing则reader.Close()
如果Not doc Is Nothing则doc.Close()
如果Not reader Is Nothing则reader.Close()
结束尝试
返回isBuild
结束函数n
私有函数AddDocuments(ByVal targetFile As String,ByVal addFile1 As String,ByVal addFile2 As String,ByVal addFile3 As String)As Boolean
Dim reader As PdfReader = Nothing
Dim copy As PdfCopy = Nothing
Dim doc As Document = Nothing
Dim isAdded As Boolean = True
try
doc = New Document
copy = New PdfSmartCopy(doc,New FileStream(targetFile,FileMode.Create))
doc.Open()
'添加文件1
如果不是String.IsNullOrWhiteSpace(addFile1)那么
reader =新的PdfReader(addFile1)
copy.AddDocument(reader)
reader.Close()
结束如果
'添加文件2
如果不是String.IsNullOrWhiteSpace(addFile2)那么
reader = New PdfReader(addFile2)
copy.AddDocument(reader)
reader.Close()
结束如果
'添加文件3
如果不是String.IsNullOrWhiteSpace(addFile3)则
reader =新PdfReader(addFile3)
copy.AddDocument(reader)
reader.Close()
结束如果
copy.Close()
doc.Close()
Catch ex As Exception
isAdded = False
最后
'清理对象
如果Not reader Is Nothing Then reader.Close()
If Not doc Is Nothing Then doc.Close()
If Not reader Is Nothing Then reader .Close()
结束尝试
返回已添加
结束功能
I need to add multiple pdfs (each single page) to my main pdf. These need to be added after a specific page number and not appended to the end.
How do i
1: merge the pdf at a specific page number
2: pdfCopy.AddDocument is not available. I have tested with version 5.4.3, 5.4.5 and 5.5.10. What am i missing here? All say to use 5.X which i am...
'PdfCopy' does not contain a definition for 'AddDocument' and no extension method 'AddDocument' accepting a first argument of type 'PdfCopy' could be found (are you missing a using directive or an assembly reference?)
3: How to handle when pageToInsert at is greater than total number of pages in the source?
I have looked at tons of docs by now. All tell to use PdfCopy and .AddDocument...
Merging multiple PDFs using iTextSharp in c#.net
here is my first take at it....
using System;
using System.Windows.Forms;
using iTextSharp.text;
using iTextSharp.text.pdf;
using System.IO;
namespace PdfMergeTest
{
public partial class Form1 : Form
{
private const string baseFile = "baseFile.tmp";
private const string baseTempPdfFileName = "temp.pdf";
public Form1()
{
InitializeComponent();
}
private void Form1_Load(object sender, EventArgs e)
{
}
private void btnMerge_Click(object sender, EventArgs e)
{
if (!CheckBasePaths())
return;
//get the files to merge to baseFile
var filesToMerge = GetAllFilesToMerge();
if (filesToMerge.Length == 0)
return;
//get basefile to which we need to merge the above files, it is with .tmp ext
var baseFileWithPath = GetBaseFile();
if (string.IsNullOrWhiteSpace(baseFileWithPath))
return;
//temp base pdf
var tempPdfWithPath = GetBaseTempFile();
if (string.IsNullOrWhiteSpace(tempPdfWithPath))
return;
//loop through the files to merge and merge into baseFile
var page = 2; //page where to merge the file, we are not appending to the end. Actual code will find the page from source where to merge and will add 1 to it
foreach (FileInfo toMerge in filesToMerge)
{
//copy the base file as temp file for source; for debugging purposes at this time
File.Copy(baseFileWithPath, tempPdfWithPath, true);
//start merging, first at #2, second at #4, third at #6 and so on
MergeFiles(baseFileWithPath, tempPdfWithPath, toMerge.FullName, page);
page += 2;
}
}
private bool CheckBasePaths()
{
if (string.IsNullOrWhiteSpace(txtBaseDir.Text))
{
MessageBox.Show("No Base Directory");
return false;
}
if (string.IsNullOrWhiteSpace(txtFilesToMergeToBase.Text))
{
MessageBox.Show("No files to merge Directory");
return false;
}
if (!Directory.Exists(txtBaseDir.Text))
{
MessageBox.Show("Base dir does not exist");
return false;
}
if (!Directory.Exists(txtFilesToMergeToBase.Text))
{
MessageBox.Show("Files to merge dir does not exist");
return false;
}
return true;
}
private FileInfo[] GetAllFilesToMerge()
{
DirectoryInfo d = new DirectoryInfo(txtFilesToMergeToBase.Text);
FileInfo[] files = d.GetFiles("*.pdf");
if (files.Length == 0)
MessageBox.Show("No files to merge");
return files;
}
private String GetBaseFile()
{
var myBaseFile = Path.Combine(txtBaseDir.Text, baseFile);
if (!File.Exists(myBaseFile))
{
myBaseFile = "";
MessageBox.Show("Base file missing");
}
return myBaseFile;
}
private String GetBaseTempFile()
{
var myBaseTempFile = Path.Combine(txtBaseDir.Text, baseTempPdfFileName);
return myBaseTempFile;
}
private void MergeFiles(string originalFile, string sourceFile, string toMergeFile, int insertPage)
{
Document document = null;
PdfCopy pdfCopy = null;
PdfReader pdfReader = null;
try
{
//Step#1: create a document object
document = new Document();
//Step#2: create a writer that listen to the document
pdfCopy = new PdfSmartCopy(document, new FileStream(originalFile, FileMode.Create));
if (pdfCopy == null)
return;
//Step#3: open document
document.Open();
//Step#4: create a reader for the toMergeFile and add document
pdfReader = new PdfReader(toMergeFile);
//add the entire document instead of page by page
pdfCopy.AddDocument(pdfReader);
pdfReader.Close();
}
catch (Exception ex)
{
MessageBox.Show(ex.Message);
}
finally
{
if (pdfReader != null) pdfReader.Close();
if (pdfCopy != null) pdfCopy.Close();
if (document != null) document.Close();
}
}
}
}
I have looked at following using .AddPage
but this is not what i want.
http://www.worldbestlearningcenter.com/index_files/csharp-combine-pdf-files.htm
Here is the solution that worked for me... It needs bit of cleaning which will now happen after the long weekend.
Private Sub btnExtractMerge_Click(sender As Object, e As EventArgs) Handles btnExtractMerge.Click
txtCurSetupMessages.Text = ""
ShowMessage(txtCurSetupMessages, "Extract & Merge Process Started")
'get and check the paths / files from the form
Dim baseDir As String = txtCurSetupBaseDataFolder.Text
Dim baseInvDir As String = txtCurSetupInvoicesFolder.Text
Dim baseFileName As String = txtEMBaseFile.Text
Dim targetFileName As String = txtEMTargetFile.Text
If String.IsNullOrWhiteSpace(baseDir) Then
ShowMessage(txtCurSetupMessages, "Base folder empty!")
Exit Sub
End If
If String.IsNullOrWhiteSpace(baseInvDir) Then
ShowMessage(txtCurSetupMessages, "Base invoice folder name empty!")
Exit Sub
End If
If String.IsNullOrWhiteSpace(baseFileName) Then
ShowMessage(txtCurSetupMessages, "Base file name empty!")
Exit Sub
End If
If String.IsNullOrWhiteSpace(targetFileName) Then
ShowMessage(txtCurSetupMessages, "Target file name empty!")
Exit Sub
End If
If Not Directory.Exists(baseDir) Then
ShowMessage(txtCurSetupMessages, "Base folder does not exist!")
Exit Sub
End If
baseInvDir = System.IO.Path.Combine(baseDir, baseInvDir)
If Not Directory.Exists(baseInvDir) Then
ShowMessage(txtCurSetupMessages, "Base invoice folder does not exist!")
Exit Sub
End If
'get the invoice files
Dim dirInfo As DirectoryInfo = New DirectoryInfo(baseInvDir)
Dim files As FileInfo() = dirInfo.GetFiles("*.pdf")
If files.Length <= 0 Then
ShowMessage(txtCurSetupMessages, "Invoices missing!")
Exit Sub
End If
baseFileName = System.IO.Path.Combine(baseDir, baseFileName)
If Not File.Exists(baseFileName) Then
ShowMessage(txtCurSetupMessages, "Base file missing!")
Exit Sub
End If
targetFileName = System.IO.Path.Combine(baseDir, targetFileName)
If File.Exists(targetFileName) Then
File.Delete(targetFileName)
End If
Dim tempSource As String = System.IO.Path.Combine(baseDir, "tempSource.pdf")
If File.Exists(tempSource) Then
File.Delete(tempSource)
End If
'copy the base file as temp file
File.Copy(baseFileName, tempSource, True)
'do action
Dim iteration As Integer = 1
Dim totalPages As Integer = 0
Dim page As Integer = 0
Dim temp As String = System.IO.Path.Combine(baseDir, "temp.pdf")
Dim tempBefore As String = System.IO.Path.Combine(baseDir, "tempBefore.pdf")
Dim tempAfter As String = System.IO.Path.Combine(baseDir, "tempAfter.pdf")
Dim reader As PdfReader = Nothing
For Each myFile As FileInfo In files
If File.Exists(temp) Then File.Delete(temp)
If File.Exists(tempBefore) Then File.Delete(tempBefore)
If File.Exists(tempAfter) Then File.Delete(tempAfter)
'get total pages in the pdf
reader = New PdfReader(tempSource)
totalPages = reader.NumberOfPages
reader.Close()
If totalPages = 0 Then
ShowMessage(txtCurSetupMessages, String.Format("0 pages found in the source file"))
Exit For
End If
'find page number, this is the page after which we'll place the invoice pdf
page = FindPageNo(tempSource, 1, myFile.Name.ToUpper.Replace(".PDF", ""))
If page <= 0 Then Continue For
ShowMessage(txtCurSetupMessages, String.Format("Processing Invoice:{0} Page:{1} InvoiceFile:{2}", Format(iteration, "000"), Format(page + 1, "000"), myFile.Name))
If page = totalPages Then
'append the invoice file to the end
AddDocuments(temp, tempSource, myFile.FullName, "")
Else
'divide the pages into temp before and temp after then put together
BuildTempBeforeAndAfter(tempSource, tempBefore, tempAfter, page, totalPages)
'now put together
AddDocuments(temp, tempBefore, myFile.FullName, tempAfter)
End If
'move the temp into temp source
If File.Exists(temp) Then
File.Copy(temp, tempSource, True)
End If
iteration += 1
Next
'clean reader, used for temp number of pages
If Not reader Is Nothing Then reader.Close()
'clean the temp files used by the loop
If File.Exists(temp) Then File.Delete(temp)
If File.Exists(tempBefore) Then File.Delete(tempBefore)
If File.Exists(tempAfter) Then File.Delete(tempAfter)
'move temp source to target file and delete
If File.Exists(tempSource) Then
File.Copy(tempSource, targetFileName, True)
File.Delete(tempSource)
End If
ShowMessage(txtCurSetupMessages, "Process Completed")
End Sub
Private Function FindPageNo(ByVal sourceFiles As String, ByVal startpage As Integer, ByVal invno As String) As Integer
Dim i As Integer
Dim str1 As String
Dim pos1 As Integer, pos2 As Integer
Dim bgReader As PdfReader
Dim pagen As Integer
If File.Exists(sourceFiles) Then
bgReader = New PdfReader(sourceFiles)
If startpage > bgReader.NumberOfPages Then
FindPageNo = -1 'error. invalid
bgReader.Close()
End If
pagen = 0
For i = startpage To bgReader.NumberOfPages
str1 = pdftextextractor.GetTextFromPage(bgReader, i)
pos1 = str1.IndexOf("Invoice No:")
pos2 = str1.IndexOf("Phone:")
If pos2 > pos1 Then
If str1.Substring(pos1 + 11, pos2 - pos1 - 11).Trim.Equals(invno) = True Then
pagen = i 'found the page
'bgReader.Close()
'Exit Function
Else
If pagen <> 0 Then
'we found the page no. so no need to go further.
'exit now
FindPageNo = pagen 'last page found
bgReader.Close()
Exit Function
End If
End If
End If
Next i
bgReader.Close()
End If
If pagen <> 0 Then
FindPageNo = pagen 'last page found
Else
FindPageNo = 0 'not found
End If
End Function
Private Function BuildTempBeforeAndAfter(ByVal tempSource As String, ByVal tempBefore As String, ByVal tempAfter As String, ByVal endPage As Integer, ByVal totalPages As Integer) As Boolean
Dim reader As PdfReader = Nothing
Dim copy As PdfCopy = Nothing
Dim doc As Document = Nothing
Dim impPage As PdfImportedPage = Nothing
Dim isBuild As Boolean = True
Try
reader = New PdfReader(tempSource)
doc = New Document(reader.GetPageSizeWithRotation(1))
'before file
copy = New PdfCopy(doc, New FileStream(tempBefore, FileMode.Create))
doc.Open()
For index = 1 To endPage
impPage = copy.GetImportedPage(reader, index)
copy.AddPage(impPage)
Next
copy.Close()
doc.Close()
'after file
doc = New Document(reader.GetPageSizeWithRotation(1))
copy = New PdfCopy(doc, New FileStream(tempAfter, FileMode.Create))
doc.Open()
For index = endPage + 1 To totalPages
impPage = copy.GetImportedPage(reader, index)
copy.AddPage(impPage)
Next
reader.Close()
copy.Close()
doc.Close()
Catch ex As Exception
isBuild = False
Finally
'clean the objects
If Not reader Is Nothing Then reader.Close()
If Not doc Is Nothing Then doc.Close()
If Not reader Is Nothing Then reader.Close()
End Try
Return isBuild
End Function
Private Function AddDocuments(ByVal targetFile As String, ByVal addFile1 As String, ByVal addFile2 As String, ByVal addFile3 As String) As Boolean
Dim reader As PdfReader = Nothing
Dim copy As PdfCopy = Nothing
Dim doc As Document = Nothing
Dim isAdded As Boolean = True
Try
doc = New Document
copy = New PdfSmartCopy(doc, New FileStream(targetFile, FileMode.Create))
doc.Open()
'add file 1
If Not String.IsNullOrWhiteSpace(addFile1) Then
reader = New PdfReader(addFile1)
copy.AddDocument(reader)
reader.Close()
End If
'add file 2
If Not String.IsNullOrWhiteSpace(addFile2) Then
reader = New PdfReader(addFile2)
copy.AddDocument(reader)
reader.Close()
End If
'add file 3
If Not String.IsNullOrWhiteSpace(addFile3) Then
reader = New PdfReader(addFile3)
copy.AddDocument(reader)
reader.Close()
End If
copy.Close()
doc.Close()
Catch ex As Exception
isAdded = False
Finally
'clean the objects
If Not reader Is Nothing Then reader.Close()
If Not doc Is Nothing Then doc.Close()
If Not reader Is Nothing Then reader.Close()
End Try
Return isAdded
End Function
这篇关于使用PdfCopy合并pdf文件的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!