Program.vb
' This example page extraction by found keyword. Imports Bytescout.PDFExtractor Class Program Friend Shared Sub Main(args As String()) Dim inputFile As String = ".\sample2.pdf" ' Create Bytescout.PDFExtractor.TextExtractor instance Dim extractor As New TextExtractor() extractor.RegistrationName = "demo" extractor.RegistrationKey = "demo" ' 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, "bombardment", False) Then ' Extract page Using splitter As New DocumentSplitter("demo", "demo") splitter.OptimizeSplittedDocuments = True Dim pageNumber As Integer = i + 1 ' (!) page number in ExtractPage() is 1-based Dim outputFile As String = ".\page" & 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
Click here to get your Free Trial version of the SDK
also available as: