Insertion fichier xml

Bonsoir,

j'ai un fichier XML de ce type:

Code:

---

1 2 3 4 5 6 7 8 9

... <listof> <project name="Projet1" type="Externe"> <source name="Nom1" value="Valeur1" created="28/04/09"> <source name="Nom2" value="Valeur2" created="28/05/09"> <source name="Nom3" value="Valeur3" created="20/04/09"> </project> </listof>

---

Je souhaiterais réussir à faire 2 choses:
- Insérer une nouvelle ligne du type

Code:

---

<source name="Nom4" value="Valeur4" created="20/04/09">

---

après la ligne name="Nom3".

- Mettre à jour les valeurs d'une ligne existante. Exemple: remplacer la valeur "Valeur2" par "NouvelleValeur2".

Auriez-vous des exemples de code permettant de manipuler, créer et mettre à jour ces attributs ? Quelle est la meilleure façon de procéder ?

Merci pour votre aide.

Pour toute modification d'un XML, regarde du côté de la classe XmlDocument :)

Bonsoir,

En fait oui je me sers déjà de la classe XmlDocument pour supprimer une ligne par exemple ou lire le contenu du fichier XML.
Mais je ne trouve pas d'exemple pour mettre à jour et insérer.
Merci.

Pour modifier une valeur d'un attribut il suffit d'accéder à cet attribut et de modifier sa valeur. Pour accéder à un élément tu peux utiliser des requêtes XPath ou bien directement via le XmlDocument si la structure est relativement simple.

Pour insérer une ligne il suffit de créer un nouvel élément (voir les différentes méthodes Create... de la classe XmlDocument), d'avoir une référence par rapport à laquelle on va ajouter l'élément et de l'ajouter (cf. méthodes InsertBefore, InsertAfter, AppendChild, PrependChild de la classe XmlNode par exemple)

Un petit coup de Google et tu trouveras tout ce qu'il te faut :)

pour ajouter une ligne du type source, il faut faire un truc dans ce genre

Code:

---

1 2 3

Dim noeudParent As XmlNode = monDocument.GetElementsByTagName("project").Item(0) Dim noeudEnfant As XmlElement = Rapport.CreateElement("source") noeudParent .PrependChild(noeudEnfant )

---

bien sur en gérant le numéro d'item
Et avant de faire le prepend, initialiser les valeurs des attributs

Bonjour,

merci pour vos réponses.

la fonction suivante:

Code:

---

1 2 3 4

Dim noeudParent As XmlNode = monDocument.GetElementsByTagName("project").Item(0) Dim noeudEnfant As XmlElement = Rapport.CreateElement("source") noeudParent .PrependChild(noeudEnfant )

---

fonctionne très bien.

Par contre, ça créé une balise du type suivant:

Code:

---

<source Name="Nom1" />

---

je souhaiterais fermer volontairement la ligne de la façon suivante:

Code:

---

<source Name="Nom1"></source>

---

Quelle méthode puis-je utiliser pour faire cela ?

Merci

Essaye en définissant le InnerText de l'élément à String.Empty

Code:

---

1 2	Dim noeudEnfant As XmlElement = Rapport.CreateElement("source") noeudEnfant.InnerText = String.Empty

---

Mais pourquoi veux-tu une balise de fin "explicite" ? Car cela ne change rien dans l'interprétation du XML.

Super ça marche très bien ! Merci

Voici l'ensemble du code (si ça peut servir à d'autre)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim fichier as String = "file.xml" Dim XMLDom As New XmlDocument() XMLDom.Load(fichier) Dim newXMLNode As XmlNode = XMLDom.SelectSingleNode("XpathQuery") Dim newElem As XmlElement = XMLDom.CreateElement("source") newElem.SetAttribute("name", "valeur1") newElem.SetAttribute("value", "valeur2") newElem.SetAttribute("created", "29/04/09") newElem.InnerText = String.Empty newXMLNode.AppendChild(newElem) XMLDom.Save(fichier)

---

Je souhaiterais maintenant faire une mise à jour d'un attribut existant.

Je suppose que le début de la fontion est relativement similaire (Xpath).
Mais quelle méthode puis-je utiliser pour identifier et mettre à jour les valeurs des attributs ?

Merci !

Pour identifier les attributs à mettre à jour, ça c'est toi qui devrais le savoir en fonction des critères qui te permettront de les rechercher. Ensuite tu peux utiliser la méthode SelectSingleNode avec une requête XPath pour récupérer l'attribut à modifier.

Tu vas ainsi récupérer un objet de type XmlNode correspond à ton attribut (XmlAttribut dérivant de XmlNode). Il suffit ensuite de faire

Code:

---

monAttribut.Value = maValeur

---

Impeccable !

Merci beaucoup pour votre aide !

Résolu ;-)