Hallo Zusammen,
ich bräuchte gerade etwas Hilfe, da ich zur Zeit total auf dem Schlauch stehe.
Ich habe für einen kleinen Streamplayer eine XML-Datei gebastelt:
Da ich in meinem Tool eine Möglichkeit der Verwaltung haben will habe ich schon eine Funktion fürs Ändern geschrieben, da ich mich nun an die Löschen-Funktion machen wollte habe ich soweit etwas gebastelt:
Nun besteht mein Problem, das nach dem Löschen noch die äußeren Tags (<stream></stream>) überbleiben, ist ja auch soweit Richtig. Nur ich habe gerade keine Idee wie ich diese leeren Tags wieder weg bekomme.
Für einen Schubs in die richtige Richtung wäre ich erfreut
Gruß,
homekiller
ich bräuchte gerade etwas Hilfe, da ich zur Zeit total auf dem Schlauch stehe.
Ich habe für einen kleinen Streamplayer eine XML-Datei gebastelt:
XML-Quellcode
- <?xml version="1.0" encoding="utf-8"?>
- <streams>
- <stream>
- <name>Technobase.fm</name>
- <url>http://listen.technobase.fm/dsl.asx</url>
- </stream>
- <stream>
- <name>Housetime.fm</name>
- <url>http://listen.housetime.fm/dsl.asx</url>
- </stream>
- <stream>
- <name>Hardbase.fm</name>
- <url>http://listen.hardbase.fm/dsl.asx</url>
- </stream>
- <stream>
- <name>Coretime.fm</name>
- <url>http://listen.coretime.fm/dsl.asx</url>
- </stream>
- <stream>
- </stream>
- </streams>
Da ich in meinem Tool eine Möglichkeit der Verwaltung haben will habe ich schon eine Funktion fürs Ändern geschrieben, da ich mich nun an die Löschen-Funktion machen wollte habe ich soweit etwas gebastelt:
VB.NET-Quellcode
- 'Erstellen des XMLDocument Objektes und laden einer XML-Datei
- Dim xmlDoc As New Xml.XmlDocument
- xmlDoc.Load(XmlDateiPfad)
- 'Erstellen einer Liste mit allen Elementen die Stream heißen
- Dim Nodelist As Xml.XmlNodeList = xmlDoc.GetElementsByTagName("stream")
- 'Durchlaufe alle Punkte die in der Liste stehen
- For Each Node In Nodelist
- 'Erstellen der Ausgabevariale und zuweisen des jeweiligen Punktes aus der Liste
- Dim Ausgabe As Xml.XmlNode
- Ausgabe = Node
- If (Ausgabe.Item("name").InnerText = deleteName) Then
- Ausgabe.RemoveAll()
- End If
- Next
- xmlDoc.Save(XmlDateiPfad)
Nun besteht mein Problem, das nach dem Löschen noch die äußeren Tags (<stream></stream>) überbleiben, ist ja auch soweit Richtig. Nur ich habe gerade keine Idee wie ich diese leeren Tags wieder weg bekomme.
Für einen Schubs in die richtige Richtung wäre ich erfreut
Gruß,
homekiller
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „homekiller“ ()