到目前为止,我有适用于一个文件的VB.NET代码,它会根据每个页面上的唯一条形码来识别该文件。
每个条形码是以下之一:
COVERSPLIT
投诉地点
展览品
MILSPLIT
总结
问题是:例如,第一页具有COVERSPLIT的条形码,因为它是封面,但是下一页也是封面,但是 上没有条形码。因此,当我运行我的代码时,只会提取带有识别出的条形码的工作表,而剔除那些没有的代码。
我尝试这样做:
Imports Bytescout.PDFExtractor
Imports System.Collections
Imports System.Collections.Generic
Imports System.IO.Path
Class Program
Friend Shared Sub Main(args As String())
Dim Dir As String = "G:\Word\Department Folders\Pre-Suit\Drafts-IL\2-IL_AttyReview\2018-09\Reviewed\"
Dim inputFile As String = Dir & "ZTEST01.SMITH.pdf"
Dim Unmerged As String = Dir & "unmerged\"
Dim Path As String = IO.Path.GetFileNameWithoutExtension(inputFile)
Dim Extracted As String = Path.Substring(0, 7)
' Create Bytescout.PDFExtractor.TextExtractor instance
Dim extractor As New TextExtractor()
' Load sample PDF document
extractor.LoadDocumentFromFile(inputFile)
Dim pageCount As Integer = extractor.GetPageCount()
' Search each page for a keyword
For i As Integer = 0 To pageCount - 1
If extractor.Find(i, "COVERSPLIT", False) Then
' Extract page
Using splitter As New DocumentSplitter()
splitter.OptimizeSplittedDocuments = True
Dim pageNumber As Integer = i + 1
' (!) page number in ExtractPage() is 1-based
Dim outputfile As String = Unmerged & Extracted & " Cover Sheet " & pageNumber.ToString() & ".pdf"
splitter.ExtractPage(inputFile, outputfile, pageNumber)
Console.WriteLine("Extracted page " & pageNumber.ToString() & " to file """ & outputfile & """")
End Using
End If
Next
For i As Integer = 0 To pageCount - 1
If extractor.Find(i, "COVERSPLIT", False) Then
' Extract page
Using splitter As New DocumentSplitter()
splitter.OptimizeSplittedDocuments = True
Dim pageNumber As Integer = i + 2
' (!) page number in ExtractPage() is 1-based
Dim outputfile As String = Unmerged & Extracted & " Cover Sheet " & pageNumber.ToString() & ".pdf"
splitter.ExtractPage(inputFile, outputfile, pageNumber)
Console.WriteLine("Extracted page " & pageNumber.ToString() & " to file """ & outputfile & """")
End Using
End If
Next
For i As Integer = 0 To pageCount - 1
If extractor.Find(i, "COMPLAINTSPLIT", False) Then
' Extract page
Using splitter As New DocumentSplitter()
splitter.OptimizeSplittedDocuments = True
Dim pageNumber As Integer = i + 1
' (!) page number in ExtractPage() is 1-based
Dim outputfile As String = Unmerged & Extracted & " Complaint " & pageNumber.ToString() & ".pdf"
splitter.ExtractPage(inputFile, outputfile, pageNumber)
Console.WriteLine("Extracted page " & pageNumber.ToString() & " to file """ & outputfile & """")
End Using
End If
Next
For i As Integer = 0 To pageCount - 1
If extractor.Find(i, "COMPLAINTSPLIT", False) Then
' Extract page
Using splitter As New DocumentSplitter()
splitter.OptimizeSplittedDocuments = True
Dim pageNumber As Integer = i + 2
' (!) page number in ExtractPage() is 1-based
Dim outputfile As String = Unmerged & Extracted & " Complaint " & pageNumber.ToString() & ".pdf"
splitter.ExtractPage(inputFile, outputfile, pageNumber)
Console.WriteLine("Extracted page " & pageNumber.ToString() & " to file """ & outputfile & """")
End Using
End If
Next
For i As Integer = 0 To pageCount - 1
If extractor.Find(i, "EXHIBITSPLIT", False) Then
' Extract page
Using splitter As New DocumentSplitter()
splitter.OptimizeSplittedDocuments = True
Dim pageNumber As Integer = i + 1
' (!) page number in ExtractPage() is 1-based
Dim outputfile As String = Unmerged & Extracted & " Exhibit " & pageNumber.ToString() & ".pdf"
splitter.ExtractPage(inputFile, outputfile, pageNumber)
Console.WriteLine("Extracted page " & pageNumber.ToString() & " to file """ & outputfile & """")
End Using
End If
Next
For i As Integer = 0 To pageCount - 1
If extractor.Find(i, "EXHIBITSPLIT", False) Then
' Extract page
Using splitter As New DocumentSplitter()
splitter.OptimizeSplittedDocuments = True
Dim pageNumber As Integer = i + 2
' (!) page number in ExtractPage() is 1-based
Dim outputfile As String = Unmerged & Extracted & " Exhibit " & pageNumber.ToString() & ".pdf"
splitter.ExtractPage(inputFile, outputfile, pageNumber)
Console.WriteLine("Extracted page " & pageNumber.ToString() & " to file """ & outputfile & """")
End Using
End If
Next
For i As Integer = 0 To pageCount - 1
If extractor.Find(i, "MILSPLIT", False) Then
' Extract page
Using splitter As New DocumentSplitter()
splitter.OptimizeSplittedDocuments = True
Dim pageNumber As Integer = i + 1
' (!) page number in ExtractPage() is 1-based
Dim outputfile As String = Unmerged & Extracted & " Military " & pageNumber.ToString() & ".pdf"
splitter.ExtractPage(inputFile, outputfile, pageNumber)
Console.WriteLine("Extracted page " & pageNumber.ToString() & " to file """ & outputfile & """")
End Using
End If
Next
For i As Integer = 0 To pageCount - 1
If extractor.Find(i, "SUMSPLIT", False) Then
' Extract page
Using splitter As New DocumentSplitter()
splitter.OptimizeSplittedDocuments = True
Dim pageNumber As Integer = i + 1
' (!) page number in ExtractPage() is 1-based
Dim outputfile As String = Unmerged & Extracted & " Summons " & pageNumber.ToString() & ".pdf"
splitter.ExtractPage(inputFile, outputfile, pageNumber)
Console.WriteLine("Extracted page " & pageNumber.ToString() & " to file """ & outputfile & """")
End Using
End If
Next
For i As Integer = 0 To pageCount - 1
If extractor.Find(i, "SUMSPLIT", False) Then
' Extract page
Using splitter As New DocumentSplitter()
splitter.OptimizeSplittedDocuments = True
Dim pageNumber As Integer = i + 2
' (!) page number in ExtractPage() is 1-based
Dim outputfile As String = Unmerged & Extracted & " Summons " & pageNumber.ToString() & ".pdf"
splitter.ExtractPage(inputFile, outputfile, pageNumber)
Console.WriteLine("Extracted page " & pageNumber.ToString() & " to file """ & outputfile & """")
End Using
End If
Next
' Cleanup
extractor.Dispose()
Console.WriteLine()
Console.WriteLine("Press any key...")
Console.ReadKey()
End Sub
End Class
如您所见,我只是复制并粘贴了相同的For i...
循环,只是将Dim pageNumber更改为Integer i + 1到i +2以包括其辅助页面。
这样做的问题是,有时带有唯一条形码的页面后可能会有不确定的页面数量。...
因此,我将如何编写它以便将其提取出来,例如:
第COVERSPLIT页+所有后续页面没有条形码,直到到达下一页 条形码(例如,COMPLAINTSPLIT)? 而且,我该怎么做,以便提取带有条形码COVERSPLIT的页面及其页面(直到到达下一个条形码),而将所有这些页面保持在一个pdf中?
答案 0 :(得分:2)
您已经注意到您有很多重复的代码。在这种情况下,您可以做的是将一小部分(该变量在其他方式相同的代码之间变化)放入变量中。
因此,如果我们获得了识别页面类型的条形码列表,则可以对其进行迭代以找出当前页面的类型。如果没有条形码,则假定页面类型与上一页相同。
Option Infer On
Option Strict On
Imports System.IO
Module Module1
Class PageType
Property Identifier As String
Property TypeName As String
End Class
Sub Main()
Dim dir = "G:\Word\Department Folders\Pre-Suit\Drafts-IL\2-IL_AttyReview\2018-09\Reviewed\"
Dim inputFile = Path.Combine(dir, "ZTEST01.SMITH.pdf")
Dim unmerged = Path.Combine(dir, "unmerged")
' Set up a list of the identifiers to be searched for and the corresponding names to be used in the filename.
Dim pageTypes As New List(Of PageType)
Dim ids = {"COVERSPLIT", "COMPLAINTSPLIT", "EXHIBITSPLIT", "MILSPLIT", "SUMSPLIT"}
Dim nams = {" Cover Sheet ", " Complaint ", " Exhibit ", " Military ", " Summons "}
For i = 0 To ids.Length - 1
pageTypes.Add(New PageType With {.Identifier = ids(i), .TypeName = nams(i)})
Next
Dim extracted = Path.GetFileNameWithoutExtension(inputFile).Substring(0, 7)
Dim extractor As New TextExtractor()
' Load sample PDF document
extractor.LoadDocumentFromFile(inputFile)
Dim pageCount = extractor.GetPageCount()
Dim currentPageTypeName = "UNKNOWN"
' Search each page for a keyword
For i = 0 To pageCount - 1
' Find the type of the current page
' If it is not present on the page, then the last one found will be used.
For Each pt In pageTypes
If extractor.Find(i, pt.Identifier, False) Then
currentPageTypeName = pt.TypeName
End If
Next
' Extract page
Using splitter As New DocumentSplitter() With {.OptimizeSplittedDocuments = True}
Dim pageNumber = i + 1 ' (!) page number in ExtractPage() is 1-based
Dim outputfile = Path.Combine(unmerged, extracted & currentPageTypeName & pageNumber & ".pdf")
splitter.ExtractPage(inputFile, outputfile, pageNumber)
Console.WriteLine("Extracted page " & pageNumber & " to file """ & outputfile & """")
End Using
Next
extractor.Dispose()
Console.WriteLine()
Console.WriteLine("Press any key...")
Console.ReadKey()
End Sub
End Module
我怀疑,Using splitter As New DocumentSplitter() With {.OptimizeSplittedDocuments = True}
应该在For循环的 外,这样就不会为每个页面创建和销毁它。
我重命名了您的page
变量,因为它妨碍了IO.Path的简洁使用。最好使用Path.Combine方法合并路径的各个部分,因为它会为您处理路径分隔符。
要将类型的所有页面累积到一个文件中,必须检测类型何时更改,然后使用ExtractPageRange方法。我没有Bytescout.PDFExtractor或示例PDF,所以无法尝试。