2 Probleme mit TreeView - XML auslesen

zauber777 · 22. März 2017, 21:17

Ich will für ein paar Kollegen ein kleines "Hilfsprogramm" schreiben.
Hier sollen bestimmte Programme geöffnet werden können.
Um den Pfade zu diesen Programmen zu aktualisieren oder weitere Programme hinzuzufügen, lade ich es per XML in einen TreeView. So weit so gut.
Nun habe ich jedoch 2 kleine Probleme, für welche ich noch keine Lösung gefunden habe.

1. in meinem Beispiel ist als erstes "Visual Studio" angegeben. Hier ist ein Leerzeichen im Namen. Wenn ich dies auch so in der XML angebe, wird die XML nicht geladen, weil er nicht mit dem Leerzeichen zwischen "Visual" und "Studio" klar kommt. Ohne Leerzeichen sieht es aber auch irgendwie blöd aus im Treeview. Wie kann ich also ein Leerzeichen in der XML speichern oder besser gesagt es so laden, dass das Leerzeichen dann da ist?

2. Ich würde gerne den Pfad und Startdatei (Bsp. "C:\Program Files (x86)\Microsoft Visual Studio 12.0\Common7\IDE\devenv.exe" von Visual Studio) mit in der XML speichern und diese dann über mein Programm ausführen beim drauf klicken. Jedoch weiss ich absolut nicht, wo ich den Pfad usw. in der XML dann speichern muss und wie ich aus dem "Select Case" (siehe Code) auf diesen Pfad in der XML dann zugreifen soll!?

die XML sieht wie folgt aus :

XML-Quellcode

<Nodes>
<Programme>
<Test>
<VisualStudio />
<Excel />
</Test>
<andere>
<VB.NET />
</andere>
</Programme>
<Test1>
<bla />
<blup />
</Test1>
</Nodes>

Mein Code :

VB.NET-Quellcode

Option Strict On
Option Explicit On
Imports System.Xml
Public Class XmlTreeView
Public Shared Sub LoadFromXml(ByVal FileName As String, ByVal TheTreeView As TreeView)
Dim xDoc As New XmlDocument
xDoc.Load(FileName)
FillTreeView(TheTreeView.Nodes, xDoc.DocumentElement)
End Sub
Private Shared Sub FillTreeView(ByVal CurrentNodes As TreeNodeCollection, _
ByVal xNode As XmlNode)
For Each xChild As XmlNode In xNode.ChildNodes
FillTreeView(CurrentNodes.Add(xChild.Name).Nodes, xChild)
Next
End Sub
Public Shared Sub SaveToXml(ByVal FileName As String, ByVal TheTreeView As TreeView)
Dim xDoc As New XmlDocument
xDoc.LoadXml("<Nodes></Nodes>")
SaveNodes(xDoc.DocumentElement, TheTreeView.Nodes)
xDoc.Save(FileName)
End Sub
Private Shared Sub SaveNodes(ByVal xNode As XmlNode, ByVal CurrentNodes As TreeNodeCollection)
For Each tn As TreeNode In CurrentNodes
Debug.WriteLine(tn.Text)
SaveNodes(xNode.AppendChild(xNode.OwnerDocument.CreateElement(tn.Text)), tn.Nodes)
Next
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles Button1.Click
'zum theoretischen speichern der XML - vielleicht später mal...
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles Button2.Click
XmlTreeView.SaveToXml("Nodes2.xml", Me.TreeView1)
End Sub
Sub treeView1_NodeMouseDoubleClick(ByVal sender As Object, ByVal e As TreeNodeMouseClickEventArgs) Handles TreeView1.NodeMouseDoubleClick
Select Case TreeView1.SelectedNode.Text
Case Is = "Visual Studio"
MsgBox("Visual Studio")
Case Is = "Excel"
MsgBox("Excel")
End Select
End Sub
Private Sub XmlTreeView_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.TreeView1.Nodes.Clear()
XmlTreeView.LoadFromXml("Nodes.xml", Me.TreeView1)
End Sub
End Class

Ich hoffe ihr könnt meine Problematik nachvollziehen und mir helfen

