VB 2008 et XML

Version imprimable

09/05/2009, 10h25
magicbisous-nours

VB 2008 et XML

Bonjour,
j'utilise Visual Studio 2008 Express et je voudrais créer un fichier xml.
je suis donc le tuto disponible ici : http://selkis.developpez.com/tutoriels/dotnet/Xmlpart1/
mais j'ai une erreur sur XmlElement et XmlDoc me disant qu'ils ne sont pas définis.
Comment puis-je les définir svp ?
merci d'avance
09/05/2009, 10h35
roster

As-tu fais l'ajout de la référence System.Xml?

Code:

Imports System.Xml
09/05/2009, 10h51
magicbisous-nours

merci ça a corrigé le problème pour XmlElement mais pas pour XmlDoc est-ce normal ?
09/05/2009, 10h58
roster

Citation:

Envoyé par magicbisous-nours

merci ça a corrigé le problème pour XmlElement mais pas pour XmlDoc est-ce normal ?

XmlDoc ou tu veux dire XmlDocument?

XmlDocument fait partit du même namespace donc non tu dois pouvoir l'utiliser au même titre que XmlElement.

Mais affiches le message d'erreur exacte que tu as ou mais un peu de code pour qu'il soit plus facile de t'aider.

le code est un copier-coller à peine adapté du tuto cité au-dessus :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Dim elemVoitures As XmlElement
        elemVoitures = XmlDoc.CreateElement("VOITURES")
 
        'creation et definition de la balise marque (enfant)
        Dim elemMarque As XmlElement
        elemMarque = XmlDoc.CreateElement("MARQUE")
        elemMarque.InnerText = " Renault "
 
        'creation et definition de la balise dateachat (enfant)
        Dim elemDateAchat As XmlElement
        elemDateAchat = XmlDoc.CreateElement("DATEACHAT")
        elemDateAchat.InnerText = " 01/01/2009 "
 
        'ajout des 2 balise enfants a la balise parent 
        elemVoitures.AppendChild(elemMarque)
        elemVoitures.AppendChild(elemDateAchat)
 
        'on ajoute la balise parent au document
        XmlDoc.DocumentElement.AppendChild(elemVoitures)
 
        'Ecriture du Xml
        XmlDoc.Save(Application.StartupPath & "berline.XML")
        MsgBox("Enregistrement réussi")

j'ai essayé de remplacer XmlDoc par XmlDocument mais j'ai une erreur :
"Une référence à un membre non partagé requiert une référence d'objet"

09/05/2009, 13h09
StormimOn
Faut pas lire en diagonale sinon on oublie des morceaux :P

Avant d'utiliser un objet, il faut penser à le déclarer et à l'instancier
Code:

1 2 'création d'une nouvelle instance du membre xmldocument Dim XmlDoc As XmlDocument = New XmlDocument()
09/05/2009, 13h13
magicbisous-nours

ok merci :lol:
j'ai vraiment été :aie: sur ce coup !!
09/05/2009, 14h12
magicbisous-nours

j'ai relu correctement le tuto et j'ai vu que j'avais oublié cette ligne :

Code:

XmlDoc.LoadXml("[lstSite][/lstSite]")

et quand je lance le programme j'ai un message d'erreur comme celui-ci :

Citation:

"L'exception XMLException n'a pas été gérée"

comment remédier à ça svp ?
merci d'avance
09/05/2009, 14h23
StormimOn

La chaîne de caractères ne représente pas un contenu XML valide. C'est une erreur au niveau du tutoriel. Il faut donc remplacer les [ et ] par < et >

Code:

XmlDoc.LoadXml("<lstSite></lstSite>")

ok ça marche...
mais j'ai une question :
actuellement mon programme est un peu inutile car il écrase le fichier à chaque fois...
comment puis-je faire si je veux qu'il le continue (tout en restant en XML) ?
par exemple si j'ai déjà la structure :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 <?xml version="1.0" encoding="ISO-8859-1"?> <!DOCTYPE voitures [ <!ELEMENT voitures (berline+)> <!ELEMENT berline (marque, dateachat, immatriculation, kilometrage, proprietaire, daterevision, kmderniererevision)> <!ELEMENT marque (#PCDATA)> <!ELEMENT dateachat (#PCDATA)> <!ELEMENT immatriculation (#PCDATA)> <!ELEMENT kilometrage (#PCDATA)> <!ELEMENT proprietaire (#PCDATA)> <!ELEMENT daterevision (#PCDATA)> <!ELEMENT kmderniererevision (#PCDATA)> ]> <voitures> </voitures>
et que je veux n'ajouter que les élements (sans les perdre à chaque fois que j'enregistre) est-ce possible et si oui comment ?
merci d'avance

Tu peux utiliser Linq to Xml avec l'import System.Xml.Linq.

Tout est là:

