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.
'*** 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
sample data 1 sample data 2 sample data 3 sample data 4 sample data 5 sample data 6