Imports Bytescout.PDFExtractor

Class Program
    Friend Shared Sub Main(args As String())

        ' Create Bytescout.PDFExtractor.TextExtractor instance
        Dim extractor As New TextExtractor()
        extractor.RegistrationName = "demo"
        extractor.RegistrationKey = "demo"

        ' Load sample PDF document
        extractor.LoadDocumentFromFile(".\columns.pdf")

        ' Extract text by columns (useful if PDF document is designed in column layout like a newspaper)
        extractor.ExtractColumnByColumn = true

        ' Save extracted text to file
        extractor.SaveTextToFile(".\result.txt")

        ' Cleanup
        extractor.Dispose()

        ' Open result file in default associated application (for demo purposes)
        System.Diagnostics.Process.Start(".\result.txt")

    End Sub
End Class