Next Generation Document Management

ZUGFeRD Datei aus PDF/A-3 extrahieren (VB.NET)

Mit der Beispielmethode "ExtractZugferdFromPdf" können von einer bestehenden PDF Datei, die ZUGFeRD Datei extrahieren. Natürlich kann auch der Fall eintreten, dass keine ZUGFeRD Datei an der PDF angehängt ist, was in diesem Code Snippet ebenfalls behandelt wird:

        Public  Sub ExtractZugferdFromPdf(ByVal filename As String)
            ' Load PDF Document
            Dim pdf As var =  New PdfDocument(filename) 
 
            ' Extract FileStream
            Dim zugferd As var =  pdf.ExtractZugferd() 
 
            ' Check if ZUGFeRD found and save it to file
            If Not zugferd Is Nothing Then
                Imports (var fs = New FileStream(file.Replace("pdf", "xml"), FileMode.Create, FileAccess.Write))
                {
                    st.CopyTo(fs)
                }
            Else 
                ' No ZUGFeRD in PDF file
            End If
        End Sub