Every ByteScout tool includes simple example VB.NET source codes that you can get here or in the folder with installed ByteScout product. ByteScout Data Extraction Suite is the bundle that includes three SDK tools for data extraction from PDF, scans, images and from spreadsheets: PDF Extractor SDK, Data Extraction SDK, Barcode Reader SDK. It can find keyword in pdf and extract page with pdf extractor sdk in VB.NET.
The following code snippet for ByteScout Data Extraction Suite works best when you need to quickly find keyword in pdf and extract page with pdf extractor sdk in your VB.NET application. Just copy and paste the code into your VB.NET application’s code and follow the instructions. This basic programming language sample code for VB.NET will do the whole work for you to find keyword in pdf and extract page with pdf extractor sdk.
If you want to try other source code samples then the free trial version of ByteScout Data Extraction Suite is available for download from our website. Just try other source code samples for VB.NET.
' 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