[ patak_daca @ 07.05.2009. 08:57 ] @
XML izgleda ovako:

<?xml version="1.0" standalone="yes"?>
<Pocetak>
<Prvi>
<ID>1015</ID>
<Drugi>
<Ime>1015</Ime>
</Drugi>
</Prvi>
</Pocetak>


Potrebno je obrisati "Drugi" komplet ako je u "Prvom" ID=1015


Moj pokušaj, znam da neradi......


Dim xmldoc As New XmlDataDocument()
xmldoc.Load(otvori.FileName)

For Each node As XmlNode In xmldoc.SelectNodes("Pocetak/Prvi")


If node.ChildNodes.Item(7).InnerText = 1015 Then


For Each node1 As XmlNode In xmldoc.SelectNodesPocetak/Prvi/Drugi")

node1.ParentNode.RemoveChild(node1)


Next


End If

Next

Dim fsw As New FileStream("c:\test.xml", FileMode.CreateNew, FileAccess.Write)

xmldoc.Save(fsw)

Ako neko može da pomogne.....

Hvala unapred!

Patak
[ patak_daca @ 08.05.2009. 08:20 ] @
Rešio sam.....Ako nekog interesuje....

Dim xmldoc As New XmlDataDocument()
xmldoc.Load(otvori.FileName)

Dim list As XmlNodeList
list = xmldoc.SelectNodes("Pocetak/Prvi[ID=1015]/Drugi")


For Each node As XmlNode In list

node.ParentNode.RemoveChild(node)

Next

Dim fsw As New FileStream("c:\test.xml", FileMode.CreateNew, FileAccess.Write)

xmldoc.Save(fsw)