ByteScout Data Extraction Suite – VBScript – Read barcode from pdf with barcode reader sdk

Home
/
Articles
/
ByteScout Data Extraction Suite – VBScript – Read barcode from pdf with barcode reader sdk

printable version:
ByteScout-Data-Extraction-Suite-VBScript-Read-barcode-from-pdf-with-barcode-reader-sdk.pdf

How to read barcode from pdf with barcode reader sdk in VBScript using ByteScout Data Extraction Suite

How to write a robust code in VBScript to read barcode from pdf with barcode reader sdk with this step-by-step tutorial

These sample source codes on this page below are displaying how to read barcode from pdf with barcode reader sdk in VBScript. ByteScout Data Extraction Suite can read barcode from pdf with barcode reader sdk. It can be applied from VBScript. 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.

These VBScript code samples for VBScript guide developers to speed up coding of the application when using ByteScout Data Extraction Suite. IF you want to implement the functionality, just copy and paste this code for VBScript below into your code editor with your app, compile and run your application. Want to see how it works with your data then code testing will allow the function to be tested and work properly.

You can download free trial version of ByteScout Data Extraction Suite from our website to see and try many others source code samples for VBScript.

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

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

TestBarcodeReadingFromPDF.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()

' Reading barcode from PDF
bc.ReadFromFile "example.pdf"

' Iterate throuhg all found barcodes
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)
Next

Set bc = Nothing