Batch Read Barcodes To CSV - ASP.NET VB
BarCode Reader SDK sample in ASP.NET VB demonstrating ‘Batch Read Barcodes To CSV’
Default.aspx
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="Default.aspx.vb" Inherits="SimpleWebTestVB._Default" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
<title>Scan Image/PDF files for barcode and generate CSV (VB)</title>
</head>
<body>
<form id="form1" runat="server">
<label>
This project demonstrates scanning of folder, and processing each image/PDF file for barcode.<br />
It'll then generates CSV file containing barcodes and downloads it.
</label>
<br />
<br />
<div>
<asp:Button ID="btnImagePDFBarcodeToCSV" Text="Scan for Barcode and Generate CSV" runat="server" />
<br />
<br />
<asp:Label ID="lblInfo" runat="server" Text=""></asp:Label>
</div>
</form>
</body>
</html>
+ Show More
Explore SDK documentations here.
Default.aspx.designer.vb
��'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Partial Public Class _Default
'''<summary>
'''form1 control.
'''</summary>
'''<remarks>
'''Auto-generated field.
'''To modify move field declaration from designer file to code-behind file.
'''</remarks>
Protected WithEvents form1 As Global.System.Web.UI.HtmlControls.HtmlForm
'''<summary>
'''btnImagePDFBarcodeToCSV control.
'''</summary>
'''<remarks>
'''Auto-generated field.
'''To modify move field declaration from designer file to code-behind file.
'''</remarks>
Protected WithEvents btnImagePDFBarcodeToCSV As Global.System.Web.UI.WebControls.Button
'''<summary>
'''lblInfo control.
'''</summary>
'''<remarks>
'''Auto-generated field.
'''To modify move field declaration from designer file to code-behind file.
'''</remarks>
Protected WithEvents lblInfo As Global.System.Web.UI.WebControls.Label
End Class
+ Show More
Explore SDK documentations here.
Default.aspx.vb
Imports Bytescout.BarCodeReader
Partial Public Class _Default
Inherits Page
' IF YOU SEE TEMPORARY FOLDER ACCESS ERRORS:
' Temporary folder access is required for web application when you use ByteScout SDK in it.
' If you are getting errors related to the access to temporary folder like "Access to the path 'C:\Windows\TEMP\... is denied" then you need to add permission for this temporary folder to make ByteScout SDK working on that machine and IIS configuration because ByteScout SDK requires access to temp folder to cache some of its data for more efficient work.
' SOLUTION:
' If your IIS Application Pool has "Load User Profile" option enabled the IIS provides access to user's temp folder. Check user's temporary folder
' If you are running Web Application under an impersonated account or IIS_IUSRS group, IIS may redirect all requests into separate temp folder like "c:\temp\".
' In this case
' - check the User or User Group your web application is running under
' - then add permissions for this User or User Group to read and write into that temp folder (c:\temp or c:\windows\temp\ folder)
' - restart your web application and try again
Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
End Sub
Protected Sub btnImagePDFBarcodeToCSV_Click(sender As Object, e As EventArgs) Handles btnImagePDFBarcodeToCSV.Click
' Read Barcode Process
Dim reader As Reader = New Reader()
reader.RegistrationKey = "demo"
reader.RegistrationName = "demo"
' Set Barcode type to find
reader.BarcodeTypesToFind.All = True
' Output list
Dim lstCSVOutput As List(Of CSVOutputFormat) = New List(Of CSVOutputFormat)()
Dim files = System.IO.Directory.GetFiles(Request.MapPath("~/BarcodeFiles"))
' Get all files in folder, And iterate through each file
For Each fileName As String In files
' Read barcodes
Dim barcodes As FoundBarcode() = reader.ReadFrom(fileName)
For Each code As FoundBarcode In barcodes
lstCSVOutput.Add(New CSVOutputFormat With {
.barcodeValue = code.Value,
.barcodeType = code.Type.ToString(),
.scanDateTime = DateTime.Now.ToString(),
.fileName = fileName
})
Next
Next
' Set info text
lblInfo.Text = String.Format("Total {0} barcode found in {1} file.", lstCSVOutput.Count, files.Length)
' Export to CSV
ExportToCsv(lstCSVOutput, Response)
End Sub
''' <summary>
''' Exports to CSV
''' </summary>
Private Shared Sub ExportToCsv(ByVal lstCSVOutput As List(Of CSVOutputFormat), ByVal response As HttpResponse)
Dim csvOutputContent As System.Text.StringBuilder = New System.Text.StringBuilder(String.Empty)
csvOutputContent.Append("Barcode Value,Barcode Type,Scan DateTime,File Name")
For Each item As CSVOutputFormat In lstCSVOutput
csvOutputContent.AppendFormat(vbCrLf & "{0},{1},{2},{3}", item.barcodeValue, item.barcodeType, item.scanDateTime, item.fileName)
Next
' Perform download of file
response.Clear()
response.ClearHeaders()
response.AppendHeader("Content-Length", csvOutputContent.Length.ToString())
response.ContentType = "text/csv"
response.AppendHeader("Content-Disposition", "attachment;filename=""output.csv""")
response.Write(csvOutputContent.ToString())
response.End()
End Sub
End Class
Class CSVOutputFormat
Public Property barcodeValue As String
Public Property barcodeType As String
Public Property scanDateTime As String
Public Property fileName As String
End Class
+ Show More
Explore SDK documentations here.