[VB.NET] การแยกหน้าเอกสาร PDF ด้วย Syncfusion Community License

thongkorn

หลังจากที่เคยแจกโค้ดการรวมหน้าเอกสาร (Merge) ไฟล์ PDF หลายๆไฟล์เข้าด้วยกัน โดยใช้ Syncfusion Community License Free (ของฟรีที่โลกลืม) ออกไปแล้ว คราวนี้เป็นการแยกหน้าเอกสาร หรือ Split กันบ้างครับ โดยแอดมินทำตัวอย่างไว้ให้ดูอยู่ 2 แบบ คือ แยกหน้าเอกสาร PDF ทุกๆหน้า ซึ่งจะแยกเป็นไฟล์ให้อัตโนมัติ เช่น จาก Document-0 โดยจะมีเลขตามหลังตามจำนวนหน้าไปเรื่อยๆ อีกแบบคือ แยกหน้าเอกสารจากการเลือกหน้า เช่น หน้า 2 - 4 แล้วทำการตั้งชื่อไฟล์ขึ้นมาใหม่เพื่อทำการบันทึก ...


## Register & Download Syncfusion Community License Free.
ลิ้งค์สมัคร Syncfusion เพื่อขอรหัสลงทะเบียนด้วย LinkedIn: (แนะนำ)
คลิปวิดีโอสอนการสมัคร Syncfusion เพื่อขอรหัสลงทะเบียนด้วย LinkedIn:
ลิ้งค์การลงทะเบียนด้วย eMail:


มาดูโค้ดฉบับเต็มกันเถอะ ...

1. Imports Syncfusion.Pdf
   
2. Imports Syncfusion.Pdf.Parsing
   
3. Imports Syncfusion.Windows.Forms
   
4. 
   
5. Public Class frmSplitPdf
   
6. 
   
7.     '// PDF Path
   
8.     Private strPathPDF As String = ""
   
9.     Private strPathOutput As String = ""
   
10. 
    
11.     ' / --------------------------------------------------------------------------------
    
12.     ' / Get my project path
    
13.     ' / AppPath = C:\My Project\bin\debug
    
14.     ' / Replace "\bin\debug" with ""
    
15.     ' / Return : C:\My Project\
    
16.     Function MyPath(ByVal AppPath As String) As String
    
17.         '/ Return Value
    
18.         MyPath = AppPath.ToLower.Replace("\bin\debug", "").Replace("\bin\release", "").Replace("\bin\x86\debug", "")
    
19.         '// If not found folder then put the \ (BackSlash) at the end.
    
20.         If Microsoft.VisualBasic.Right(MyPath, 1) <> Chr(92) Then MyPath = MyPath & Chr(92)
    
21.     End Function
    
22. 
    
23.     ' / --------------------------------------------------------------------------------
    
24.     ' / S T A R T ... H E R E
    
25.     ' / --------------------------------------------------------------------------------
    
26.     Private Sub frmSplitPdf_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
27.         '// If folders doesn't exist? then create it.
    
28.         '// Original PDF Folder.
    
29.         If Not System.IO.Directory.Exists(strPathPDF) Then
    
30.             System.IO.Directory.CreateDirectory(MyPath(Application.StartupPath) & "PDF")
    
31.             strPathPDF = MyPath(Application.StartupPath & "PDF")
    
32.         End If
    
33.         '// Output PDF Folder.
    
34.         If Not System.IO.Directory.Exists(strPathOutput) Then
    
35.             System.IO.Directory.CreateDirectory(MyPath(Application.StartupPath) & "Output")
    
36.             strPathOutput = MyPath(Application.StartupPath & "Output")
    
37.         End If
    
38.         '// Disable Open/Save toolbar PdfViewerControl of Syncfusion.
    
39.         DirectCast(Me.PdfViewerControl1.Controls(0).Controls(0).Controls(0), ToolStrip).Items(0).Visible = False
    
40.         DirectCast(Me.PdfViewerControl1.Controls(0).Controls(0).Controls(0), ToolStrip).Items(1).Visible = False
    
41.     End Sub
    
42. 
    
43.     ' / --------------------------------------------------------------------------------
    
