ByteScout BarCode Generator SDK - VBScript - Generate Barcodes From Text File - ByteScout

ByteScout BarCode Generator SDK – VBScript – Generate Barcodes From Text File

  • Home
  • /
  • Articles
  • /
  • ByteScout BarCode Generator SDK – VBScript – Generate Barcodes From Text File

How to generate barcodes from text file in VBScript using ByteScout Barcode SDK

This code in VBScript shows how to generate barcodes from text file with this how to tutorial

Learn how to generate barcodes from text file in VBScript with this source code sample. ByteScout Barcode SDK is the robost library (Software Development Kit) that is designed for automatic generation of high-quality barcodes for printing, electronic documents and pdf. All popular barcode types are supported from Code 39 and Code 129 to QR Code, UPC, GS1, GS-128, Datamatrix, PDF417, Maxicode and many others. Provides support for full customization of fonts, colors, output and printing sizes. Special tools are included to verify output quality and printing quality. Can add generated barcode into new or existing documents, images and PDF. It can generate barcodes from text file in VBScript.

This code snippet below for ByteScout Barcode SDK works best when you need to quickly generate barcodes from text file in your VBScript application. Just copy and paste the code into your VBScript application’s code and follow the instruction. Detailed tutorials and documentation are available along with installed ByteScout Barcode SDK if you’d like to dive deeper into the topic and the details of the API.

Free trial version of ByteScout Barcode SDK is available on our website. Documentation and source code samples are included.

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 SDK Home Page

Explore ByteScout Barcode SDK Documentation

Explore Samples

Sign Up for ByteScout Barcode SDK 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 SDK Home Page

Explore ByteScout Barcode SDK Documentation

Explore Samples

Sign Up for ByteScout Barcode SDK 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 SDK Home Page

Explore ByteScout Barcode SDK Documentation

Explore Samples

Sign Up for ByteScout Barcode SDK Online Training

ON-DEMAND REST WEB API

Get Your API Key

Explore Web API Docs

Explore Web API Samples

Tutorials:

prev
next