On this page you will learn from code samples for programming in VBScript and VB6.Writing of the code to parse invoice with OCR in VBScript and VB6 can be done by developers of any level using ByteScout Invoice Parser SDK. ByteScout Invoice Parser SDK: the SDK for automatic invoice parsing and data extraction. Thousands of companies are supported out of the box! Detects and extracts a company name, invoice number, date, total amount to be paid and other fields. Constantly updated database of supported invoices. Batch processing is supported. Outputs JSON, CSV, XML data and can be integrated with other apps and tools. It can parse invoice with OCR in VBScript and VB6.
You will save a lot of time on writing and testing code as you may just take the VBScript and VB6 code from ByteScout Invoice Parser SDK for parse invoice with OCR below and use it in your application. This VBScript and VB6 sample code is all you need for your app. Just copy and paste the code, add references (if needs to) and you are all set! You can use these VBScript and VB6 sample examples in one or many applications.
Free trial version of ByteScout Invoice Parser SDK is available for download from our website. Get it to try other source code samples for VBScript and VB6.
' This example demonstrates the use of Optical Character Recognition (OCR) to parse invoice data ' from scanned PDF documents and raster images. inputDocument = "..\..\DigitalOcean-scanned.jpg" ' Create InvoiceParser object Set invoiceParser = CreateObject("Bytescout.InvoiceParser.InvoiceParser") invoiceParser.RegistrationName = "demo" invoiceParser.RegistrationKey = "demo" ' Enable Optical Character Recognition (OCR) ' in .Auto mode (SDK automatically checks if needs to use OCR or not) invoiceParser.OCRMode = 1 ' OCRMode.Auto = 1 ' Set the location of OCR language data files invoiceParser.OCRLanguageDataFolder = "c:\Program Files\ByteScout Invoice Parser SDK\ocrdata" ' Set OCR language ' "eng" for english, "deu" for German, "fra" for French, etc. - according to files in "ocrdata" folder invoiceParser.OCRLanguage = "eng" ' Find more language files at https://github.com/bytescout/ocrdata ' Parse invoice data in JSON format invoiceParser.ParseDocument inputDocument, "output.json", 0 ' 0 = OutputFormat.JSON WScript.Echo "Extracted text saved as 'output.json'." Set invoiceParser = Nothing