ByteScout Data Extraction Suite – VBScript – Simple barcode reading with barcode reader sdk

Home
/
Articles
/
ByteScout Data Extraction Suite – VBScript – Simple barcode reading with barcode reader sdk

printable version:
ByteScout-Data-Extraction-Suite-VBScript-Simple-barcode-reading-with-barcode-reader-sdk.pdf

simple barcode reading with barcode reader sdk in VBScript with ByteScout Data Extraction Suite

Learn to code in VBScript to make simple barcode reading with barcode reader sdk with this simple How-To tutorial

We regularly create and update our sample code library so you may quickly learn simple barcode reading with barcode reader sdk and the step-by-step process in VBScript. Simple barcode reading with barcode reader sdk in VBScript can be applied with ByteScout Data Extraction Suite. ByteScout Data Extraction Suite is the bundle that includes three SDK tools for data extraction from PDF, scans, images and from spreadsheets: PDF Extractor SDK, Data Extraction SDK, Barcode Reader SDK.

The below SDK samples describe how to quickly make your application do simple barcode reading with barcode reader sdk in VBScript with the help of ByteScout Data Extraction Suite. If you want to implement this functionality, you should copy and paste code below into your app using code editor. Then compile and run your application. These VBScript sample examples can be used in one or many applications.

Visit our website to get a free trial version of ByteScout Data Extraction Suite. Free trial contains many of source code samples to help you with your VBScript project.

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

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

TestBarcodeReading.vbs

      Set bc = CreateObject("Bytescout.BarCodeReader.Reader")

' Limit search to 1D barcodes only (exclude 2D barcodes to speed up the search).
' Change to bc.BarcodeTypesToFind.SetAll() to scan for all supported 1D and 2D barcodes 
' or select specific type, e.g. bc.BarcodeTypesToFind.PDF417 = True
bc.BarcodeTypesToFind.SetAll1D()

bc.ReadFromFile "BarcodePhoto.jpg"

For i = 0 To bc.FoundCount - 1
     Msgbox "Found barcode on page #" & CStr(bc.GetFoundBarcodePage(i)) & " with type " & Cstr(bc.GetFoundBarcodeType(i)) & " and value " & bc.GetFoundBarcodeValue(i) & vbCRLF & " and confidence=" & Cstr(bc.GetFoundBarcodeConfidence(i))
Next

Set bc = Nothing