ByteScout Text Recognition SDK – VB.NET – Extract Text From Areas

Home
/
Articles
/
ByteScout Text Recognition SDK – VB.NET – Extract Text From Areas

printable version:
ByteScout-Text-Recognition-SDK-VB-NET-Extract-Text-From-Areas.pdf

How to extract text from areas in VB.NET and ByteScout Text Recognition SDK

The tutorial below will demonstrate how to extract text from areas in VB.NET

ByteScout tutorials are designed to explain the code for both VB.NET beginners and advanced programmers. ByteScout Text Recognition SDK can extract text from areas. It can be used from VB.NET. ByteScout Text Recognition SDK is the text recognition SDK to help with extraction of text using OCR from scanned images and documents. Supports English and non-Latin languages, can take PDF as input.

Fast application programming interfaces of ByteScout Text Recognition SDK for VB.NET plus the instruction and the code below will help you quickly learn how to extract text from areas. In order to implement the functionality, you should copy and paste this code for VB.NET below into your code editor with your app, compile and run your application. This basic programming language sample code for VB.NET will do the whole work for you to extract text from areas.

You can download free trial version of ByteScout Text Recognition SDK from our website to see and try many others source code samples for VB.NET.

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

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

Module1.vb

      Imports System.Drawing
Imports Bytescout.TextRecognition

Module Module1

    Sub Main()

        Dim inputDocument As String = ".\areas-sample.pdf"
        Dim pageIndex As Integer = 0
        Dim outputDocument As String = ".\result.txt"

        ' Create and activate TextRecognizer instance
        Using textRecognizer As TextRecognizer = New TextRecognizer("demo", "demo")

            Try
                ' Load document (image or PDF)
                textRecognizer.LoadDocument(inputDocument)

                ' Set the location of OCR language data files
                textRecognizer.OCRLanguageDataFolder = "c:\Program Files\ByteScout Text Recognition SDK\ocrdata_best\"

                ' Set OCR language.
                ' "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
                textRecognizer.OCRLanguage = "eng" 
                
                ' Get page size (in pixels). Size of PDF document is computed from PDF Points 
                ' and the rendering resoultion specified by `textRecognizer.PDFRenderingResolution` (default 300 DPI)
                Dim pageSize As Size = textRecognizer.GetPageSize(pageIndex)

                ' Add area of interest as a rectangle at the top-right corner of the page
                textRecognizer.RecognitionAreas.Add(pageSize.Width / 2, 0, pageSize.Width / 2, 300)
                ' Add area of interest as a rectangle at the bottom-left corner of the page,
                ' and indicate it should be rotated at 90 deg
                textRecognizer.RecognitionAreas.Add(0, pageSize.Height / 2, 300, pageSize.Height / 2, AreaRotation.Rotate90FlipNone)

                ' Now you can get recognized text for further analysis as a list of objects 
                ' containing coordinates, object kind, confidence.
                Dim ocrObjectList As OCRObjectList = textRecognizer.GetOCRObjects(pageIndex)
                For Each ocrObject As OCRObject In ocrObjectList
                    Console.WriteLine(ocrObject.ToString())
                Next

                ' ... or you can save recognized text pieces to file
                textRecognizer.KeepTextFormatting = False ' save without formatting
                textRecognizer.SaveText(outputDocument, pageIndex, pageIndex)


                ' Open the result file in default associated application (for demo purposes)
                Process.Start(outputDocument)

            Catch exception As Exception

                Console.WriteLine(exception)

            End Try

        End Using

    End Sub

End Module