XML Dokument auslesen

  • VB.NET

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    XML Dokument auslesen

    Hallo,

    ich habe eine funktion gebastelt welche mir einstellungen von meinem Programm in eine XML Datei speichert. Jetzt möchte ich die auch wieder einlesen ... nur weis ich nicht ganz wie

    im anhang meine xml datei.

    Das problem ist, dass man mittels einem xmlreader nicht erkennen würde wo man gerade ist, da es meherer abschnitte in der xml datei gibt welche mit einer schleife geschrieben wurden ...

    ist LINQ to XML eine idee ?

    Wie würdet ihr da ran gehen ?

    Gruß
    Dateien

    Wahrscheinlich nicht gerade die beste Ausführung aber es funktioniert ^^

    VB.NET-Quellcode

    1. Public Sub load_messurements()
    2. Dim xmlDoc As New XmlDocument
    3. Dim root As XmlElement
    5. If File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\TDA\messurement_default.xml") Then
    7. xmlDoc.Load(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\TDA\messurement_default.xml")
    9. root = xmlDoc.DocumentElement
    11. For Each MesNode As XmlNode In root.ChildNodes
    12. Dim mes As New messurement
    14. mes.typeName = Replace(MesNode.Name, "_", " ")
    15. For Each Node As XmlNode In MesNode.ChildNodes
    16. Select Case Node.Name
    17. Case "name"
    18. mes.name = Node.InnerText
    19. Case "type"
    20. mes.type = Node.InnerText
    21. Case "InnerText1"
    22. mes.value1 = Node.InnerText
    23. Case "InnerText2"
    24. mes.value2 = Node.InnerText
    25. Case "limit"
    26. mes.limit = Node.InnerText
    27. Case "way_min"
    28. mes.way_min = Node.InnerText
    29. Case "way_max"
    30. mes.way_max = Node.InnerText
    31. Case "fraction"
    32. mes.fraction = CBool(Node.InnerText)
    33. Case "v_deviation"
    34. mes.v_deviation = Node.InnerText
    35. Case "ref_deviation"
    36. mes.ref_deviation = Node.InnerText
    37. Case "deviation"
    38. mes.deviation = Node.InnerText
    39. Case "konst_time"
    40. mes.konst_time = Node.InnerText
    41. Case "direction"
    42. mes.direction = CBool(Node.InnerText)
    43. Case "offset"
    44. mes.offset = Node.InnerText
    45. Case "offset_type"
    46. mes.offset_type = Node.InnerText
    47. Case "updown"
    48. mes.updown = CBool(Node.InnerText)
    49. Case "ref_channel"
    50. mes.ref_channel = channels.Item(Node.InnerText)
    51. Case "data_channel"
    52. mes.data_channel = channels.Item(Node.InnerText)
    53. Case "calculation"
    54. Dim cal As calculate
    56. For Each CalNode As XmlNode In Node.ChildNodes
    57. cal = New calculate(CInt(Mid(CalNode.Name, 5)))
    59. For Each calPropNode As XmlNode In CalNode.ChildNodes
    60. Select Case calPropNode.Name
    61. Case "columns"
    62. cal.column.AddRange(Split(calPropNode.InnerText, ";"))
    63. Case "operators"
    64. cal.operators.AddRange(Split(calPropNode.InnerText, ";"))
    65. End Select
    66. Next
    68. mes.calculation.Add(cal)
    70. Next
    72. End Select
    73. Next
    75. messurements.Add(mes.typeName, mes)
    77. Next
    79. Else
    80. MsgBox("Konfiguration konnte nicht geladen werden." & vbNewLine & vbNewLine & Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\TDA\messurement_default.xml" & " ist nicht verfügbar!", MsgBoxStyle.Critical, "Fehler")
    81. End If
    83. End Sub

    Mit einem typisierten Dataset ginge das auch in 10 Zeilen.
    Tatsächlich scheint es sich doch nicht um eine Konfiguration im eigentlichen Sinne zu handeln, sonder um eine Tabelle von MessDaten.
    Die Datensätze sind sogar recht gut erkennbar in ihren Eigenschaften, nur das Calculations-Dingens würde im Dataset wohl als untergeordnete Tabelle modelliert.

    Nein es handelt sich nicht um Mess-Daten man kann eher sagen um die Konfiguration wie die Messungen durchgeführt werden sollen ... also Parameter ...

    ich habe mir die möglichkeit der XML-Serialisierung angesehen aber war mir jetzt ein bisschen zu undurchsichtig, da ich die funktion des rauschreibens der daten schon geschrieben hatte.

    mist da kommt ein Problem auf ...

    ich habe in meinem eigentlichen Projekt vieles mit Dictionary gemacht ... leider scheint aber Dictionary sich nicht serialisieren zu lassen ... gibts es da einen trick oder muss ich meine Dictionaries in eine List umbauen ?

    Gruß

    ..............................................................................

    hmm coole sache muss ich schon sagen ^^

    VB.NET-Quellcode

    1. Imports System.Xml
    2. Imports System.Xml.Serialization
    4. Public Class frm_Main
    5. Private settings As New List(Of setting)
    7. Private Sub frm_Main_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    9. settings.Add(New setting("Test1", {"Hallo", "du", "da!"}))
    10. settings.Add(New setting("Test2", {"Hallo", "du", "da!"}))
    11. settings.Add(New setting("Test3", {"Hallo", "du", "da!"}))
    12. settings.Add(New setting("Test4", {"Hallo", "du", "da!", "muhahaa"}))
    14. End Sub
    16. Private Sub btn_serialize_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_serialize.Click
    17. Dim writer As XmlWriter
    18. Dim ser As XmlSerializer = New XmlSerializer(GetType(List(Of setting)))
    19. writer = New XmlTextWriter("C:\Dokumente und Einstellungen\pr1eg33\Desktop\test.xml", New System.Text.UTF8Encoding())
    21. Try
    22. ser.Serialize(writer, settings)
    23. Catch ex As Exception
    24. MsgBox(ex.ToString)
    25. Finally
    26. writer.Close()
    27. End Try
    29. End Sub
    31. End Class


    Danke ;)

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