These sample source codes given below will show you how to handle a complex task, for example, barcode reading profiles with barcode reader sdk in VBScript. ByteScout Barcode Suite helps with barcode reading profiles with barcode reader sdk in VBScript. ByteScout Barcode Suite is the set that includes three different SDK products to generate barcodes, read barcodes and read and write spreadsheets: Barcode SDK, Barcode Reader SDK and Spreadsheet SDK.
The below SDK samples describe how to quickly make your application do barcode reading profiles with barcode reader sdk in VBScript with the help of ByteScout Barcode Suite. To use barcode reading profiles with barcode reader sdk in your VBScript project or application just copy & paste the code and then run your app! VBScript application implementation mostly involves various stages of the software development so even if the functionality works please check it with your data and the production environment.
Trial version can be downloaded from our website for free. It contains this and other source code samples for VBScript.
' This example demonstrates the use of profiles. Profiles are set of properties ' allowing to apply them to Reader in any combination quickly. You can use ' predefined profiles or create you own in JSON format like in this example. ' Create Bytescout.PDFExtractor.TextExtractor object Set reader1 = CreateObject("Bytescout.BarCodeReader.Reader") reader1.RegistrationName = "demo" reader1.RegistrationKey = "demo" ' Apply predefined profiles: ' enable Code39; ' enable EAN-13; ' render PDF at 150 DPI resoultion. reader1.Profiles = "code39, ean13, pdf150dpi" ' Decode and show barcodes from sample1.pdf reader1.ReadFromFile "sample1.pdf" For i = 0 To reader1.FoundCount - 1 WScript.Echo "Found type " & reader1.GetFoundBarcodeType(i) & " barcode with value " & reader1.GetFoundBarcodeValue(i) & """" Next Set reader2 = CreateObject("Bytescout.BarCodeReader.Reader") reader2.RegistrationName = "demo" reader2.RegistrationKey = "demo" ' Load and apply custom profiles reader2.LoadProfiles "profiles.json" reader2.Profiles = "negative-distorted-datamatrix" ' Decode and show barcodes from sample2.png reader2.ReadFromFile "sample2.png" For i = 0 To reader2.FoundCount - 1 WScript.Echo "Found type " & reader2.GetFoundBarcodeType(i) & " barcode with value " & reader2.GetFoundBarcodeValue(i) & """" Next