'UPGRADE_NOTE: Object PDPage may not be destroyed until it is garbage 
 ' collected. Click for more: 
 ' 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1029"'
        PDPage = Nothing
        'UPGRADE_NOTE: Object PDHili may not be destroyed until it is garbage 
        ' collected. Click for more: 
        ' 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup102" & _
        ""'
        PDHili = Nothing
        'UPGRADE_NOTE: Object PDTextS may not be destroyed until it is garbage 
        ' collected. Click for more: 
        ' 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup102" & _
        ""'
        PDTextS = Nothing
        'UPGRADE_NOTE: Object PDDoc may not be destroyed until it is garbage 
        ' collected. Click for more: 
        ' 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup102" & _
        ""'
        PDDoc = Nothing
        Label1.Visible = False
    End Sub
    ' Gebe den Inghalt eines Feldes zurück
    Function GetIndexfromPDF(ByRef Start As String, ByRef EndS As String) As _
      String
        Dim Pos1, Pos2 As Integer
        Dim InitialText As String
 
        On Error GoTo fehler
 
        GetIndexfromPDF = ""
        InitialText = PDFStream
 
        ' Cariage Return und LF werden eliminiert,
        ' macht natürlich keinen Sinn bei Text und NText SQL Felder
        InitialText = Replace(InitialText, Chr(13), "")
        InitialText = Replace(InitialText, Chr(10), " ")
 
        ' Variable von Anfang des Textes
        If Start = FromFirst Then
            Pos1 = 1
        Else
            Pos1 = InStr(InitialText, Start) ' Position String1
        End If
 
        ' Variable bis zum Ende des Textes
        If EndS = ToLast Then
            Pos2 = Len(InitialText)
        Else
            Pos2 = InStr(Pos1 + Len(Start), InitialText, EndS) ' Position 
            ' String2
        End If
 
        GetIndexfromPDF = Mid(InitialText, Pos1 + Len(Start), Pos2 - Pos1 - Len( _
          Start) - 1)
        Exit Function
fehler:
        MsgBox("Fehler in der Funktion " & GetIndexfromPDF & vbNewLine & _
          "Fehler Nr. " & Err.Number & vbNewLine & Err.Description, _
          MsgBoxStyle.Exclamation, "Fehler")
 
    End Function
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Filename = "C:\temp\Test.pdf"
 
        FromFirst = Chr(169) & Chr(170) & Chr(172)
        ToLast = Chr(163) & Chr(165) & Chr(164)
 
        ReadSpecifications()
    End Sub
 
    ' Einlesen der Daten
    ' zum Anpassen von Verschiedenen PDF Dateien können diese
    ' extern in eine INI Datei gespeichert werden und zur Laufzeit ausgelesen 
    ' werden
    Sub ReadSpecifications()
        ' in unserem Fall kennen wir die Anzahl der Felder
        'UPGRADE_WARNING: Lower bound of array Indizes was changed from 1 to 0. 
        ' Click for more: 
        ' 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup103" & _
        ""'
        ReDim Preserve Indizes(5)
 
        Indizes(1).SQLName = "Adresse"
        Indizes(1).StartTxt = "Adresse:"
        Indizes(1).EndTxt = "Tel:"
 
        Indizes(2).SQLName = "Telefon"
        Indizes(2).StartTxt = "Tel:"
        Indizes(2).EndTxt = "Rechnungs Nr.:"
 
        Indizes(3).SQLName = "Rechnungs_Nr"
        Indizes(3).StartTxt = "Rechnungs Nr.:"
        Indizes(3).EndTxt = "Betrag:"
 
        Indizes(4).SQLName = "Betrag"
        Indizes(4).StartTxt = "Betrag:"
        Indizes(4).EndTxt = "Rechnung"
 
        ' Auch Texte mit Leerstellen können verwendet werden
        Indizes(5).SQLName = "Text"
        Indizes(5).StartTxt = "Rechnung über"
        Indizes(5).EndTxt = ToLast ' Programminterne Konvention für -'nimm den _
          Rest'
 
    End Sub

= [ Accu ] =