Discussion :

[goredo]

salut a tous!
je me suis enfin interessé a la méthode linq to xml pour manipuler un fichier xml,cependant j ai adapté l exemple de bladack01 dans ce post http://www.developpez.net/forums/d86...q/to-linq-xml/ et a la compilation une erreur mais retournée qui dit que "test" n est pas declarée

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
    Private Sub edit_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim DocXml As XElement = XElement.Load(fichier)
 
        Dim noeud As XElement = DocXml...<objet>(0) 'enfaite la on choisi en quelque sorte le noeud sur lequel on se place
        Dim ajoutobj = New XElement("testlinq", _
                                      New XElement("ref", test.Ref), _
                                      New XElement("modele", test.modele), _
                                      New XElement("desc", test.desc))
 
        noeud.AddAfterSelf(ajoutobj) ' le addafterself permet d'inséré les nouveau après le noeud sélectionner plus haut ^^
 
 
    End Sub

je ne sais pas en quoi déclarer test sans que cela ne me retourne une erreur :s

[Adeath]

Salut,

Si je comprend bien tu charge un xml existant et tu y ajoutes le nœud suivant après le premier nœud <objet> que tu trouves :

Code :

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

1
2
3
4
5
6
 
<testlinq>
     <ref>test.ref</ref>
     <modele>test.modele</modele>
     <desc>test.desc</desc>
</testlinq>

Il faut bien déclarer test puisque tu vas l'utiliser pour alimenter la valeur des nœuds.
test est un objet ? Comment récupères-tu ces valeurs ?

[goredo]

justement,ce code n étant pas le mien je peine a comprendre tout son contenu.
néamoins je pense que test serait a valeur que j entrerai en parametre dans une textbox par exemple qui par la suite serait introduite dans le xml...

[Adeath]

Dans ce cas tu pourras remplacer les test.ref, test.modele et test.desc par les valeurs des textbox.

Si tu souhaites uniquement tester ce bout de code, tu peux mettre des valeurs en dur pour passer la compilation :

Code :

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

1
2
3
4
5
 
Dim ajoutobj = New XElement("testlinq", _
      New XElement("ref", "UneRef"), _
      New XElement("modele", "UnModele"), _
      New XElement("desc", "UneDesc"))

[goredo]

merci de repondre
j ai tenté ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 Private Sub edit_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim DocXml As XElement = XElement.Load(fichier)
 
        Dim noeud As XElement = DocXml...<objet>(0) 'enfaite la on choisi en quelque sorte le noeud sur lequel on se place
 
        Dim ajoutobj = New XElement("testlinq", _
      New XElement("ref", "UneRef"), _
      New XElement("modele", "UnModele"), _
      New XElement("desc", "UneDesc"))
 
    End Sub

et a l execution ca m a retourner element racine manquant...

[goredo]

c est bon je n ai plus se probleme
j egalement effectué un docXml.save(de mon xml)
mais...rien ne change dedans ^^

[Adeath]

Que souhaites tu faire, générer un nouveau fichier XML avec la structure suivante :

Code :

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

1
2
3
4
5
6
 
<testlinq>
     <ref>UneRef</ref>
     <modele>UnModele</modele>
     <desc>UneDesc</desc>
</testlinq>

ou partir d'un xml existant et lui ajouter le nœud ci-dessus ?
(le code que tu proposes traite ce cas de figure)
Dans ce cas, le xml que tu charges avec XElement.Load(fichier) est-il bien formaté ?

[goredo]

oui j ai deja un xml et je souhaiterais y rajouter ce noeud...

[goredo]

pour tester j'ai structuré mon xml de cette maniere...
est ce la bonne structure?

Code :

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

1
2
3
4
5
6
7
8
<?xml version="1.0" encoding="utf-8"?>
<objet>
  <testlinq>
    <ref></ref>
    <modele></modele>
    <desc></desc>
  </testlinq>
</objet>

[Adeath]

Tu as bien fait le

Code :

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

noeud.AddAfterSelf(ajoutobj)

car je ne le vois pas dans ton code plus-haut.

Autre piste, le

Code :

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

Dim nœud As XElement = DocXml...<objet>(0)

va chercher le premier noeud <objet> et ajouter le nœud <testlinq> à la suite.
Existe-t-il bien un nœud <objet> dans le xml de départ ?
Je suppose que oui sinon la ligne

