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.

Try it today: Get 60 Day Free Trial or sign up for Web API

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

Try it today: Get 60 Day Free Trial or sign up for Web API

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

Try it today: Get 60 Day Free Trial or sign up for Web API

MORE INFORMATION

Get 60 Day Free Trial or Visit ByteScout Barcode SDK page

Explore ByteScout Barcode SDK documentation

WEB API VERSION

Sign Up for free Web API key

Explore Web API Documentation

Tutorials:

prev
next