Why isn't this removing the XML node properly?

spitteriopors

New Member
My XML code is like this:\[code\]<?xml version="1.0" encoding="utf-8"?><Tabel> <Member> <Naam>Cruciatum</Naam> <Kills>1000</Kills> <Deaths>10</Deaths> <KD>100</KD> </Member> <Member> <Naam>Ghostbullet93</Naam> <Kills>10</Kills> <Deaths>1</Deaths> <KD>10</KD> </Member> <Member> <Naam>test</Naam> <Kills>123</Kills> <Deaths>11</Deaths> <KD>11</KD> </Member></Tabel>\[/code\]After processing, the XML should end up looking like this:\[code\]<?xml version="1.0" encoding="utf-8"?><Tabel> <Member> <Naam>Cruciatum</Naam> <Kills>1000</Kills> <Deaths>10</Deaths> <KD>100</KD> </Member> <Member> <Naam>Ghostbullet93</Naam> <Kills>10</Kills> <Deaths>1</Deaths> <KD>10</KD> </Member></Tabel>\[/code\]After a bit of searching I came up with this code.Appearantly it worked for others, yet it just won't work for me at all.\[code\]Private Sub btnDel_Click(sender As System.Object, e As System.EventArgs) Handles btnDel.Click playername = lstmembers.SelectedItem.ToString If MsgBox("Ben je zeker dat je " & playername & " wil verwijderen?", MsgBoxStyle.YesNo, "Confirmatie") = MsgBoxResult.Yes Then Dim xmldoc As New XmlDocument() xmldoc.load("C:\members.xml") Dim node As XmlNode = xmldoc.SelectSingleNode("Root/Naam[. = '" & playername & "']") If node IsNot Nothing Then node.ParentNode.RemoveChild(node) xmldoc.Save("C:\members.xml") End If 'reload list loadfile() End If End Sub\[/code\]I don't get any exceptions, so the code must be right for something, just not for what I need appearantly...I hope you can see where I made my mistake.
 
Back
Top