Code :

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

noeud.AddAfterSelf(ajoutobj)

lèverait un exception de type InvalidOperationException car noeud serait égal à Null.

[goredo]

je l avais laissé en commentaire...
Cependant une fois remis a l execution ca me retourne une erreur de type :

La référence d'objet n'est pas définie à une instance d'un objet.

[Adeath]

Si ton xml de départ ressemble à cela

Code :

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

1
2
3
4
5
6
7
8
9
 
<?xml version="1.0" encoding="utf-8"?>
<objet>
  <testlinq>
    <ref></ref>
    <modele></modele>
    <desc></desc>
  </testlinq>
</objet>

il sera formaté de la façon suivante après passage dans ton code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
<?xml version="1.0" encoding="utf-8"?>
<objet>
  <testlinq>
    <ref></ref>
    <modele></modele>
    <desc></desc>
  </testlinq>
</objet>
<testlinq>
    <ref>UneRef</ref>
    <modele>UnModele</modele>
    <desc>UneDesc</desc>
</testlinq>

Je ne suis pas sur que c'est ce que tu cherches à obtenir .

pour ton erreur

La référence d'objet n'est pas définie à une instance d'un objet

Vérifie que la variable noeud n'est pas null au moment du

Code :

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

noeud.AddAfterSelf(ajoutobj)

[goredo]

si je cherche a obtenir cela
enfin...Avec mes balise remplie =)
c'est la structure (simplifié) d un xml que l on m a demandé d utiliser...

Donc la j avou que je bloque

[Adeath]

En debug, cela plante sur quelle ligne ?

[goredo]

sur :

noeud.AddAfterSelf(ajoutobj)

=>

La référence d'objet n'est pas définie à une instance d'un objet.

mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim DocXml As XElement = XElement.Load(fichier)
 
        Dim noeud As XElement = DocXml...<objet>(0) 'enfaite la on choisi en quelque sorte le noeud sur lequel on se place
 
        Dim ajoutobj = New XElement("testlinq", _
      New XElement("ref", "UneRef"), _
      New XElement("modele", "UnModele"), _
      New XElement("desc", "UneDesc"))
        noeud.AddAfterSelf(ajoutobj)
        'DocXml.Save("D:\Users\TeamSolutions\Documents\Visual Studio 2008\Projects\tttxmm\WindowsApplication2\WindowsApplication2\xml\InventorWoodDatas.xml")
        DocXml.Save("D:\testbok.xml")
    End Sub

et mon xml :

Code :

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

1
2
3
4
5
6
7
8
<?xml version="1.0" encoding="utf-8"?>
<objet>
  <testlinq>
    <ref></ref>
    <modele></modele>
    <desc></desc>
  </testlinq>
</objet>

[Adeath]

C'est que

Code :

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

Dim noeud As XElement = DocXml...<objet>(0)

ne fonctionne pas.

Je connais pas trop cette syntaxe. Essaye plutôt

Code :

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

Dim noeud as XElement = DocXml.Element("objet");

Il serait plus propre de faire

Code :

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

1
2
3
4
5
6
7
8
 
if (noeud != Null) Then
   Dim ajoutobj = New XElement("testlinq", _
      New XElement("ref", "UneRef"), _
      New XElement("modele", "UnModele"), _
      New XElement("desc", "UneDesc"))
   noeud.AddAfterSelf(ajoutobj)
End if

pour éviter ce genre d'erreur à l'exécution.

[goredo]

VB.net il n aime pas trop :

if (noeud != Null)

et il n aime pas nan plus if (noeud <>0)

[Adeath]

Il faut chercher un peu.
Google est ton ami.

Code :

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

if noeud Is Nothing

Je pense que tu devrais t'en sortir tout seul maintenant

[goredo]

oui désolé j ai manqué de lucidité la ^^
je vais chercher un peu alors

mais cependant, pour :

Code :

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

 noeud.AddAfterSelf(ajoutobj)

ca me renvoi toujours

La référence d'objet n'est pas définie à une instance d'un objet.

au deboguage

[Adeath]

En debug c'est noeud ou ajoutobj qui vaut Null ?

Sinon je t'invite à consulter la msdn :
http://msdn.microsoft.com/fr-fr/libr...8VS.95%29.aspx