Mega Code Archive
XNode ReplaceWith replaces this node with the specified content
<![CDATA[
Imports System
Imports System.Xml
Imports System.Xml.Schema
Class MainClass
Shared Sub Main()
Dim srcTree As XElement = _
<Root>
<Element1>1</Element1>
<Element2>2</Element2>
<Element3>3</Element3>
<Element4>4</Element4>
<Element5>5</Element5>
</Root>
Dim xmlTree As XElement = _
<Root>
<Child1>1</Child1>
<Child2>2</Child2>
<Child3>3</Child3>
<Child4>4</Child4>
<Child5>5</Child5>
</Root>
Dim child3 As XElement = xmlTree.<Child3>(0)
child3.ReplaceWith( _
From el In srcTree.Elements() _
Where (CInt(el) > 3) _
Select el)
Console.WriteLine(xmlTree)
End Sub
End Class
]]>