Manipulation fichiers XML

Bonjour,
je demande votre aide pour manipuler et traiter un fichier XML pour en faire plusieurs
mon fichier est fait comme suit :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

<balise1 id = "1"> <b1>Toto</b1> <b2>Alain</b2> <b3>17/03/1965</b3> <b4> <date>01/01/2014</date> <date2>01/01/2015</date2> </b4> </balise1> <balise1 id = "2"> <b1>Trucmuch</b1> <b2>Pierre</b2> <b3>21/12/1912</b3> <b4> <date>01/11/2013</date> <date2>01/11/2014</date2> </b4> </balise1>

---

Mon but est de pouvoir faire un fichier par sous ensemble <balise1>

j'utilise

Code:

---

1 2 3 4 5 6 7 8

Dim LO_XML_IN As New XmlDataDocument Dim LO_NoeudBs As XmlNodeList Dim LO_NoeudB1 As XmlNode LO_XML_IN.RemoveAll() LO_XML_IN.Load(FichierXML) LO_NoeudBs = LO_XML_IN.DocumentElement.GetElementsByTagName("balise1") For Each LO_NoeudB1 In LO_NoeudBs

---

a partir de là, je ne trouve pas les instructions pour récuperer le sous ensemble de balises de <balise1> à </balise1>

merci de votre aide

Salut,

je suppose qu'il te suffit, dans ta boucle, d'instancier un nouveau XmlDocument, de lui ajouter le XmlNode que tu viens de trouver, puis de le sauvegarder. Pour plus d'info : la fiche MSDN de XmlDocument

PS : Je connais pas ton contexte de dev mais XmlDataDocument semble être obsolète.

Citation:

---

Envoyé par jopopmk

Salut,

je suppose qu'il te suffit, dans ta boucle, d'instancier un nouveau XmlDocument, de lui ajouter le XmlNode que tu viens de trouver, puis de le sauvegarder. Pour plus d'info : la fiche MSDN de XmlDocument

PS : Je connais pas ton contexte de dev mais XmlDataDocument semble être obsolète.

---

Merci pour la réponse mais j'avoue ne pas y arriver :(:(:(
Je développe sur SSIS Script Vb .net

Au lieu d'utiliser XmlDocument, tu peux utiliser XDocument :

Code:

---

1 2 3

Dim xdoc = XDocument.Parse(xml)   Dim balises = xdoc.Root.Elements("balise1")

---

Sachant que la variable xml est censée contenir ton XML sous forme de string, mais tu peux aussi utiliser la méthode Load pour charger directement un fichier XML.
Dans la variable balises on a récupéré toutes les balises qui s'appellent balise1.

Ensuite pour récupérer les enfants :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

For Each balise As XElement In balises Dim b1 = balise.Element("b1") Dim b2 = balise.Element("b2") Dim b3 = balise.Element("b3") Dim b4 = balise.Element("b4")   If b4.Descendants().Count() > 1 Then Dim [date] = b4.Element("date") Dim date2 = b4.Element("date2") End If Next

---