xml Teilnehmer Name in Nr ändern beim einlesen in VB.net

  • VB.NET

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

    xml Teilnehmer Name in Nr ändern beim einlesen in VB.net

    Hallo zusammen,

    ich muss für eine Arbeit einen bestehenden Quellcode so ändern, dass in einem Treeview aus einer eingelesenen XML Datei für Kurse und Teilnehmer statt dem Namen im Haptview und Unterview eine entsprechende Nummer angezeigt wird. Wo die Änderung stattfinden soll weiss ich, aber irgendwie kann ich die Änderung nicht so vornehmen, dass mir die Nummer statt dem Namen angezeigt wird.

    Kann mir hier vielleicht jemand weiterhelfen, ich stehe etwas unter Zeitdruck und wäre für jede Hilfe dankbar - vielleicht mit einer ganz kurzen erklärung warum

    Hier schon mal der Quellcode :

    VB.NET-Quellcode

    1. Dim tvwAusgewählt As String
    2. Dim tvwSchlüssel As Integer
    4. ''' <summary>
    5. ''' Füllt das TreeView mit den Knoten des XML-Documents
    6. ''' </summary>
    7. ''' <remarks>
    8. ''' Numeriert die Elemente über ihre Name-Eigenschaft.
    9. ''' Ruft zum weiteren Einlesen ebeneLesen auf
    10. ''' </remarks>
    11. Sub tvwFüllen()
    12. txtAusgabe.Text = ""
    13. tvw.BeginUpdate()
    14. tvw.Nodes.Clear()
    16. Dim xKnotenListe As XmlNodeList = xmlDok.SelectNodes("*")
    17. Dim tKnoten As TreeNode = tvw.Nodes.Add("")
    19. tvwSchlüssel = 0
    20. tKnoten.Name = tvwSchlüssel.ToString("00")
    21. For Each xn As XmlNode In xKnotenListe
    22. ebeneLesen(xn, tKnoten)
    23. Next
    25. tvw.EndUpdate()
    26. tvw.Select()
    27. End Sub
    29. ''' <summary>
    30. ''' Rekursives Einlesen von xmlNode zu TreeNode
    31. ''' </summary>
    32. ''' <param name="xmlKnoten">
    33. ''' Knoten des Xml-Dokuments
    34. ''' </param>
    35. ''' <param name="treeKnoten">
    36. ''' Enthält als Tag wahlweise die Eigenschaft
    37. ''' OuterXml, InnerXml, InnerText, Attributes oder
    38. ''' Name und Text des treeknoten.</param>
    39. ''' <remarks></remarks>
    40. Sub ebeneLesen(ByVal xmlKnoten As XmlNode, ByVal treeKnoten As TreeNode)
    42. tvwSchlüssel += 1
    43. treeKnoten.Text = xmlKnoten.Name
    45. Select Case True
    46. Case rbOuterXml.Checked
    47. treeKnoten.Tag = "OuterXml:" & vbCrLf & xmlKnoten.OuterXml
    48. Case rbInnerXml.Checked
    49. treeKnoten.Tag = "InnerXml: " & vbCrLf & xmlKnoten.InnerXml
    50. Case rbInnerText.Checked
    51. treeKnoten.Tag = "InnerText: " & vbCrLf & xmlKnoten.InnerText
    52. Case rbAttributes.Checked
    53. treeKnoten.Tag = "Attribute: " & vbCrLf
    54. treeKnoten.Tag &= "Name" & vbTab & vbTab & "InnerText" & vbCrLf
    55. For Each xmlAtt As XmlAttribute In xmlKnoten.Attributes
    56. Dim s As String = xmlAtt.Name & vbTab
    57. If s.Length < Strings.Len("Name" & vbTab & vbTab) Then
    58. s &= vbTab
    59. End If
    60. treeKnoten.Tag &= s & xmlAtt.InnerText & vbCrLf
    61. Next
    62. Case rbTreeView.Checked
    63. treeKnoten.Tag = "Name:" & vbTab & vbTab & "Text" & vbCrLf _
    64. & treeKnoten.Name & vbTab & vbTab & treeKnoten.Text
    65. Case Else
    66. treeKnoten.Tag = "InnerText: " & vbCrLf & xmlKnoten.InnerText
    67. End Select
    69. Dim tn As TreeNode
    70. Dim xn As XmlNode
    71. For Each xn In xmlKnoten.ChildNodes
    72. If xn.HasChildNodes Then
    73. tn = treeKnoten.Nodes.Add(tvwSchlüssel.ToString("00"), xn.Name)
    74. ebeneLesen(xn, tn)
    75. End If
    76. Next
    77. End Sub


    Noch ein Auszug aus der XML Liste :
    <?xml version="1.0" encoding="utf-8"?>
    <Kurse xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
    xmlns:xsd="http://www.w3.org/2001/XMLSchema">
    <Kurs Nr="101">
    <Bezeichnung>Word Grundlagen</Bezeichnung>
    <Teilnehmerliste>
    <Teilnehmer Nr="1001">
    <Name>Maximilian</Name>
    <Punkte>90</Punkte>
    </Teilnehmer>
    <Teilnehmer Nr="1002">
    <Name>Nora</Name>
    <Punkte>99</Punkte>
    </Teilnehmer>
    <Teilnehmer Nr="1003">
    <Name>Oskar</Name>
    <Punkte>80</Punkte>
    </Teilnehmer>
    </Teilnehmerliste>
    </Kurs>

    Robsi schrieb:

    dass in einem Treeview aus einer eingelesenen XML Datei für Kurse und Teilnehmer statt dem Namen im Haptview und Unterview eine entsprechende Nummer angezeigt wird.

    welche Nummer soll angezeigt werden?

    Soll man an den Daten auch was rum-ändern und rückspeichern können?

    Es sollen die <Kurs Nr="101> und <Teilnehmer Nr="1002"> Nummern angezeigt werden, die Liste ist so vorgegeben und für jeden Kurs soll die Kurs Nr bzw. für jeden Teilnehmer die Nr angezeigt werden.
    Änderungen sind eigentlich nicht gefordert.

    also dashier ist eiglich schon zuviel deine hausaufgabe gemacht:

    VB.NET-Quellcode

    1. Imports System.IO
    2. Imports System.Xml
    4. Public Class frmTV2Xml
    6. Private _Data As New FileInfo("..\..\Kursliste.xml")
    8. Private Sub fillTV(ByVal nodes As TreeNodeCollection, ByVal Xels As IEnumerable(Of XElement))
    9. For Each xel In Xels
    10. Dim xattr = xel.Attribute("Nr")
    11. Dim s = ""
    12. If xattr IsNot Nothing Then
    13. s = xattr.Value
    14. ElseIf xel.HasElements Then
    15. s = xel.Name.LocalName
    16. Else
    17. s = xel.Value
    18. End If
    19. Dim nd = nodes.Add(s)
    20. fillTV(nd.Nodes, xel.Elements)
    21. Next
    22. End Sub
    24. Private Sub frmTV2Xml_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
    25. Dim XDoc = XDocument.Load(_Data.FullName)
    26. TreeView1.BeginUpdate()
    27. fillTV(TreeView1.Nodes, XDoc.Root.Elements)
    28. TreeView1.EndUpdate()
    29. TreeView1.ExpandAll()
    30. End Sub
    32. End Class
    Dateien

    • TV2Xml.zip

      (13,06 kB, 181 mal heruntergeladen, zuletzt: )

Facebook