The code below will help you to implement an VBScript and VB6 app to use image preprocessing filters. ByteScout Text Recognition SDK is the software development kit for automatic text recognition and OCR from pdf documents and images. Can recognize English and non-English languages and you can use it to use image preprocessing filters with VBScript and VB6.
The SDK samples like this one below explain how to quickly make your application do use image preprocessing filters in VBScript and VB6 with the help of ByteScout Text Recognition SDK. Just copy and paste the code into your VBScript and VB6 application’s code and follow the instruction. Enjoy writing a code with ready-to-use sample codes in VBScript and VB6.
Trial version of ByteScout Text Recognition SDK can be downloaded for free from our website. It also includes source code samples for VBScript and VB6 and other programming languages.
' Create and activate TextRecognizer object Set textRecognizer = CreateObject("ByteScout.TextRecognition.TextRecognizer") textRecognizer.RegistrationName = "demo" textRecognizer.RegistrationKey = "demo" inputDocument = "..\..\skewed.png" outputDocument = "result.txt" ' 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" ' Add deskew filter that automatically rotates the image to make the text horizontal. ' Note, it analyzes the left edge of scanned text. Any dark artifacts may prevent ' the correct angle detection. textRecognizer.ImagePreprocessingFilters.AddDeskew() ' Other filters that may be useful to improve recognition ' (note, the filters are applied in the order they were added): ' Improve image contrast. 'textRecognizer.ImagePreprocessingFilters.AddContrast() ' Apply gamma correction. 'textRecognizer.ImagePreprocessingFilters.AddGammaCorrection() ' Apply median filter. Helps to remove noise. 'textRecognizer.ImagePreprocessingFilters.AddMedian() ' Apply dilate filter. Helps to cure symbols erosion. 'textRecognizer.ImagePreprocessingFilters.AddDilate() ' Lines removers. Removing borders of some tables may improve the recognition. 'textRecognizer.ImagePreprocessingFilters.AddHorizontalLinesRemover() 'textRecognizer.ImagePreprocessingFilters.AddVerticalLinesRemover() ' Recognize text from all pages and save it to file textRecognizer.SaveText(outputDocument) WScript.Echo "Extracted text saved to " + outputDocument Set recognizer = Nothing