44.     ' / Browse PDF File and Load it into PdfViewerControl.
    
45.     ' / --------------------------------------------------------------------------------
    
46.     Private Sub btnBrowse_Click(sender As System.Object, e As System.EventArgs) Handles btnBrowse.Click
    
47.         '/ Declare Open File Dialog @ Run Time.
    
48.         Dim dlgOpenFile As OpenFileDialog = New OpenFileDialog()
    
49.         Try
    
50.             ' / Initialize Open File Dialog.
    
51.             With dlgOpenFile
    
52.                 .InitialDirectory = strPathPDF
    
53.                 .Title = "Select PDF File"
    
54.                 .Filter = "PDF Files (*.pdf)|*.pdf"
    
55.                 .RestoreDirectory = True
    
56.             End With
    
57.             '/ If the OK button is selected.
    
58.             If dlgOpenFile.ShowDialog() = DialogResult.OK Then
    
59.                 txtFileName.Text = dlgOpenFile.FileName
    
60.                 '/ Show PDF on PDFViewerControl of Syncfusion.
    
61.                 Me.PdfViewerControl1.Load(dlgOpenFile.FileName, "")
    
62.                 '/ Load document.
    
63.                 Dim LoadDocument As PdfLoadedDocument = New PdfLoadedDocument(txtFileName.Text)
    
64.                 '// Go To Sub Program Count Pages.
    
65.                 Call CountPage(LoadDocument)
    
66.                 LoadDocument.Close(True)
    
67.             End If
    
68. 
    
69.         Catch ex As Exception
    
70.             MessageBoxAdv.Show(ex.Message, "Report Status", MessageBoxButtons.OK, MessageBoxIcon.Warning)
    
71.         End Try
    
72.     End Sub
    
73. 
    
74.     ' / --------------------------------------------------------------------------------
    
75.     ' / Split PDF All Pages.
    
76.     ' / --------------------------------------------------------------------------------
    
77.     Private Sub btnSplitAllPage_Click(sender As System.Object, e As System.EventArgs) Handles btnSplitAllPage.Click
    
78.         If txtFileName.Text.Length = 0 Then Return
    
79.         Try
    
80.             '// Load PDF document ... Imports Syncfusion.Pdf.Parsing
    
81.             Dim LoadDocument As PdfLoadedDocument = New PdfLoadedDocument(txtFileName.Text)
    
82.             '// Split PDF document with pattern and save each page.
    
83.             LoadDocument.Split(strPathOutput & "Document-{0}.pdf")
    
84.             '// Close the document
    
85.             LoadDocument.Close(True)
    
86.             MessageBoxAdv.Show("Split PDF Successfully.", "Report Status", MessageBoxButtons.OK, MessageBoxIcon.Information)
    
87.             '//
    
88.             Dim dlgOpenFile As OpenFileDialog = New OpenFileDialog()
    
89.             ' / Initialize Open File Dialog.
    
90.             With dlgOpenFile
    
91.                 .InitialDirectory = strPathOutput
    
92.                 .Title = "Open PDF File"
    
93.                 .Filter = "PDF Files (*.pdf)|*.pdf"
    
94.                 .RestoreDirectory = True
    
95.             End With
    
96.             '/ If the OK button is selected.
    
97.             If dlgOpenFile.ShowDialog() = DialogResult.OK Then
    
98.                 '/ Show PDF on PDFViewerControl of Syncfusion.
    
99.                 Me.PdfViewerControl1.Load(dlgOpenFile.FileName, "")
    
100.                 txtFileName.Text = dlgOpenFile.FileName
     
101.                 LoadDocument = New PdfLoadedDocument(txtFileName.Text)
     
102.                 '// Go To Sub Program Count Pages.
     
103.                 Call CountPage(LoadDocument)
     
104.             End If
     
105.             LoadDocument.Close(True)
     
106.             '//
     
107.         Catch ex As Exception
     