ErfinderDesRades · 22. März 2017, 23:35

die xml ist falsch strukturiert.
Um Nodes gleicher Art auszulesen müssen sie auch denselben TagNamen haben.
Unterschiede werden in den XmlAttributen niedergelegt.
Das löst dann auch das Problem mit dem Space - In Xml-Attributen ist solch nämlich zulässig.

vlt guuge auch Xml-Tutorial für tieferes Verständnis von Xml

zauber777 · 23. März 2017, 18:00

Das Xml-Tutorial hat mir jetzt nicht wirklich weiter geholfen. Vielleicht könnte mir jemand es bitte "leichter" erklären!?

RodFromGermany · 23. März 2017, 18:07

@zauber777 Wie soll denn der befüllte TreeView hinterher aussehen?
Ich hab hier mal ne Minimalversion gemacht:

VB.NET-Quellcode

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.TreeView1.Nodes.Clear()
Using reader = XmlReader.Create("c:\Temp\xxx.xml")
While reader.Read()
Me.TreeView1.Nodes.Add(reader.Name)
End While
End Using
End Sub

zauber777 · 23. März 2017, 18:52

Aussehen soll er in etwa wie folgendes Bild :

Die Namen der Programme können auch "Leerzeichen" wie zum Beispiel bei "Visual Studio" (Hier aber in meinen Code nur ohne "Leerzeichen" möglich).

ErfinderDesRades · 23. März 2017, 22:31

wie gesagt: Dein Xml-Code widerspricht allen Standards, und ist grad für den Aufbau einer Baum-Struktur ganz ungeeignet.
Dein Kardinalfehler ist, dass du die Auszeichnungs-Tags als Daten missbrauchst - dafür sind sie nicht vorgesehen.
Xml ist eine sog. "Auszeichnungssprache", die Tags sind "Auszeichnungen" der Daten - sie sind aber selbst keine Daten.

Aber das steht auch im Tut, und wie verarbeitbares Xml aussehen kann, ja auch, inklusive downloadables Beispiel.

Einfacher als im Tut kann mans glaub kaum erklären - ich zumindest nicht, sonst hätte ichs ja gemacht.
Erklärungen sind wohl prinzipiiell nicht einfacher als das Erklärte (sollten sie zumindest

).

Nichtsdestotrotz musst du das verstehen, sonst wird dat nix.

Ein gangbarer Weg wäre allerdings, nachzufragen bei Punkten, die du nicht verstehst.

RodFromGermany · 24. März 2017, 06:39

@zauber777 MAch es vielleicht mal anders herum.
Nimm Deinen designten TreeView und versuche, ihn in eine XML-Datei zu schreiben. Parallel dazu machst Du die Einleseroutine.

zauber777 · 24. März 2017, 21:00

@RoadFromGermany ich habe es schon versucht in eine XML-Datei zu speichern. Jedoch kommt genau dann schon der erster Fehler, dass Leerzeichen dabei sind...null
"Das ' '-Zeichen, hexidezimaler Wert 0x20, darf nicht in einem Namen enthalten sein."

Zum Auslesen/Speichern habe ich folgenden Code genommen :

VB.NET-Quellcode

Private Shared Sub FillTreeView(ByVal CurrentNodes As TreeNodeCollection, _
ByVal xNode As XmlNode)
For Each xChild As XmlNode In xNode.ChildNodes
FillTreeView(CurrentNodes.Add(xChild.Name).Nodes, xChild)
Next
End Sub
' TreeView-Inhalt (Nodes-Objekte) als XML-Datei speichern
Public Shared Sub SaveToXml(ByVal FileName As String, ByVal TheTreeView As TreeView)
Dim xDoc As New XmlDocument
xDoc.LoadXml("<Nodes></Nodes>")
SaveNodes(xDoc.DocumentElement, TheTreeView.Nodes)
xDoc.Save(FileName)
End Sub
Private Shared Sub SaveNodes(ByVal xNode As XmlNode, ByVal CurrentNodes As TreeNodeCollection)
For Each tn As TreeNode In CurrentNodes
Debug.WriteLine(tn.Text)
SaveNodes(xNode.AppendChild(xNode.OwnerDocument.CreateElement(tn.Text)), tn.Nodes)
Next
End Sub

