Neue Daten in XML Datei einfügen

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

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Azumino.

    Neue Daten in XML Datei einfügen

    Hallo ihr lieben,

    Ich habe mal eine Frage zum Thema XML:
    Ich will neue Daten in eine XML Laden und sichern. Es geht um meine Software die Dateien verschlüsseln kann. Da möchte ich in einer XML Datei folgende Daten sichern:
    1. Dateiname
    2. Verzeichnis der Datei
    3. Datum
    Diese Daten werden nur gebraucht wenn jmd eine Datei mit der Software startet. Also wenn jmd eine Datei auf die Verknüpfung legt und die Software sich startet.
    Dafür habe ich folgenden Code:

    VB.NET-Quellcode

    1. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    2. If My.Application.CommandLineArgs.Any = True Then
    3. For Each arg In My.Application.CommandLineArgs
    5. Dim bytKey As Byte()
    6. Dim bytIV As Byte()
    8. If GetFileName(arg, False) = ".blackbird" Then
    9. 'Send the password to the CreateKey function.
    10. bytKey = CreateKey("*****************")
    11. 'Send the password to the CreateIV function.
    12. bytIV = CreateIV("*****************")
    13. 'Start the encryption.
    14. If System.IO.Directory.Exists("C:\Users\Blackbird OS\Desktop\Verschlüsselte Dateien\") = True Then
    15. EncryptOrDecryptFile(arg, "C:\Users\Blackbird OS\Desktop\Verschlüsselte Dateien\" & GetFileName(arg, False), _
    16. bytKey, bytIV, CryptoAction.ActionDecrypt)
    17. Else
    18. System.IO.Directory.CreateDirectory("C:\Users\Blackbird OS\Desktop\Verschlüsselte Dateien\")
    19. EncryptOrDecryptFile(arg, "C:\Users\Blackbird OS\Desktop\Verschlüsselte Dateien\" & GetFileName(arg, False), _
    20. bytKey, bytIV, CryptoAction.ActionDecrypt)
    21. End If
    23. Application.Exit()
    24. Else
    25. 'Send the password to the CreateKey function.
    26. bytKey = CreateKey("*****************")
    27. 'Send the password to the CreateIV function.
    28. bytIV = CreateIV("*****************")
    29. 'Start the encryption.
    30. If System.IO.Directory.Exists("C:\Users\Blackbird OS\Desktop\Verschlüsselte Dateien\") = True Then
    31. EncryptOrDecryptFile(arg, "C:\Users\Blackbird OS\Desktop\Verschlüsselte Dateien\" & GetFileName(arg, True), _
    32. bytKey, bytIV, CryptoAction.ActionEncrypt)
    33. Application.Exit()
    34. Else
    35. System.IO.Directory.CreateDirectory("C:\Users\Blackbird OS\Desktop\Verschlüsselte Dateien\")
    36. EncryptOrDecryptFile(arg, "C:\Users\Blackbird OS\Desktop\Verschlüsselte Dateien\" & GetFileName(arg, True), _
    37. bytKey, bytIV, CryptoAction.ActionEncrypt)
    38. Application.Exit()
    39. End If
    40. End If
    41. Next
    42. Else
    43. End If
    45. End Sub

    Doch bei der XML Sub erstellt diese nur einen Eintrag:

    XML-Quellcode

    1. <?xml version="1.0" encoding="utf-16"?>
    2. <files>
    3. <files filename="Neues Textdokument - Kopie (4).txt" dir="C:\Users\Dario\Blackbird OS\Neues Textdokument - Kopie (4).txt" time="0" />
    4. </files>


    und die XML Sub:
    Bitte klicken

    VB.NET-Quellcode

    1. Private Sub XMLWriter(ByVal filename As String, ByVal dir As String, ByVal time As DateFormat)
    3. ' Auswahl einer Kodierungsart für die Zeichenablage
    4. Dim enc As New System.Text.UnicodeEncoding
    6. ' XmlTextWriter-Objekt für unsere Ausgabedatei erzeugen:
    7. Dim XMLobj As Xml.XmlTextWriter = New Xml.XmlTextWriter("Dataset_Filenames.xml", enc)
    9. With XMLobj
    11. ' Formatierung: 4er-Einzüge verwenden
    12. .Formatting = Xml.Formatting.Indented
    13. .Indentation = 4
    15. ' Dann fangen wir mal an:
    16. .WriteStartDocument()
    18. ' Beginn eines Elements "Personen". Darin werden wir mehrere
    19. ' Elemente "Person" unterbringen.
    20. .WriteStartElement("files")
    22. ' Hier kommt das erste Element "Person". Eine Person hat
    23. ' in unserem einfachen Beispiel einen Titel, einen Nach-
    24. ' namen und einen Vornamen. Als Demo soll uns das genügen.
    25. .WriteStartElement("files") ' <Person
    26. .WriteAttributeString("filename", filename)
    27. .WriteAttributeString("dir", dir)
    28. .WriteAttributeString("time", time)
    29. .WriteEndElement() ' Person />
    31. ' Nachdem das Element "Personen" zwei Elemente "Person"
    32. ' erhalten hat, beenden wir die Ausgabe für "Personen"...
    33. .WriteEndElement() ' </Personen>
    35. ' ... und schließen das XML-Dokument (und die Datei)
    36. XMLobj.Flush()
    37. .Close() ' Document
    39. End With
    41. ' Und so sieht die Ergebnisdatei aus:
    42. ' -----------------------------------
    43. '<?xml version="1.0" encoding="utf-16"?>
    44. '<Personen>
    45. ' <Person Titel="Dr." Name="Meyer" Vorname="Hans" />
    46. ' <Person Titel="" Name="Schmidt" Vorname="Carlos" />
    47. '</Personen>
    49. End Sub
    51. Private Sub XMLReader()
    53. ' Wir benötigen einen XmlReader für das Auslesen der XML-Datei
    54. Dim XMLReader As Xml.XmlReader _
    55. = New Xml.XmlTextReader("quickie.xml")
    57. ' Es folgt das Auslesen der XML-Datei
    58. With XMLReader
    60. Do While .Read ' Es sind noch Daten vorhanden
    62. ' Welche Art von Daten liegt an?
    63. Select Case .NodeType
    65. ' Ein Element
    66. Case Xml.XmlNodeType.Element
    68. Console.WriteLine("Es folgt ein Element vom Typ " & .Name)
    70. ' Alle Attribute (Name-Wert-Paare) abarbeiten
    71. If .AttributeCount > 0 Then
    72. ' Es sind noch weitere Attribute vorhanden
    73. While .MoveToNextAttribute ' nächstes
    74. Console.WriteLine("Feldname: " & .Name & _
    75. " -> " & _
    76. "Feldwert: " & .Value)
    77. End While
    79. End If
    81. ' Ein Text
    82. Case Xml.XmlNodeType.Text
    83. Console.WriteLine("Es folgt ein Text: " & .Value)
    85. ' Ein Kommentar
    86. Case Xml.XmlNodeType.Comment
    87. Console.WriteLine("Es folgt ein Kommentar: " & .Value)
    89. End Select
    91. Loop ' Weiter nach Daten schauen
    93. .Close() ' XMLTextReader schließen
    95. End With
    97. ' Und so sieht das Ergebnis der Ausgabe aus:
    98. ' ------------------------------------------
    99. 'Es folgt ein Element vom Typ Personen
    100. 'Es folgt ein Element vom Typ Person
    101. 'Feldname: Titel -> Feldwert: Dr.
    102. 'Feldname: Name -> Feldwert: Meyer
    103. 'Feldname: Vorname -> Feldwert: Hans
    104. 'Es folgt ein Element vom Typ Person
    105. 'Feldname: Titel -> Feldwert:
    106. 'Feldname: Name -> Feldwert: Schmidt
    107. 'Feldname: Vorname -> Feldwert: Carlos
    109. End Sub


    Die Daten werden benötigt um den Namen der alten Datei zu erkennen für die Entschlüsselung.
    Ich werde aber ein Code brauchen für die Identifikation der Verschlüsselten Dateien
    Danke für eure Hilfe

    Pack Deine Daten in eine DataTable innerhalb eines DataSets. Hier kannst Du einfach Einträge hinzufügen, löschen, bearbeiten und natürlich speichern und laden. Ohne viel Aufwand.
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

Facebook
Telefonspende