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.
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