Imports iTextSharp.text.pdf
Imports iTextSharp.text.pdf.parser
Imports System.Text
 
Module Module1
 
    Sub Main()
        Call PDFText("d:\dallas 1-wire application note.pdf")
    End Sub
 
    Private Sub PDFText(PDFDateiname As String)
        If IO.File.Exists(PDFDateiname) = False Then Exit Sub
 
        Dim Seitentext As String = ""
 
        ' Wie der Text extrahiert werden soll...
        Dim m_Strategie As New SimpleTextExtractionStrategy()
 
        Using myPDFReader = New iTextSharp.text.pdf.PdfReader(PDFDateiname)
 
            For iSeite As Integer = 1 To myPDFReader.NumberOfPages Step 1
                ' ...auslesen
                Seitentext = PdfTextExtractor.GetTextFromPage(myPDFReader, _
                  iSeite, m_Strategie)
 
                ' ...Zeichenkodierung anpassen
                Seitentext = Encoding.UTF8.GetString( _
                                ASCIIEncoding.Convert( _
                                        Encoding.Default, _
                                        Encoding.UTF8, _
                                        Encoding.Default.GetBytes(Seitentext)))
 
                Console.WriteLine(Seitentext)
            Next
 
        End Using
 
    End Sub
 
End Module