私のXMLコードは次のようなものです:
<?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>
処理後、XML は次のようになります。
<?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>
少し検索した後、このコードを思いつきました。
どうやらそれは他の人にとってはうまくいったようですが、私にとってはまったくうまくいきません。
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
私は例外を取得しないので、コードは明らかに必要なものではなく、何かに適している必要があります...
私がどこで間違いを犯したかおわかりいただけると思います。