Important Update
Program.vb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 | Imports System.IOImports Bytescout.PDFExtractorClass 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(".\sample1.pdf") ' Get page count Dim pageCount As Integer = extractor.GetPageCount() For i As Integer = 0 To pageCount - 1 ' Create new stream. You can use MemoryStream or any other System.IO.Stream inheritor. Dim stream As FileStream = New FileStream(".\page" + i.ToString() + ".txt", FileMode.Create) ' Save text from page to the file stream extractor.SavePageTextToStream(i, stream) ' Close stream stream.Dispose() Next ' Cleanup extractor.Dispose() ' Open result file in default associated application (for demo purposes) System.Diagnostics.Process.Start(".\page1.txt") End SubEnd Class |
Click here to get your Free Trial version of the SDK
also available as:
