XML Werte in Listview einfügen

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Azumino.

    XML Werte in Listview einfügen

    Hallo liebe Community,

    Ich habe ein kleines Problem!
    Ich möchte aus einer XML Datei die Werte auslesen zb:

    XML-Quellcode

    1. <?xml version='1.0' encoding='UTF-8' standalone='yes' ?>
    2. <?xml-stylesheet type="text/xsl" href="sms.xsl"?>
    3. <smses count="464">
    4. <sms protocol="0" address="******" date="*******" type="***" subject="null" body="*********" toa="null" sc_toa="null" service_center="null" read="1" status="0" locked="0" date_sent="null" readable_date="********" contact_name="********" />
    5. </smses>


    Ich möchte jetzt folgende Daten haben: address, date, type, subject, body, read, status, locked,readable_date, contact_name
    Aber iwie weiss ich nicht wie ich an diese Werte komme.

    Habe mal das gefunden:

    VB.NET-Quellcode

    1. Imports System.IO
    3. Public Class Form1
    4. Inherits System.Windows.Forms.Form
    5. Vom Windows Form Designer generierter Code
    6. Private xmlPath As String = _
    7. System.Configuration.ConfigurationSettings. _
    8. AppSettings.Get("xmlPath")
    10. Dim ds As New DataSet
    12. Private Sub Button1_Click(ByVal sender As System.Object, _
    13. ByVal e As System.EventArgs) Handles Button1.Click
    14. Read_XMLFile(xmlPath)
    15. End Sub
    17. Private Sub Read_XMLFile(ByVal sFile As String)
    18. Label1.Visible = True
    19. Label1.Refresh()
    20. Cursor = Cursors.WaitCursor
    21. ds.Clear()
    22. ListView1.Items.Clear()
    24. ds.ReadXml(sFile)
    26. RefreshResults("true")
    27. Cursor = Cursors.Default
    28. Label1.Visible = False
    29. End Sub
    31. Private Sub RefreshResults(ByVal filter As String)
    32. Try
    33. Dim table As DataTable = ds.Tables(0)
    34. Dim rows As DataRow() = table.Select(filter)
    36. For Each row As DataRow In rows
    37. Dim item As ListViewItem = _
    38. New ListViewItem(row("name").ToString())
    39. item.SubItems.Add(row("vorname").ToString())
    40. item.SubItems.Add(row("firma").ToString())
    41. item.SubItems.Add(row("beruf").ToString())
    42. item.SubItems.Add(row("strasse").ToString())
    43. item.SubItems.Add(row("wohnort").ToString())
    44. item.SubItems.Add(row("telefon").ToString())
    46. ListView1.Items.Add(item)
    47. Next
    49. Catch e As Exception
    50. MessageBox.Show(e.Message)
    51. End Try
    52. End Sub
    54. Private Sub Form1_Load(ByVal sender As System.Object, _
    55. ByVal e As System.EventArgs) Handles MyBase.Load
    56. Label2.Text = xmlPath
    57. CreateListview()
    58. End Sub
    60. Private Sub CreateListview()
    61. With ListView1
    62. .View = View.Details
    63. .Width = 745
    64. .Columns.Add("name", 100, HorizontalAlignment.Left)
    65. .Columns.Add("vorname", 100, HorizontalAlignment.Left)
    66. .Columns.Add("firma", 110, HorizontalAlignment.Left)
    67. .Columns.Add("beruf", 100, HorizontalAlignment.Left)
    68. .Columns.Add("strasse", 100, HorizontalAlignment.Left)
    69. .Columns.Add("wohnort", 120, HorizontalAlignment.Left)
    70. .Columns.Add("telefon", 110, HorizontalAlignment.Left)
    71. End With
    72. End Sub
    74. Private Sub Button2_Click(ByVal sender As System.Object, _
    75. ByVal e As System.EventArgs) Handles Button2.Click
    76. Me.Close()
    77. End Sub
    78. End Class


    Aber das geht auch nicht
    Danke für eure Antworten

    EDIT:// An diese Daten kommt mein Server der über SSH und spezial Software auf mein Handy zugreift und sich dann eine XML Datei erstellt. Das sollte dann eine SMS Datenbank sein, falls ich mein Handy verliere kann mein Server diese auf mein neues einfügen.

    Ich weiss das Doppelpost verboten sind aber hier die Lösung:

    VB.NET-Quellcode

    1. Public Class Form2
    3. Inherits MetroFramework.Forms.MetroForm
    5. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    6. Dim XMLDoc As New XmlDocument
    7. Dim Knoten As XmlNode
    9. XMLDoc.Load("***************************************")
    11. Dim Knotenliste As XmlNodeList = XMLDoc.SelectNodes("/smses/sms")
    12. For Each Knoten In Knotenliste
    13. Dim item As ListViewItem = _
    14. New ListViewItem(Knoten.Attributes("address").Value)
    15. item.SubItems.Add(Knoten.Attributes("type").Value)
    16. item.SubItems.Add(Knoten.Attributes("subject").Value)
    17. item.SubItems.Add(Knoten.Attributes("body").Value)
    18. item.SubItems.Add(Knoten.Attributes("contact_name").Value)
    20. c.Items.Add(item)
    21. Next
    22. End Sub
    23. End Class


    Ich dachte mir noch das ich es eig auch so machen kann :D