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.IO 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( ".\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 Sub End Class |
Click here to get your Free Trial version of the SDK
also available as: