XML schreiben

  • VB.NET
  • .NET (FX) 4.0

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von Sebli76.

    XML schreiben

    Würde gerne folgenden Inhalt per xml writer in eine Textdatei schreiben.
    Aber irgendwie scheitert es an dierser Zeile <game name="ddddd" index="true" image="'">

    XML-Quellcode

    1. <?xml version="1.0"?>
    2. <menu>
    3. <game name="ddddd" index="true" image="'">
    4. <description>'88 Games</description>
    5. <cloneof></cloneof>
    6. <crc>86731451</crc>
    7. <manufacturer>xxx</manufacturer>
    8. <year>1988</year>
    9. <genre>Sports/Track &amp; Field</genre>
    10. <rating>AAMA - Green (Suitable For All Ages)</rating>
    11. <players>4</players>
    12. <ctrltype>Buttons</ctrltype>
    13. <buttons>3</buttons>
    14. <score>3.2</score>
    15. <enabled>Yes</enabled>
    16. </game>
    17. </menu>

    *Topic verschoben*

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()

    Es scheitert eher an dem nicht gezeigten Code. Wenn du hilfe willst, dann zeige was du bis jetzt hast und auch, warum es scheitert, also was konkret dein Problem ist.
    Es weiß so niemand, ob die gezeigte XML per Code erzeugt wurde oder ob es deine Zielvorstellung ist. Also mehr als nur dünn, was du da lieferst und eine Frage sehe ich auch nicht.

    @Sebli76 Willkommen im Forum. :thumbup:
    Wie sieht Dein bisheriger Code aus?
    Beschreibe mal, was Du da eigentlich abspeichern und wieder laden willst?
    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!

    Ja entschuldige, habt ja Recht :)
    Es scheitert weil er sagt, Leerzeichen sind nicht zulässig.

    Quellcode

    1. 'Make Meta List
    3. Sub Button8Click(sender As Object, e As EventArgs)
    5. ' Create XmlWriterSettings.
    7. Dim settings As XmlWriterSettings = New XmlWriterSettings()
    9. settings.Indent = True
    11. settings.IndentChars = " "
    13. ' Create XmlWriter.
    15. Using writer As XmlWriter = XmlWriter.Create(textbox6.Text & "\" & combobox2.text & ".xml", settings)
    17. ' Begin writing.
    19. writer.WriteStartDocument()
    21. writer.WriteStartElement("menu") ' Root.
    24. For i = 0 To dataGridView1.Rows.Count -1
    27. writer.WriteStartElement("game name=" & Chr(34) & dataGridView1.Rows(i).Cells(0).value & Chr(34) & ", index=" & Chr(34) & "true" & chr(34) & ", image=" & chr(34) & chr(34) )
    29. writer.WriteElementString("description", dataGridView1.Rows(i).Cells(1).value)
    31. If Not dataGridView1.Rows(i).Cells(3).value = Nothing
    33. writer.WriteElementString("cloneof", dataGridView1.Rows(i).Cells(3).value)
    35. End If
    37. 'writer.WriteElementString("crc", "")
    39. If Not dataGridView1.Rows(i).Cells(4).value = Nothing
    41. writer.WriteElementString("year", dataGridView1.Rows(i).Cells(4).value)
    43. End If
    45. If Not dataGridView1.Rows(i).Cells(5).value = Nothing
    47. writer.WriteElementString("genre", dataGridView1.Rows(i).Cells(5).value)
    49. End If
    51. 'writer.WriteElementString("rating", "")
    53. If Not dataGridView1.Rows(i).Cells(6).value = Nothing
    55. writer.WriteElementString("players", dataGridView1.Rows(i).Cells(6).value)
    57. End If
    59. If Not dataGridView1.Rows(i).Cells(8).value = Nothing
    61. writer.WriteElementString("ctrltype", dataGridView1.Rows(i).Cells(8).value)
    63. End If
    65. If Not dataGridView1.Rows(i).Cells(15).value = Nothing
    67. writer.WriteElementString("buttons", dataGridView1.Rows(i).Cells(15).value)
    69. End If
    71. 'writer.WriteElementString("Score", "")
    75. writer.WriteElementString("enabled", "yes")
    77. writer.WriteEndElement()
    79. Next
    83. ' End document.
    85. writer.WriteEndElement()
    87. writer.WriteEndDocument()
    89. End Using
    91. End Sub

    Willkommen im Forum!

    Sebli76 schrieb:

    Es scheitert weil er sagt, Leerzeichen sind nicht zulässig.


    Kleiner Hinweis: wenn du einen Fehler hast, immer den Code (hast du ja nachgeholt) posten und am Besten noch einen Verweis auf die Zeile, wo der Fehler geworfen wird. So ist das ein Herumstochern in deinem Code, oder man muss den Code selber irgendwie zurechtfriemeln und selbst dann ist die Chance gering, dass man genau das Verhalten reproduzieren kann, was du hast.

    Irgendwo ein Kommentar ​' hier taucht der Fehler auf! ist da schon eine riesen Hilfe :)
    Quellcode lizensiert unter CC by SA 2.0 (Creative Commons Share-Alike)

    Meine Firma: Procyon Systems
    Meine Privatwebseite: SimonC.eu

    Bitte nicht wundern, wenn meine Aktivitäten im Forum etwas langsamer sind, ich baue gerade mein Nebengewerbe zum Vollgewerbe aus.
    Ich versuche auf euch zurückzukommen :)

    @Sebli76 Frage nicht beantwortet :!:

    RodFromGermany schrieb:

    Beschreibe mal, was Du da eigentlich abspeichern und wieder laden willst?
    Das sieht mir doch sehr danach aus, als wolltest Du noch mehre Datensätze dieser Art speichern.
    Sieh Dir mal das an:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private XmlFile As String = "c:\temp\data.xml" ' Pfad zum Speichern / Lesen
    4. Private Data As MyData
    6. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    7. '' Daten-Instanz erstellen und befüllen
    8. 'Me.Data = New MyData()
    9. 'Me.Data.name = "Test Status"
    10. 'Me.Data.address = "0000"
    11. 'Me.Data.type = 9999
    12. 'Me.Data.timestamp = DateTime.Now
    13. 'Me.Data.flags = 0
    14. 'Me.Data.user = "Tester"
    15. 'Me.Data.SingleValues = New List(Of Integer) From {1, 2, 3, 4, 5}
    16. End Sub
    18. ''' <summary>
    19. ''' Daten von Festplatte laden
    20. ''' </summary>
    21. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    22. Me.Data = MyData.LoadData(Me.XmlFile)
    23. End Sub
    25. ''' <summary>
    26. ''' Daten auf Festplatte schreiben
    27. ''' </summary>
    28. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    29. Me.Data.WriteData()
    30. End Sub
    32. ''' <summary>
    33. ''' aktuelle Daten darstellen
    34. ''' </summary>
    35. Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    36. Me.ListBox1.Items.Clear()
    37. ' hier: nur das Integer-Array
    38. For Each value In Me.Data.SingleValues
    39. Me.ListBox1.Items.Add(value)
    40. Next
    41. End Sub
    43. End Class
    45. '#####################################################
    46. '#####################################################
    47. '#####################################################
    48. Imports System.IO
    49. Imports System.Text
    50. Imports System.Xml.Serialization
    52. ''' <summary>
    53. ''' Datenklasse
    54. ''' </summary>
    55. ''' <remarks>mit XML-Serialisierung</remarks>
    56. Public Class MyData
    57. ' Pfad zur geladenen Datei
    58. Private MyFile As String
    60. ' alle vorkommenden Daten
    61. Public Property name() As String
    62. Public Property address() As String
    63. Public Property type() As Integer
    64. Public Property timestamp() As DateTime
    65. Public Property flags() As Integer
    66. Public Property user() As String
    67. Public Property SingleValues() As List(Of Integer)
    69. Public Sub New()
    70. ' Hier die Daten mit Defaultwerten befüllen oder nicht
    71. Me.name = "Hase"
    72. Me.SingleValues = New List(Of Integer)
    73. End Sub
    75. ''' <summary>
    76. ''' Daten aus einer Datei lesen
    77. ''' </summary>
    78. ''' <param name="file">Dateiname</param>
    79. ''' <returns>die geladene Instanz</returns>
    80. Public Shared Function LoadData(file As String) As MyData
    81. Dim data As New MyData()
    82. Try
    83. ' Deserialize XML file to a new object.
    84. Using sr As New StreamReader(file, Encoding.Default)
    85. Dim x As New XmlSerializer(data.GetType())
    86. data = DirectCast(x.Deserialize(sr), MyData)
    87. End Using
    88. ' Pfad merken
    89. data.MyFile = file
    90. Return data
    91. Catch
    92. ' nix tun, die Daten-Instanz ist nicht valid,
    93. ' es wird die Instanz übergeben, die bei New() erzeugt wird
    94. End Try
    96. ' Pfad bei nicht vorgandener Instanz merken
    97. data.MyFile = file
    98. Return data
    99. End Function
    101. ''' <summary>
    102. ''' Daten in eine Datei schreiben
    103. ''' </summary>
    104. Public Sub WriteData()
    105. ' Serialize object to a XML file.
    106. Using sw As New StreamWriter(Me.MyFile, False, Encoding.Default)
    107. Dim x As New XmlSerializer(Me.GetType())
    108. x.Serialize(sw, Me)
    109. End Using
    110. End Sub
    111. 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!

    @Sebli76
    1. Du proggrammierst Option Strict Off
    2. Du schreibt nicht (auch nicht im Code, der falsch formatiert ist, wo dein erster Fehler auftritt (wurde schon geschrieben)
    3. Du kannst nicht als Startelement das Element samt Attribute rauskloppen. Der Code für dein Startlement sieht so aus:

    VB.NET-Quellcode

    1. writer.WriteStartElement("game")
    2. writer.WriteAttributeString("name", DataGridView1.Rows(i).Cells(0).Value.ToString)
    3. writer.WriteAttributeString("index", true.ToString)
    4. writer.WriteAttributeString("image", "")

    3. Deine Schleife ist eine mittlere Katastrophe, der Test auf Nothing wird so nicht funktionieren. eine leere Zeile ist auch eine Zeile die durchlaufen wird und dann knallt es.
    4. Wenn die XML-Struktur es erlaubt, dann verwende ein Dataset oder IMO besser eine zu serialisierende Klasse, dann kannst du dir a) den ganzen Code zum Schreiben mittels XMLWriter sparen
    und ausserdem kannst du die Daten (Liste von Objekten der Klasse) an das DGV binden und brauchst nicht im DGV herumzustochern.
    Deshalb verwendet man ja sowas, eine View ist eben nur zum gucken und ggf. ändern von Daten. Aber halt nicht zum "Verwalten" der Daten.

    meine generierte XML:

    XML-Quellcode

    1. <?xml version="1.0" encoding="utf-8"?>
    2. <menu>
    3. <game name="a1" index="True" image="">
    4. <description>a2</description>
    5. <cloneof>a3</cloneof>
    6. <year>a4</year>
    7. <genre>a5</genre>
    8. <players>a6</players>
    9. <ctrltype>a7</ctrltype>
    10. <buttons>a8</buttons>
    11. <enabled>yes</enabled>
    12. </game>
    13. </menu>

Facebook
Telefonspende