zauber777 · 25. März 2017, 12:08

Bin nun ein ganzes Stück weiter...
Nun hänge ich jedoch noch an meinem 2. Problem: Wie kann ich das Attribut in welchen ich den Pfad und Datei angebe in der XML im TreeView als Doppelklick nutzen?
Normalerweise müsste es ja im Bereich "'Sub treeView1_NodeMouseDoubleClick..." bei "Case Is = " sein. Wie ich dem TreeView aber sagen soll, dass es dann den zugehörigen Attribut aus der XML nehmen und ausführen soll, versteh ich leider absolut nicht...

XML-Quellcode

<?xml version="1.0" encoding="utf-8" ?>
<Nodes>
<Programme>
<Test>
<Programm Pfad="C:\Program Files (x86)\Microsoft Visual Studio 12.0\Common7\IDE\devenv.exe">Visual Studio</Programm>
<Programm Pfad="C:\Program Files\Microsoft Office 15\root\office15\EXCEL.EXE">Excel</Programm>
</Test>
<andere>
<Programm Pfad="C:\Program Files\Notepad++\notepad++.exe">Notepad ++</Programm>
</andere>
</Programme>
<Test1>
<Programm>bla</Programm>
<Programm>blup</Programm>
</Test1>
</Nodes>

VB.NET-Quellcode

Option Strict On
Option Explicit On
Imports System.Xml
Public Class XmlTreeView
Public Shared Sub LoadFromXml(ByVal FileName As String, ByVal TheTreeView As TreeView)
Dim xDoc As New XmlDocument
xDoc.Load(FileName)
FillTreeView(TheTreeView.Nodes, xDoc.DocumentElement)
End Sub
Private Shared Sub FillTreeView(ByVal CurrentNodes As TreeNodeCollection, ByVal xNode As XmlNode)
For Each xChild As XmlNode In xNode.ChildNodes
If xChild.Name <> "Programm" Then
FillTreeView(CurrentNodes.Add(xChild.Name).Nodes, xChild)
Else
CurrentNodes.Add(xChild.InnerText)
End If
Next
End Sub
Public Shared Sub SaveToXml(ByVal FileName As String, ByVal TheTreeView As TreeView)
Dim xDoc As New XmlDocument
xDoc.LoadXml("<Nodes></Nodes>")
SaveNodes(xDoc.DocumentElement, TheTreeView.Nodes)
xDoc.Save(FileName)
End Sub
Private Shared Sub SaveNodes(ByVal xNode As XmlNode, ByVal CurrentNodes As TreeNodeCollection)
For Each tn As TreeNode In CurrentNodes
Debug.WriteLine(tn.Text)
SaveNodes(xNode.AppendChild(xNode.OwnerDocument.CreateElement(tn.Text)), tn.Nodes)
Next
End Sub
'Sub treeView1_NodeMouseDoubleClick(ByVal sender As Object, ByVal e As TreeNodeMouseClickEventArgs) Handles TreeView1.NodeMouseDoubleClick
' Select Case TreeView1.SelectedNode.Text
' Case Is = "Visual Studio"
' Process.Start("C:\Program Files (x86)\Microsoft Visual Studio 12.0\Common7\IDE\devenv.exe")
' Case Is = "Excel"
' Process.Start("C:\Program Files\Microsoft Office 15\root\office15\EXCEL.EXE")
'End Select
'End Sub

ErfinderDesRades · 25. März 2017, 12:22

guck dir mal die Treenode.FullPath - Property an. Das ist ein Pfad, mit dem du die Auswahl der XmlElemente schoma auf wenige <Programm>-XmlElemente einschränken kannst.

2 Probleme mit TreeView - XML auslesen

2 Probleme mit TreeView - XML auslesen

XML-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

XML-Quellcode

VB.NET-Quellcode

Benutzer online 1

Ähnliche Themen

3 Benutzer haben hier geschrieben