Code:

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
         XmlDocument docXML = new XmlDocument();
 docXML.Load(Application.StartupPath + @"\nomFichier.xml");
 //On récupere le flux XML depuis le fichier XML
 XElement docXMLFromLinq = XElement.Load(Application.StartupPath + @"\nomFichier.xml");
 XmlNodeList nodes = docXML.SelectNodes("/racine/noeud_perso");
 //Utilisation de Linq to XML
 //le fichier XML
 
 int iMaxNodeId = 0;
 //docXMLFromLinq.Element("")
 foreach (var id in docXMLFromLinq.Elements("noeud_perso"))
 {
 int iIdNode = System.Convert.ToInt32((string)id.Attribute("noeud_persoId"));
 iMaxNodeId = Math.Max(iMaxNodeId, iIdNode);
 }
 
 //Le nouveau noeud
 XElement oNewNode =
 new XElement("noeud_perso",
 new XAttribute("noeud_persoId", iMaxNodeId+1),
 new XElement("nom_noeud_perso", "Mon_nom_toto");
 //sauvegarde du fichier XML
 docXMLFromLinq.Add(oNewNode);
 docXMLFromLinq.Save(Application.StartupPath + @"\nomFichier.xml");
 //attention Nom_de_projet : remplacer par le nom de votre projet
 String sDestinationSauvegarde = Nom_de_votre_projet.Properties.Settings.Default.ModeleTypesDeFichier;
 
 //Rien de plus facile que de supprimer un noeud :
 
 XmlDocument docXML = new XmlDocument();
 docXML.Load(Application.StartupPath + @"\nomFichier.xml");
 XmlNodeList nodes = docXML.SelectNodes("/racine_perso/nom_noeud_perso");
 foreach (XmlNode node in nodes)
 {
 foreach (XmlNode oNodeEnfant in node.ChildNodes)
 {
 if (oNodeEnfant.Name == "nomtypelong" &&
 NodeEnfant.FirstChild.InnerText == oItem.ToString())
 {
 oNodeEnfant.ParentNode.ParentNode.RemoveChild(node);
 docXML.Save(Application.StartupPath + "\nomFichier.xml");
 }
 }
 }

Bonjour,
j'ai adapté le code ci-dessus pour qu'il devienne ça :

Code:

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
Dim docXML As XmlDocument = New XmlDocument()
        docXML.Load(Application.StartupPath + "\berline.xml")
        'On récupere le flux XML depuis le fichier XML
        Dim docXMLFromLinq As XElement = XElement.Load(Application.StartupPath + "\berline.xml")
        Dim nodes As XmlNodeList = docXML.SelectNodes("/voitures/berline")
        'Utilisation de Linq to XML
        'le fichier XML
 
        Dim iMaxNodeId As Integer = 0
        'docXMLFromLinq.Element("")
        For Each id In docXMLFromLinq.Elements("voitures")
            Dim iIdNode As Integer = System.Convert.ToInt32(id.Attribute("Mercedes"))
            iMaxNodeId = Math.Max(iMaxNodeId, iIdNode)
        Next
 
 
        'Le nouveau noeud
        Dim oNewNode1 As XElement = New XElement("berline", New XAttribute("id", iMaxNodeId + 1), New XElement("marque", "Mercedes"))
        Dim oNewNode2 As XElement = New XElement("berline", New XAttribute("id", iMaxNodeId + 1), New XElement("dateachat", "01/01/2009"))
        Dim oNewNode3 As XElement = New XElement("berline", New XAttribute("id", iMaxNodeId + 1), New XElement("immatriculation", "123ABC38"))
        Dim oNewNode4 As XElement = New XElement("berline", New XAttribute("id", iMaxNodeId + 1), New XElement("kilometrage", "1000"))
        'sauvegarde du fichier XML
        docXMLFromLinq.Add(oNewNode1)
        docXMLFromLinq.Add(oNewNode2)
        docXMLFromLinq.Add(oNewNode3)
        docXMLFromLinq.Add(oNewNode4)
        docXMLFromLinq.Save(Application.StartupPath + "\berline.xml")
        'attention Nom_de_projet : remplacer par le nom de votre projet
        'Dim sDestinationSauvegarde As String = .Properties.Settings.Default.ModeleTypesDeFichier

mon problème survient lorsque je créé le fichier j'ai ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
<?xml version="1.0" encoding="utf-8"?>
<voitures>
  <berline id="1">
    <marque>Mercedes</marque>
  </berline>
  <berline id="1">
    <dateachat>01/01/2009</dateachat>
  </berline>
  <berline id="1">
    <immatriculation>123ABC38</immatriculation>
  </berline>
  <berline id="1">
    <kilometrage>1000</kilometrage>
  </berline>
</voitures>

et je voudrais ceci :

Code:

1
2
3
4
5
6
7
8
9
<?xml version="1.0" encoding="utf-8"?>
<voitures>
  <berline id="1">
    <marque>Mercedes</marque>
    <dateachat>01/01/2009</dateachat>
    <immatriculation>123ABC38</immatriculation>
    <kilometrage>1000</kilometrage>
  </berline>
</voitures>

comment puis-je faire svp ?
merci d'avance

Tu peux essayer ceci:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim docXML As XmlDocument = New XmlDocument()
        docXML.Load(Application.StartupPath + "\berline.xml")
 
 Dim docXMLFromLinq As XElement = XElement.Load(Application.StartupPath + "\berline.xml")
        Dim nodes As XmlNodeList = docXML.SelectNodes("/voitures/berline")
 
 Dim iMaxNodeId As Integer = 0
 For Each id In docXMLFromLinq.Elements("berline") 'j'ai pas trop compris quel noeud tu souhaites compter (voitures ou berline), voitures étant le noeud racine...
           iMaxNodeId += 1
 Next
 
 
Dim oNewNode1 As XElement = New XElement("berline", New XAttribute("id", iMaxNodeId + 1), _
        New XElement("marque", "Mercedes"), New XElement("dateachat", "01/01/2009"), _
        New XElement("immatriculation", "123ABC38"), New XElement("kilometrage", "1000"))
 
docXMLFromLinq.Add(oNewNode1)
 
docXMLFromLinq.Save("E:\berline.xml")