ByteScout Barcode Reader SDK – VBScript – Read Barcode From PDF

Home
/
Articles
/
ByteScout Barcode Reader SDK – VBScript – Read Barcode From PDF

printable version:
ByteScout-BarCode-Reader-SDK-VBScript-Read-Barcode-From-PDF.pdf

How to read barcode from PDF in VBScript using ByteScout BarCode Reader SDK

Tutorial on how to read barcode from PDF in VBScript

On this page you will learn from code samples for programming in VBScript.Writing of the code to read barcode from PDF in VBScript can be done by developers of any level using ByteScout BarCode Reader SDK. ByteScout BarCode Reader SDK is the barcode decoder with support for code 39, code 128, QR Code, Datamatrix, GS1, PDF417 and all other popular barcodes. Can read barcodes from images, pdf, tiff documents and live web camera. Supports noisy and damaged documents, can split and merge pdf and tiff documents based on barcodes. Can export barcode decoder results to XML, JSON, CSV and into custom data structures and you can use it to read barcode from PDF with VBScript.

This rich sample source code in VBScript for ByteScout BarCode Reader SDK includes the number of functions and options you should do calling the API to read barcode from PDF. This VBScript 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! Use of ByteScout BarCode Reader SDK in VBScript is also explained in the documentation included along with the product.

ByteScout free trial version is available for download from our website. It includes all these programming tutorials along with source code samples.

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