Modification de fichier XML

**jujulips** · 27/04/2011, 18h40

Voilà j'ai un fichier XML de ce type :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
<CATALOG>
 
	<CD>
 
		<TITLE>Empire Burlesque</TITLE>
 
		<ARTIST>Bob Dylan</ARTIST>
 
		<COUNTRY>USA</COUNTRY>
 
		<COMPANY>Columbia</COMPANY>
 
		<PRICE>10.90</PRICE>
 
		<YEAR>1985</YEAR>
 
	</CD>
 
	<CD>
 
		<TITLE>Hide your heart</TITLE>
 
		<ARTIST>Bonnie Tyler</ARTIST>
 
		<COUNTRY>UK</COUNTRY>
 
		<COMPANY>CBS Records</COMPANY>
 
		<PRICE>9.90</PRICE>
 
		<YEAR>1988</YEAR>
 
	</CD>
 
	<CD>
 
		<TITLE>Greatest Hits</TITLE>
 
		<ARTIST>Dolly Parton</ARTIST>
 
		<COUNTRY>USA</COUNTRY>
 
		<COMPANY>RCA</COMPANY>
 
		<PRICE>9.90</PRICE>
 
		<YEAR>1982</YEAR>
 
	</CD>
</CATALOG>

J'aimerai creer une fonction en VB.NET qui pour chaque CD remplace le champs Company par la valeur des balises PRICE correspondante.

Est ce possible de modifier le fichier XML en direct ou doit on le parser puis le réecrire ?

Toute piste est la bienvenue !

Merci ! =)

**WOLO Laurent** · 28/04/2011, 10h17

Tu peux déjà utiliser la methode

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dataset.ReadXml(strFile)

pour charger le fichier dans un dataset. Dès lors son parcours devient plus facile.
Bonne chance.

**StormimOn** · 28/04/2011, 11h23

A voir la version du framework que tu peux utiliser, mais si tu as accès à Linq To Xml autant s'en servir, ce sera aussi simple. Par contre il faut connaître Linq, les types anonymes... mais ce n'est pas insurmontable

Sinon on peut aussi utiliser les classes standards pour manipuler du XML (XmlDocument). Pas besoin du DataSet en tout cas, je ne m'en suis jamais servi et encore moins pour du XML.

Bref, retour à Linq to Xml. Voici comment charger un fichier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim doc As XDocument = XDocument.Load("monFichierXml.xml")

Et pour enregistrer ensuite

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

doc.Save("nouveauFichier.xml")

Par contre cela va ajouter par défaut la déclaration XML au début. Mais il est possible de s'en débarrasser si c'est nécessaire, en passant par un XmlWriter et XmlWriterSettings pour la sauvegarde.

Après il reste juste à parcourir et modifier les noeuds au besoin. Par exemple la requête suivante permet de récupérer les noeuds CD du XML.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim result = From n In doc.Descendants("CD")
             Select n;

Dans ton cas, ce qui nous interesse ce sont les noeuds COMPANY et PRICE qui sont enfants du noeud CD. On peut donc faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim result = From n In doc.Descendants("CD")
             Select New With {.Company = n.Element("COMPANY"), 
                              .Price = n.Element("PRICE")}

On crée ici un objet anonyme qui contiendra le noeud COMPANY et le noeud PRICE.
On indique également les noms des propriétés pour accéder à ces informations (Company et Price).
On n'indique pas le type de l'objet result (Dim sans As), il sera déterminé automatiquement.

Au final on va obtenir un IEnumerable d'objets anonymes. Chacun représentant le couple COMPANY/PRICE d'un noeud CD. Il suffit maintenant des les parcourir et de mettre la valeur du noeud PRICE dans COMPANY

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For Each cd In result
    cd.Company.Value = cd.Price.Value;
Next

Par contre l'option Infer dont être sur ON sinon ça ne fonctionne pas. On a pas ce genre de souci en C#, encore une bonne raison de faire du C# et pas du VB.Net

Après tu mets ça dans le bon ordre, tu adaptes au besoin, et tu as tout bon ^^

**jujulips** · 28/04/2011, 17h51

Wow super ca marche du tonnerre ! Merci beaucoup pour le coup de pouce, j'ai enfin pu réaliser une bonne partie de la modif' du xml

Encore merci !

**WOLO Laurent** · 29/04/2011, 09h20

Mes félicitations StormimOn.

**jujulips** · 04/05/2011, 16h36

Envoyé par StormimOn

A voir la version du framework que tu peux utiliser, mais si tu as accès à Linq To Xml autant s'en servir, ce sera aussi simple. Par contre il faut connaître Linq, les types anonymes... mais ce n'est pas insurmontable

Sinon on peut aussi utiliser les classes standards pour manipuler du XML (XmlDocument). Pas besoin du DataSet en tout cas, je ne m'en suis jamais servi et encore moins pour du XML.

Bref, retour à Linq to Xml. Voici comment charger un fichier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim doc As XDocument = XDocument.Load("monFichierXml.xml")

Et pour enregistrer ensuite

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

doc.Save("nouveauFichier.xml")

Par contre cela va ajouter par défaut la déclaration XML au début. Mais il est possible de s'en débarrasser si c'est nécessaire, en passant par un XmlWriter et XmlWriterSettings pour la sauvegarde.

Après il reste juste à parcourir et modifier les noeuds au besoin. Par exemple la requête suivante permet de récupérer les noeuds CD du XML.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim result = From n In doc.Descendants("CD")
             Select n;

Dans ton cas, ce qui nous interesse ce sont les noeuds COMPANY et PRICE qui sont enfants du noeud CD. On peut donc faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim result = From n In doc.Descendants("CD")
             Select New With {.Company = n.Element("COMPANY"), 
                              .Price = n.Element("PRICE")}

On crée ici un objet anonyme qui contiendra le noeud COMPANY et le noeud PRICE.
On indique également les noms des propriétés pour accéder à ces informations (Company et Price).
On n'indique pas le type de l'objet result (Dim sans As), il sera déterminé automatiquement.

Au final on va obtenir un IEnumerable d'objets anonymes. Chacun représentant le couple COMPANY/PRICE d'un noeud CD. Il suffit maintenant des les parcourir et de mettre la valeur du noeud PRICE dans COMPANY

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For Each cd In result
    cd.Company.Value = cd.Price.Value;
Next

Par contre l'option Infer dont être sur ON sinon ça ne fonctionne pas. On a pas ce genre de souci en C#, encore une bonne raison de faire du C# et pas du VB.Net

Après tu mets ça dans le bon ordre, tu adaptes au besoin, et tu as tout bon ^^

J'abuse surement mais le code donne quoi en C# ?? =)

**StormimOn** · 04/05/2011, 18h23

Envoyé par jujulips

J'abuse surement mais le code donne quoi en C# ?? =)

Tu abuses oui, parce que je fais du C# et que j'avais pris le temps de le mettre en VB.Net

Code C# :

Sélectionner tout - Visualiser dans une fenêtre à part

XDocument doc = XDocument.Load("monFichierXml.xml");

Code C# :

Sélectionner tout - Visualiser dans une fenêtre à part

doc.Save("nouveauFichier.xml")

Code C# :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
var result = from n in doc.Descendants("CD")
             select new { Company = n.Element("COMPANY"), Price = n.Element("PRICE") };

Code C# :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
foreach (var cd in result)
{
    cd.Company.Value = cd.Price.Value;
}

Modification de fichier XML

VB.NET

Vue hybride

Discussions similaires

Partager

Partager