108.             MessageBoxAdv.Show(ex.Message, "Report Status", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
     
109.         End Try
     
110.     End Sub
     
111. 
     
112.     ' / --------------------------------------------------------------------------------
     
113.     ' / Split Range Pages.
     
114.     ' / --------------------------------------------------------------------------------
     
115.     Private Sub btnSplitPage_Click(sender As System.Object, e As System.EventArgs) Handles btnSplitPage.Click
     
116.         If txtFileName.Text.Length = 0 Then Return
     
117.         Try
     
118.             '// Load PDF document ... Imports Syncfusion.Pdf.Parsing
     
119.             Dim LoadDocument As PdfLoadedDocument = New PdfLoadedDocument(txtFileName.Text)
     
120.             '// Declare Save File Dialog Control @Run Time
     
121.             Dim dlgSaveFile As SaveFileDialog = New SaveFileDialog
     
122.             '// Initialize Save File Dialog
     
123.             With dlgSaveFile
     
124.                 .InitialDirectory = strPathOutput
     
125.                 .Title = "Save PDF File"
     
126.                 .Filter = "Save PDF File |*.pdf"
     
127.                 .RestoreDirectory = True
     
128.             End With
     
129.             '// Save the new PDF document.
     
130.             If dlgSaveFile.ShowDialog() = DialogResult.OK Then
     
131.                 If txtFileName.Text = dlgSaveFile.FileName Then
     
132.                     MessageBoxAdv.Show("This file is already opened. Please close it before saving.", "Report Status", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
     
133.                     Return
     
134.                 End If
     
135.                 '// Create new PDF document.
     
136.                 Dim document As PdfDocument = New PdfDocument()
     
137.                 Dim PageFrom As Integer = cmbPageFrom.SelectedIndex
     
138.                 Dim PageTo As Integer = cmbPageTo.SelectedIndex
     
139.                 '// Import the range of pages from the existing PDF
     
140.                 '// If the first page is greater than the last page have to swap values.
     
141.                 If PageFrom < PageTo Then
     
142.                     document.ImportPageRange(LoadDocument, PageFrom, PageTo)
     
143.                 Else
     
144.                     document.ImportPageRange(LoadDocument, PageTo, PageFrom)
     
145.                 End If
     
146.                 '// Save PDF.
     
147.                 document.Save(dlgSaveFile.FileName)
     
148.                 txtFileName.Text = dlgSaveFile.FileName
     
149.                 LoadDocument = New PdfLoadedDocument(txtFileName.Text)
     
150.                 Me.PdfViewerControl1.Load(txtFileName.Text, "")
     
151.                 Call CountPage(LoadDocument)
     
152.                 document.Close(True)
     
153.             End If
     
154.             '// Close the PDF document.
     
155.             LoadDocument.Close(True)
     
156.             '//
     
157.         Catch ex As Exception
     
158.             MessageBoxAdv.Show(ex.Message, "Report Status", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
     
159.         End Try
     
160.     End Sub
     
161. 
     
162.     ' / --------------------------------------------------------------------------------
     
163.     ' / Count Pages.
     
164.     ' / --------------------------------------------------------------------------------
     
165.     Sub CountPage(ByRef doc As PdfLoadedDocument)
     
166.         '/ Show PDF on PDFViewerControl of Syncfusion.
     
167.         Dim count As Integer = doc.Pages.Count
     
168.         cmbPageFrom.Items.Clear()
     
169.         cmbPageTo.Items.Clear()
     
170.         For pg As Integer = 1 To count
     
171.             cmbPageTo.Items.Add(pg)
     
172.             cmbPageFrom.Items.Add(pg)
     
173.         Next
     
174.         cmbPageTo.SelectedIndex = 0
     
175.         cmbPageFrom.SelectedIndex = 0
     
176.     End Sub
     
177. 
     
178.     Private Sub txtFileName_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtFileName.KeyPress
     
179.         '/ Protect key press on TextBox Control.
     
180.         e.Handled = True
     
181.     End Sub
     
182. 
     
183.     Private Sub frmSplitPdf_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
     
184.         Me.Dispose()
     
185.         GC.SuppressFinalize(Me)
     
186.         Application.Exit()
     
187.     End Sub
     
188. 
     
189.     Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
     
190.         Me.Close()
     
191.     End Sub
     
192. End Class

คัดลอกไปที่คลิปบอร์ด

ดาวน์โหลดโค้ดต้นฉบับ VB.NET (2010) ได้ที่นี่ ...