Module1.vb
Imports Bytescout.TextRecognition Module Module1 Sub Main() Dim inputDocument As String = ".\bad-quality.png" 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 location of "tessdata" folder containing language data files textRecognizer.OCRLanguageDataFolder = "c:\Program Files\ByteScout Text Recognition SDK\tessdata\" ' Set OCR language. ' "eng" for english, "deu" for German, "fra" for French, "spa" for Spanish etc - according to files in "tessdata" folder ' Find more language files at https://github.com/tesseract-ocr/tessdata/tree/3.04.00 textRecognizer.OCRLanguage = "eng" ' Add error corrections that will be applied after the recognition. textRecognizer.Corrections.Add("Tut ", "Test ") textRecognizer.Corrections.Add("Recog\w{1,}on", "Recognition", True) ' Recognize text from all pages and save it to file textRecognizer.SaveText(outputDocument) ' 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