Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

VB.Net i brisanje delova XML -a

[es] :: .NET :: .NET Desktop razvoj :: VB.Net i brisanje delova XML -a

[ Pregleda: 1856 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

patak_daca

Član broj: 72199
Poruke: 418
93.86.82.*



+1 Profil

icon VB.Net i brisanje delova XML -a07.05.2009. u 08:57 - pre 182 meseci
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
 
Odgovor na temu

patak_daca

Član broj: 72199
Poruke: 418
93.86.82.*



+1 Profil

icon Re: VB.Net i brisanje delova XML -a08.05.2009. u 08:20 - pre 182 meseci
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)
 
Odgovor na temu

[es] :: .NET :: .NET Desktop razvoj :: VB.Net i brisanje delova XML -a

[ Pregleda: 1856 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.