The sample shows instructions and algorithm of how to generate barcodes from text file with barcode sdk and how to make it run in your VBScript application. ByteScout Premium Suite can generate barcodes from text file with barcode sdk. It can be applied from VBScript. ByteScout Premium Suite is the set that includes 12 SDK products from ByteScout including tools and components for PDF, barcodes, spreadsheets, screen video recording.
The following code snippet for ByteScout Premium Suite works best when you need to quickly generate barcodes from text file with barcode sdk in your VBScript application. 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. If you want to use these VBScript sample examples in one or many applications then they can be used easily.
ByteScout provides the free trial version of ByteScout Premium Suite along with the documentation and source code samples.
'*** 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