Imports ByteScout.DocumentParser

' This example demonstrates parsing of typical invoice.

Module Module1

    Sub Main()

        Dim inputDocument As String = ".\SampleInvoice.pdf"
        
        ' Create DocumentParser instance
        Using documentParser As New DocumentParser("demo", "demo")

            ' Add an internal generic template for typical invoices.
            ' Note, if it does not parse all required fields, you should create
            ' own template using Template Editor application.
            documentParser.AddTemplate("internal://invoice")
            
            Console.WriteLine($"Parsing ""{inputDocument}""...")
            Console.WriteLine()

            ' Parse document data in JSON format
            Dim jsonString As String = documentParser.ParseDocument(inputDocument, OutputFormat.JSON)

            ' Display parsed data in console
            Console.WriteLine("Parsing results in JSON format:")
            Console.WriteLine()
            Console.WriteLine(jsonString)
            
        End Using

        Console.WriteLine()
        Console.WriteLine("Press any key to continue...")
        Console.ReadLine()

    End Sub

End Module