Batch Read Barcodes To CSV | ASP.NET VBByteScout Barcode Reader SDK

Batch Read Barcodes To CSV | ASP.NET VB

Default.aspx.vb:

VB
Copy
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

Default.aspx:

VB
Copy
<%@ 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>

Web.config:

Copy
<?xml version="1.0"?>

<configuration>
  
    <appSettings/>
    <connectionStrings/>
  
    <system.web>
        <!-- 
            Set compilation debug="true" to insert debugging 
            symbols into the compiled page. Because this 
            affects performance, set this value to true only 
            during development.

            Visual Basic options:
            Set strict="true" to disallow all data type conversions 
            where data loss can occur. 
            Set explicit="true" to force declaration of all variables.
        -->
        <compilation debug="true" strict="false" explicit="true" />
        <pages>
            <namespaces>
                <clear />
                <add namespace="System" />
                <add namespace="System.Collections" />
                <add namespace="System.Collections.Specialized" />
                <add namespace="System.Configuration" />
                <add namespace="System.Text" />
                <add namespace="System.Text.RegularExpressions" />
                <add namespace="System.Web" />
                <add namespace="System.Web.Caching" />
                <add namespace="System.Web.SessionState" />
                <add namespace="System.Web.Security" />
                <add namespace="System.Web.Profile" />
                <add namespace="System.Web.UI" />
                <add namespace="System.Web.UI.WebControls" />
                <add namespace="System.Web.UI.WebControls.WebParts" />
                <add namespace="System.Web.UI.HtmlControls" />
            </namespaces>
        </pages>
        <!--
            The <authentication> section enables configuration 
            of the security authentication mode used by 
            ASP.NET to identify an incoming user. 
        -->
        <authentication mode="Windows" />
        <!--
            The <customErrors> section enables configuration 
            of what to do if/when an unhandled error occurs 
            during the execution of a request. Specifically, 
            it enables developers to configure html error pages 
            to be displayed in place of a error stack trace.

        <customErrors mode="RemoteOnly" defaultRedirect="GenericErrorPage.htm">
            <error statusCode="403" redirect="NoAccess.htm" />
            <error statusCode="404" redirect="FileNotFound.htm" />
        </customErrors>
        -->
    </system.web>
</configuration>