ByteScout Barcode Suite - VBScript - Generate barcodes from text file with barcode sdk - ByteScout

ByteScout Barcode Suite – VBScript – Generate barcodes from text file with barcode sdk

  • Home
  • /
  • Articles
  • /
  • ByteScout Barcode Suite – VBScript – Generate barcodes from text file with barcode sdk

How to generate barcodes from text file with barcode sdk in VBScript and ByteScout Barcode Suite

Step-by-step tutorial on how to generate barcodes from text file with barcode sdk in VBScript

An easy to understand sample source code to learn how to generate barcodes from text file with barcode sdk in VBScript ByteScout Barcode Suite: the bundle that privides 3 SDK products to generate barcodes (Barcode SDK), read barcodes (Barcode Reaer SDK) and read and write spreadsheets (Spreadsheet SDK). It can generate barcodes from text file with barcode sdk in VBScript.

These VBScript code samples for VBScript guide developers to speed up coding of the application when using ByteScout Barcode 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. Applying VBScript application mostly includes various stages of the software development so even if the functionality works please test it with your data and the production environment.

ByteScout provides the free trial version of ByteScout Barcode Suite along with the documentation and 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)

generate_barcodes.vbs
      
'*** Prepare Barcode object Set barcode = CreateObject("Bytescout.BarCode.Barcode") barcode.RegistrationName = "demo" barcode.RegistrationKey = "demo" ' Set barcode type to PDF417 barcode.Symbology = 16 ' 16 means QR Code ' Set higher resoultion (300 is good for printing) barcode.ResolutionX = 300 barcode.ResolutionY = 300 ' Show barcode caption (remove these lines if you don't need it) barcode.DrawCaption = True barcode.DrawCaptionFor2DBarcodes = True ' Open text file containing barcode data and read it line by line Set fso = CreateObject("Scripting.FileSystemObject") Set listFile = fso.OpenTextFile("list.txt") i = 0 do while not listFile.AtEndOfStream ' Set barcode value barcode.Value = listFile.ReadLine() ' Fit barcode into 30x30 mm rectangle barcode.FitInto_3 30, 30, 4 ' 4 means millimeter units ' Save barcode image to file barcode.SaveImage("barcode" & i & ".png") i = i + 1 loop Set barcode = Nothing set fso = Nothing

ON-PREMISE OFFLINE SDK

60 Day Free Trial or Visit ByteScout Barcode Suite Home Page

Explore ByteScout Barcode Suite Documentation

Explore Samples

Sign Up for ByteScout Barcode Suite Online Training

ON-DEMAND REST WEB API

Get Your API Key

Explore Web API Docs

Explore Web API Samples

list.txt
      
sample data 1 sample data 2 sample data 3 sample data 4 sample data 5 sample data 6

ON-PREMISE OFFLINE SDK

60 Day Free Trial or Visit ByteScout Barcode Suite Home Page

Explore ByteScout Barcode Suite Documentation

Explore Samples

Sign Up for ByteScout Barcode Suite Online Training

ON-DEMAND REST WEB API

Get Your API Key

Explore Web API Docs

Explore Web API Samples

VIDEO

ON-PREMISE OFFLINE SDK

60 Day Free Trial or Visit ByteScout Barcode Suite Home Page

Explore ByteScout Barcode Suite Documentation

Explore Samples

Sign Up for ByteScout Barcode Suite Online Training

ON-DEMAND REST WEB API

Get Your API Key

Explore Web API Docs

Explore Web API Samples

Tutorials:

prev
next