[VB.NET 2008] XML Deleting Element

[dcrew]

Hello, Here is my current XML!

<?xml version="1.0" encoding="utf-8"?>
<forums>
  <forum name="TestForum1" url="http://www.testforum1.com/" />
  <forum name="TestForum2" url="http://www.testforum1.com/" />
  <forum name="TestForum3" url="http://www.testforum1.com/" />
  <forum name="TestForum4" url="http://www.testforum1.com/" />
  <forum name="TestForum5" url="http://www.testforum1.com/" />
  <forum name="TestForum6" url="http://www.testforum1.com/" />
  <forum name="TestForum7" url="http://www.testforum1.com/" />
</forums>

How would I remove TestForum4? Like remove this line.?

<forum name="TestForum4" url="http://www.testforum1.com/" />

dcrew Reviewed by dcrew on 13th Aug 2010. [VB.NET 2008] XML Deleting Element Hello, Here is my current XML! <?xml version="1.0" encoding="utf-8"?> <forums> <forum name="TestForum1" url="http://www.testforum1.com/" /> <forum name="TestForum2" url="http://www.testforum1.com/" /> <forum name="TestForum3" url="http://www.testforum1.com/" /> <forum name="TestForum4" url="http://www.testforum1.com/" /> <forum name="TestForum5" url="http://www.testforum1.com/" /> <forum name="TestForum6" url="http://www.testforum1.com/" /> Rating: 5

[litewarez]

have you taken a look at System.Data.Linq ?

http://msdn.microsoft.com/en-us/library/bb763068.aspx

[dcrew]

Thanks I've through some bits and bobs can't seem to find how to delete an xml element.

[dcrew]

I found an article and came up with a bit of code.

    Public Sub XmlRemove(ByVal ForumName As String)
        Dim myDoc As New XmlDocument
        myDoc.Load(Application.StartupPath & "\Forums\forums.xml")
        Dim forumToRemove As XmlNode
        forumToRemove = myDoc.SelectSingleNode("/forums/forum[name = '" & ForumName & "']")
        MsgBox(forumToRemove)
        'If forumToRemove IsNot Nothing Then
        forumToRemove.ParentNode.RemoveAll()
        myDoc.Save(Application.StartupPath & "\Forums\forums-test.xml")
        'End If
    End Sub

    Private Sub ButtonX5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX5.Click
        'Try
        Dim ForumName As String = ComboBoxEx2.Text
        XmlRemove(ForumName)

but it doesn't work, the xmlnode is nothing.

EDIT:
I've found a way:

    Public Sub XmlRemove(ByVal ForumName As String)
        Dim myDoc As New XmlDocument
        myDoc.Load(Application.StartupPath & "\Forums\forums.xml")
        Dim forums As XmlElement = myDoc.DocumentElement
        For Each forum In forums.SelectNodes("forum")
            forums.RemoveChild(forum)
            MsgBox(forum.ToString)
        Next
        myDoc.Save(Application.StartupPath & "\Forums\forums-test.xml")
    End Sub

But that deletes all of them and I just want to delete this line:

<forum name="TestForum4" url="http://www.testforum4.com/" />

from

<?xml version="1.0" encoding="utf-8"?>
<forums>
  <forum name="TestForum1" url="http://www.testforum1.com/" />
  <forum name="TestForum2" url="http://www.testforum2.com/" />
  <forum name="TestForum3" url="http://www.testforum3.com/" />
  <forum name="TestForum4" url="http://www.testforum4.com/" />
  <forum name="TestForum5" url="http://www.testforum5.com/" />
  <forum name="TestForum6" url="http://www.testforum6.com/" />
  <forum name="TestForum7" url="http://www.testforum7.com/" />
</forums>

[litewarez]

do an if statament

IF forum.GetAttribute("name") == "TestForum4"
forums.RemoveChild(forum)
End If

[dcrew]

do an if statament

IF forum.GetAttribute("name") == "TestForum4"
forums.RemoveChild(forum)
End If

I already did that by myself, This got solved the other day.