XML Richtig auswerten

  • VB.NET

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

    XML Richtig auswerten

    Hallo!
    Ich wollte fragen wie ich diese XML Datei:

    XML-Quellcode

    1. <?xml version="1.0" encoding="utf-8"?>
    2. <!--XML Database.-->
    3. <Data>
    4. <Sponge>
    5. <Name>Sponge</Name>
    6. <Download>OFF</Download>
    7. <Version>OFF</Version>
    8. </Sponge>
    9. <Bukkit>
    10. <Name>Bukkit</Name>
    11. <Download>DMCA</Download>
    12. <Version>DMCA</Version>
    13. </Bukkit>
    14. </Data>


    So auswerten kann dass in einer Listbox das hier steht:

    Quellcode

    1. Sponge
    2. Bukkit


    und wenn man dann das ausgewählte Item anklickt dass ich ein DLLink Returnt bekomme (Bei der XML Datei das was bei <Download> steht)

    Spoiler anzeigen

    Visual Basic-Quellcode

    1. Private Sub ReadIndex()
    2. 'check if file myxml.xml is existing
    3. If (IO.File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) + "\Easy Bukkit\servers.xml")) Then
    5. 'create a new xmltextreader object
    6. 'this is the object that we will loop and will be used to read the xml file
    7. Dim document As XmlReader = New XmlTextReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) + "\Easy Bukkit\servers.xml")
    9. 'loop through the xml file
    10. While (document.Read())
    12. Dim type = document.NodeType
    14. 'if node type was element
    15. If (type = XmlNodeType.Element) Then
    17. 'if the loop found a <FirstName> tag
    18. If (document.Name = "Name") Then
    20. ListBox3.Items.Add(document.ReadInnerXml.ToString())
    22. End If
    24. 'if the loop found a <LastName tag
    25. If (document.Name = "LastName") Then
    27. MsgBox(document.ReadInnerXml.ToString())
    29. End If
    31. End If
    33. End While
    35. Else
    37. MessageBox.Show("The filename you selected was not found.")
    38. End If
    39. End Sub
    41. Private Function ReadIndexDL() As String
    42. 'check if file myxml.xml is existing
    43. If (IO.File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) + "\Easy Bukkit\servers.xml")) Then
    45. 'create a new xmltextreader object
    46. 'this is the object that we will loop and will be used to read the xml file
    47. Dim document As XmlReader = New XmlTextReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) + "\Easy Bukkit\servers.xml")
    49. 'loop through the xml file
    50. While (document.Read())
    52. Dim type = document.NodeType
    54. 'if node type was element
    55. If (type = XmlNodeType.Element) Then
    57. 'if the loop found a <FirstName> tag
    58. If (document.Name = "Download") Then
    60. Return document.ReadInnerXml.ToString
    62. End If
    63. End If
    65. End While
    67. Else
    69. Return "OFF"
    70. End If
    72. Return "OFF"
    73. End Function


    EDIT:
    Spoiler anzeigen
    ​

    Visual Basic-Quellcode

    1. Private Function ReadIndexDL(ByVal item As String) As String
    2. 'check if file myxml.xml is existing
    3. If (IO.File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) + "\Easy Bukkit\servers.xml")) Then
    5. 'create a new xmltextreader object
    6. 'this is the object that we will loop and will be used to read the xml file
    7. Dim document As XmlReader = New XmlTextReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) + "\Easy Bukkit\servers.xml")
    9. 'loop through the xml file
    10. While (document.Read())
    12. Dim type = document.NodeType
    14. 'if node type was element
    15. If (type = XmlNodeType.Element) Then
    17. If document.Name = item Then
    18. If (document.Name = "Download") Then
    20. Return document.ReadInnerXml.ToString
    22. End If
    23. End If
    24. End If
    26. End While
    28. Else
    30. Return "OFF"
    31. End If
    33. Return "OFF"
    34. End Function​
    Gin auch nicht :(

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

    Danke für den Tipp!

    Eine Frage zu XDocuments: Wie kann ich eine Variable in die Abfrage packen?

    Visual Basic-Quellcode

    1. Dim XDoc As XDocument = XDocument.Load(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) + "\Easy Bukkit\servers.xml")
    2. Return XDoc.<Data>.<VARIABLE>.<Download>.ToString


    Hat sich Erledigt

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

Facebook
Telefonspende