itextsharp CreationDate Bug

  • VB.NET
  • .NET (FX) 4.5–4.8

    itextsharp CreationDate Bug

    Hallo Leute,

    folgendes Problem:

    Ich verwende itextsharp, um mir das originale Erstelldatum von knapp 2000 Dateien zu erfassen und anzuzeigen.
    Funktioniert soweit auch perfekt.

    Komischerweise funktioniert das ganze nicht bei allen PDFs.
    Ich erzeuge zwei Textdateien. in der einen befinden sich die Dateinamen + Erstelldatum und in der anderen werden die fehlerhaften Dateien aufgelistet.

    Weiß nicht wieso das nicht funktioniert.

    Kann die PDFs bei denen es nicht klappt leider nicht ins Netz stellen, da sie vertrauliche Daten beinhalten.
    Darunter sind auch PDF's die den Reiter "PDF" unter den Einstellungen nicht haben. Bei denen ist klar, dass ich ein anderes Datum verwenden werde.
    Bei denen die den "PDF" Reiter haben, aber es nicht klappt bin ich ratlos.

    Benötigt wird:
    -3x Button
    -1x FolderBrowserDialog
    -3x Label (Label1,3,4)
    -1x textbox

    Elemente können natürlich weggelassen werden.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.IO
    2. Imports System.Collections.Hashtable
    3. Public Class Form1
    4. Public datei As String
    6. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    7. Label3.Hide()
    8. Label4.Hide()
    9. Dim args = Environment.GetCommandLineArgs()
    10. Dim i As Integer = 0
    11. For Each a In args
    12. i = i + 1
    13. If i = 2 Then
    14. End If
    15. Next
    16. End Sub
    18. Public Sub pdftime(pfad)
    19. ' FolderBrowserDialog1.ShowDialog()
    20. Dim a As String = pfad 'FolderBrowserDialog1.SelectedPath 'Pfad der durchsucht werden soll
    21. Dim di As New System.IO.DirectoryInfo(a)
    23. Dim fs As New FileStream(a & "\Times.txt", FileMode.Create)
    24. Dim fx As New FileStream(a & "\Timesnodate.txt", FileMode.Create)
    25. Dim sw As New StreamWriter(fs)
    26. Dim swnpdf As New StreamWriter(fx)
    28. For Each fi As System.IO.FileInfo In di.GetFiles("*.pdf", System.IO.SearchOption.AllDirectories)
    29. Try
    30. Dim pdfr As New iTextSharp.text.pdf.PdfReader(fi.FullName)
    31. Dim ht As Hashtable = New Hashtable(pdfr.Info)
    32. Dim CD As String = ht("CreationDate")
    33. CD = CD.Remove(0, 2)
    34. CD = CD.Remove(14, 7)
    35. Dim year As String = CD.Substring(0, 4)
    36. Dim month As String = CD.Substring(4, 2)
    37. Dim day As String = CD.Substring(6, 2)
    38. Dim hour As String = CD.Substring(8, 2)
    39. Dim minute As String = CD.Substring(10, 2)
    40. Dim second As String = CD.Substring(12, 2)
    41. Dim Zeitneu As String = day & "." & month & "." & year & ", um " & hour & ":" & minute & ":" & second & " Uhr"
    42. Label3.Text = "Textdatei wird in " & a & " erzeugt..."
    43. Label3.Show()
    44. sw.WriteLine(fi.FullName & vbTab & Zeitneu)
    45. Catch ex As Exception
    46. swnpdf.WriteLine(fi.FullName & " konnte nicht analysiert werden")
    47. End Try
    48. Next
    49. sw.Close()
    50. swnpdf.Close()
    51. Label3.Hide()
    53. If File.Exists(datei) Then
    54. Label4.Text = "Fertig"
    55. Label4.Show()
    56. ' Me.Close()
    57. ' Me.Dispose()
    58. End If
    60. End Sub
    62. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    63. Me.Close()
    64. Me.Dispose()
    65. End Sub
    67. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    68. FolderBrowserDialog1.ShowDialog()
    69. TextBox1.Text = FolderBrowserDialog1.SelectedPath
    70. datei = FolderBrowserDialog1.SelectedPath & "\Times.txt"
    72. End Sub
    74. Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    75. pdftime(FolderBrowserDialog1.SelectedPath)
    76. End Sub
    77. End Class





    Edit//

    Fehler gefunden!

    Das Problem bei der ganzen Sache ist, dass das CreationDate verschiedene Formate annehmen kann und ich daher durch mein Datumsformat einen Fehler erzeuge.

    Wenn jemand mit Hashtables arbeitet und nicht weiß, welche Metadaten es so gibt...
    So könnt ihr sie euch anzeigen lassen(Ich mache das hier für jede Datei im ausgewählten Ordner):
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click 'hashtable Varianten herausfinden.
    2. Dim a As String = FolderBrowserDialog1.SelectedPath 'FolderBrowserDialog1.SelectedPath 'Pfad der durchsucht werden soll
    3. Dim di As New System.IO.DirectoryInfo(a)
    4. For Each fi As System.IO.FileInfo In di.GetFiles("*.pdf", System.IO.SearchOption.AllDirectories)
    6. Dim pdfr As New iTextSharp.text.pdf.PdfReader(fi.FullName)
    7. Dim ht As Hashtable = New Hashtable(pdfr.Info)
    8. For Each entry As DictionaryEntry In ht
    9. Console.WriteLine(entry.Key + ":" + entry.Value)
    10. Next
    11. Next
    12. End Sub


    Benötigt wird nur ein Button und ein Folderbrowserdialog


    ~Wir leben zwar alle unter dem gleichen Himmel, aber es haben nicht alle den gleichen Horizont~

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „razzzer530i“ ()

Facebook