ByteScout Premium Suite – VB.NET – Check if ocr is required for pdf with pdf extractor sdk

Home
/
Articles
/
ByteScout Premium Suite – VB.NET – Check if ocr is required for pdf with pdf extractor sdk

printable version:
ByteScout-Premium-Suite-VB-NET-Check-if-ocr-is-required-for-pdf-with-pdf-extractor-sdk.pdf

check if ocr is required for pdf with pdf extractor sdk in VB.NET with ByteScout Premium Suite

Learn to code in VB.NET to make check if ocr is required for pdf with pdf extractor sdk with this simple How-To tutorial

ByteScout tutorials describe the stuff for programmers who use VB.NET. Check if ocr is required for pdf with pdf extractor sdk in VB.NET can be applied with ByteScout Premium Suite. ByteScout Premium Suite is the bundle that includes twelve SDK products from ByteScout including tools and components for PDF, barcodes, spreadsheets, screen video recording.

The below SDK samples describe how to quickly make your application do check if ocr is required for pdf with pdf extractor sdk in VB.NET with the help of ByteScout Premium Suite. To use check if ocr is required for pdf with pdf extractor sdk in your VB.NET project or application just copy & paste the code and then run your app! Use of ByteScout Premium Suite in VB.NET is also described in the documentation included along with the product.

If you want to try other samples for VB.NET then free trial version of ByteScout Premium Suite is available on our website.

On-demand (REST Web API) version:
Web API (on-demand version)

On-premise offline SDK for Windows:
60 Day Free Trial (on-premise)

Program.vb

      Imports Bytescout.PDFExtractor

Module Program

    Sub Main()

        Try

            ' Loop through all files in directory and check whether OCR operation is required
            For Each filePath As String In System.IO.Directory.GetFiles("InputFiles")
                _CheckOCRRequired(filePath)
            Next

        Catch ex As Exception
            Console.WriteLine("Error: " + ex.Message)
        End Try

        Console.WriteLine("Press enter key to exit...")
        Console.ReadLine()

    End Sub

    ''' <summary>
    ''' Check whether OCR Operation is required
    ''' </summary>
    ''' <param name="filePath"></param>
    Private Sub _CheckOCRRequired(ByVal filePath As String)

        ' Read all file content...
        Using extractor As TextExtractor = New TextExtractor()

            extractor.RegistrationKey = "demo"
            extractor.RegistrationName = "demo"

            ' Load document
            extractor.LoadDocumentFromFile(filePath)
            Console.WriteLine("{1}*******************{1}{1}FilePath: {0}", filePath, vbLf)

            Dim pageIndex As Int32 = 0

            ' Identify OCR operation is recommended for page
            If (extractor.IsOCRRecommendedForPage(pageIndex)) Then

                Console.WriteLine("{0}OCR Recommended: True", vbLf)

                ' Enable Optical Character Recognition (OCR)
                ' in .Auto mode (SDK automatically checks if needs to use OCR or not)
                extractor.OCRMode = OCRMode.Auto

                ' Set the location of OCR language data files
                extractor.OCRLanguageDataFolder = "c:\Program Files\Bytescout PDF Extractor SDK\ocrdata\"

                ' Set OCR language
                extractor.OCRLanguage = "eng" ' "eng" for english, "deu" for German, "fra" for French, "spa" for Spanish etc - according to files in "ocrdata" folder
                ' Find more language files at https://github.com/bytescout/ocrdata

                ' Set PDF document rendering resolution
                extractor.OCRResolution = 300

            Else
                Console.WriteLine("{0}OCR Recommended: False", vbLf)
            End If

            ' Read all text
            Dim allExtractedText = extractor.GetText()
            Console.WriteLine("{1}Extracted Text:{1}{0}{1}{1}", allExtractedText, vbLf)

        End Using

    End Sub



End Module