Schreibfunktion / überschreiben von XML einträgen

  • VB.NET
  • .NET (FX) 4.0

Es gibt 28 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Sonaca schrieb:

    in verschiedene Richtungen zu denken
    Mach Dir eine Datenklasse und implementiere das Interface IXmlSerializable.
    Eigentlich brauchst Du den ganzen Kram nicht, wenn Du es so machst, wie ich es Dir in Post #2 vorgeschlagen habe.
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Text
    2. Imports System.Xml.Serialization
    4. Public Class Form1
    5. Private pfad As String = "c:\temp\test.xml"
    6. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    7. Dim data = New MyXmlData
    8. data.Name = "Name"
    9. data.ServerURL = "http:\\www.zdf.de"
    10. data.Width = 42
    11. data.Height = 42
    12. Me.SaveXml(data, pfad)
    13. End Sub
    15. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    16. Dim data2 As MyXmlData
    17. data2 = Me.LoadXml(pfad)
    18. MessageBox.Show(data2.Name)
    19. End Sub
    21. Public Sub SaveXml(data As MyXmlData, file As String)
    22. ' Serialize object to a XML file.
    23. Using sw As New IO.StreamWriter(file, False, Encoding.Default)
    24. Dim x As New XmlSerializer(data.GetType())
    25. x.Serialize(sw, data)
    26. End Using
    27. End Sub
    29. Public Function LoadXml(file As String) As MyXmlData
    30. Dim data As MyXmlData = New MyXmlData()
    31. Try
    32. ' Deserialize XML file to a new object.
    33. Using sr As New IO.StreamReader(file, Encoding.Default)
    34. Dim x As New XmlSerializer(data.GetType())
    35. data = DirectCast(x.Deserialize(sr), MyXmlData)
    36. End Using
    38. Return data
    39. ' nix tun, die Settings-Instanz ist nicht valid
    40. Catch
    41. End Try
    43. Return data
    44. End Function
    46. End Class
    48. Public Class MyXmlData
    49. Public Property Name As String
    50. Public Property ServerURL As String
    51. Public Property Width As Integer
    52. Public Property Height As Integer
    53. End Class
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Sooo,
    Beim ersten Betätigen des Button4 erstellt er die XML und schreibt auch rein :)
    der Fehler taucht nun beim erneuten betätigen des Buttons auf, also wenn man den Inhalt erneut schreiben möchte,

    @RodFromGermany

    Danke für deine Anregung, aber ich muss leider gestehen das mir das noch ein wenig zu hoch ist :( leider

    Sonaca schrieb:

    zu hoch
    Deswegen hab ich Dir doch eben die Minimalvariante gepostet. :D
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Finde deine Variante schonmal übersichtlicher

    magst du sie mir vll. für "dummis" nahebringen ?

    VB.NET-Quellcode

    1. habe rund 16 blöcke die so aussehen:
    3. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 'save Button
    4. xw.WriteStartDocument()
    5. 'window 1
    7. If CheckBox1.Checked = True Then
    8. xw.WriteStartElement("Window 1")
    9. xw.WriteAttributeString("Show Window", "1")
    10. xw.WriteAttributeString("Size Hight", TextBox1.Text)
    11. xw.WriteAttributeString("Size With", TextBox2.Text)
    12. xw.WriteAttributeString("Position X", TextBox3.Text)
    13. xw.WriteAttributeString("Position Y", TextBox4.Text)
    15. If CheckBox44.Checked = True Then
    16. CheckBox45.Checked = False
    17. xw.WriteAttributeString("Path", TextBox5.Text)
    18. Else
    19. xw.WriteAttributeString("Path", "")
    20. End If
    22. If CheckBox45.Checked = True Then
    23. CheckBox44.Checked = False
    25. xw.WriteAttributeString("URL", TextBox5.Text)
    26. Else
    27. xw.WriteAttributeString("URL", "")
    28. End If
    30. Else
    31. xw.WriteStartElement("Window 1")
    32. xw.WriteAttributeString("Show Window", "0")
    33. xw.WriteAttributeString("Size Hight", "")
    34. xw.WriteAttributeString("Size With", "")
    35. xw.WriteAttributeString("Position X", "")
    36. xw.WriteAttributeString("Position Y", "")
    37. xw.WriteAttributeString("Path", "")
    38. xw.WriteAttributeString("URL", "")
    39. End If
    40. xw.WriteEndElement()
    42. 'weiter bis block 16
    44. end sub


    grüße

    Sonaca schrieb:

    16 blöcke
    Fang an mit dem Code zu spielen.
    Selbstverständlich kannst Du eine Klasse machen, die die Einzeldaten halten, dann machst Du eine Oberklasse, die die 16 Blöcke hält. Die serialisierst Du.
    Feddich.
    Wenn Du Dich um alles selbst kümmern willst, ist die Gefahr von Fehlern viel zu groß.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Sow, mein vorheriges Problem hat sich erledigt, nun kommt folgendes ....

    Quellcode

    1. Ein Ausnahmefehler des Typs "System.InvalidOperationException" ist in System.Xml.dll aufgetreten.
    3. Zusätzliche Informationen: Token StartElement im Status Epilog würde in einem ungültigen XML-Dokument resultieren.


    Source

    Spoiler anzeigen

    VB.NET-Quellcode

    1. #Region "Window 1 - 4 XML"
    3. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 'save Button
    4. Dim xw As XmlWriter = New XmlTextWriter(Application.StartupPath & cs, New UnicodeEncoding) 'in XML Schreiben
    5. xw.WriteStartDocument()
    6. 'window 1
    8. If CheckBox1.Checked = True Then
    9. xw.WriteStartElement("Second Settings")
    11. xw.WriteStartElement("Window 1")
    12. xw.WriteAttributeString("Show Window", "1")
    13. xw.WriteAttributeString("Size Hight", TextBox1.Text)
    14. xw.WriteAttributeString("Size With", TextBox2.Text)
    15. xw.WriteAttributeString("Position X", TextBox3.Text)
    16. xw.WriteAttributeString("Position Y", TextBox4.Text)
    18. If CheckBox44.Checked = True Then
    19. CheckBox45.Checked = False
    20. xw.WriteAttributeString("Path", TextBox5.Text)
    21. Else
    22. xw.WriteAttributeString("Path", "")
    23. End If
    25. If CheckBox45.Checked = True Then
    26. CheckBox44.Checked = False
    28. xw.WriteAttributeString("URL", TextBox5.Text)
    29. Else
    30. xw.WriteAttributeString("URL", "")
    31. End If
    33. Else
    34. xw.WriteStartElement("Window 1")
    35. xw.WriteAttributeString("Show Window", "0")
    36. xw.WriteAttributeString("Size Hight", "")
    37. xw.WriteAttributeString("Size With", "")
    38. xw.WriteAttributeString("Position X", "")
    39. xw.WriteAttributeString("Position Y", "")
    40. xw.WriteAttributeString("Path", "")
    41. xw.WriteAttributeString("URL", "")
    42. End If
    43. xw.WriteEndElement()
    45. 'window 2
    47. If CheckBox2.Checked = True Then
    48. xw.WriteStartElement("Window 2")
    49. xw.WriteAttributeString("Show Window", "1")
    50. xw.WriteAttributeString("Size Hight", TextBox7.Text)
    51. xw.WriteAttributeString("Size With", TextBox8.Text)
    52. xw.WriteAttributeString("Position X", TextBox10.Text)
    53. xw.WriteAttributeString("Position Y", TextBox9.Text)
    55. If CheckBox42.Checked = True Then
    56. CheckBox43.Checked = False
    57. xw.WriteAttributeString("Path", TextBox6.Text)
    58. Else
    59. xw.WriteAttributeString("Path", "")
    60. End If
    62. If CheckBox43.Checked = True Then
    63. CheckBox42.Checked = False
    65. xw.WriteAttributeString("URL", TextBox6.Text)
    66. Else
    67. xw.WriteAttributeString("URL", "")
    69. End If
    70. xw.WriteEndElement()
    73. Else
    74. xw.WriteStartElement("Window 2") 'Fehlerzeile
    75. xw.WriteAttributeString("Show Window", "0")
    76. xw.WriteAttributeString("Size Hight", "")
    77. xw.WriteAttributeString("Size With", "")
    78. xw.WriteAttributeString("Position X", "")
    79. xw.WriteAttributeString("Position Y", "")
    80. xw.WriteAttributeString("Path", "")
    81. xw.WriteAttributeString("URL", "")
    82. End If
    83. xw.WriteEndElement()

    Sonaca schrieb:

    folgendes
    Du solltest mal das Verfahren wechseln.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Sonaca schrieb:

    nicht mal die hälfte verstehe
    Dann solltest Du danach fragen und das Kleinkram-Einzel-gewurstel, von dem Du offensichtlich ebensowenig verstehst, sein lassen.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende