VB.NET GS1-128/EAN-128 Reader & Scanner SDK

' Define the input image file path
Dim inputFilePath As String = "W:\Projects\Test-Input\gs1-sample-data-gs1-128.png"

' Scan GS1-128 (Code 128) barcode from image
Dim result As BarcodeDetail() = BarcodeScanner.ScanInDetails(inputFilePath, BarcodeType.Code128)

' Process each detected barcode
For Each b As BarcodeDetail In result
    ' Check if the barcode follows GS1 standard
    If b.IsGS1Compatible Then
        ' Get formatted GS1 message (e.g., (01)09012345678901(17)240915)
        Dim msg As String = b.GetMessage()
        Console.WriteLine("Data: '{0}'", b.Data)
        Console.WriteLine("Message: {0}", msg)

        ' Split AI and data using ( and ) delimiters
        Dim vals As String() = msg.Split({"("c, ")"c}, StringSplitOptions.RemoveEmptyEntries)

        ' Extract and display AI + Data pairs
        For i As Integer = 0 To vals.Length - 1 Step 2
            Console.WriteLine("AI:    {0}", vals(i))
            Console.WriteLine("Data:  {0}", vals(i + 1))
        Next
    End If
Next