Module1.vb
Imports Bytescout.PDFExtractor Namespace ConsoleApplication1 Class Program Shared Sub Main(ByVal args As String()) ' Create Bytescout.PDFExtractor.JSONExtractor instance Dim extractor As New JSONExtractor() extractor.RegistrationName = "demo" extractor.RegistrationKey = "demo" ' Load sample PDF document extractor.LoadDocumentFromFile("sample1.pdf") ' Uncomment this line to get rid of empty nodes in JSON 'extractor.PreserveFormattingOnTextExtraction = False ' Set output image format extractor.ImageFormat = OutputImageFormat.PNG ' Save images to external files extractor.SaveImages = ImageHandling.OuterFile extractor.ImageFolder = "images" ' Folder for external images extractor.SaveJSONToFile("result_with_external_images.json") ' Embed images into JSON as Base64 encoded string extractor.SaveImages = ImageHandling.Embed extractor.SaveJSONToFile("result_with_embedded_images.json") ' Cleanup extractor.Dispose() End Sub End Class End Namespace
Click here to get your Free Trial version of the SDK
also available as: