Public Sub GetPDFText(ByVal pdfpath As String) Dim reader As New PdfReader(pdfpath) Dim output As New StringWriter() For i As Integer = 1 To reader.NumberOfPages output.WriteLine(PdfTextExtractor.GetTextFromPage(reader, i, New SimpleTextExtractionStrategy())) Next pdftext.Text = output.ToString Dim filenam As String = "D:\Temp\itext\test.txt" Dim testss As New System.IO.StreamWriter(filenam) testss.Write(pdftext.Text) testss.Close() End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)