linq to XML : variable non déclarée

Version imprimable

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:

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

09/03/2010, 09h13
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:

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 ?
09/03/2010, 09h29
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...
09/03/2010, 09h47
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:

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

merci de repondre :)
j ai tenté ce code :

Code:

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...

09/03/2010, 10h15
goredo

c est bon je n ai plus se probleme :)
j egalement effectué un docXml.save(de mon xml)
mais...rien ne change dedans ^^
09/03/2010, 10h19
Adeath
Que souhaites tu faire, générer un nouveau fichier XML avec la structure suivante :
Code:

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é ?
09/03/2010, 10h37
goredo

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

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

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>

09/03/2010, 11h01
Adeath

Tu as bien fait le

Code:

noeud.AddAfterSelf(ajoutobj)

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

Autre piste, le

Code:

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:

noeud.AddAfterSelf(ajoutobj)

lèverait un exception de type InvalidOperationException car noeud serait égal à Null.
09/03/2010, 11h07
goredo

:mur::mur::mur:

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

Citation:

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

Si ton xml de départ ressemble à cela
Code:

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:

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 8-).

pour ton erreur

Citation:

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:

noeud.AddAfterSelf(ajoutobj)

09/03/2010, 11h18
goredo

si je cherche a obtenir cela :mouarf:
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 :(
09/03/2010, 11h56
Adeath

En debug, cela plante sur quelle ligne ?

sur :

noeud.AddAfterSelf(ajoutobj)

=>

Citation:

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

mon code :

Code:

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:

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>

C'est que

Code:

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

ne fonctionne pas.

Je connais pas trop cette syntaxe. Essaye plutôt

Code:

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

Il serait plus propre de faire
Code:

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.

09/03/2010, 15h37
goredo

VB.net il n aime pas trop :

if (noeud != Null)

et il n aime pas nan plus if (noeud <>0)
09/03/2010, 15h50
Adeath

Il faut chercher un peu.
Google est ton ami.;)

Code:

if noeud Is Nothing

Je pense que tu devrais t'en sortir tout seul maintenant :ccool:
09/03/2010, 15h56
goredo

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

mais cependant, pour :

Code:

noeud.AddAfterSelf(ajoutobj)

ca me renvoi toujours

Citation:

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

au deboguage :(
09/03/2010, 16h19
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

Bon, j'ai du tout installer chez moi pour voir ce qui n'allais pas :aie:

voila la réponse :

Code:

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

va chercher dans les noeuds fils, et non dans le premier noeud !

donc après.. le noeud est vide forcement.

la solution c'est de faire comme ça :

Code:

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

(si ton premier noeud xml est objet)

voici le listing qui marche chez moi :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Module Module1 Sub Main() Dim DocXml As XElement = XElement.Load("c:/test.xml") Dim noeud As XElement = DocXml.<testlinq>(0) Dim ajoutobj = New XElement("testlinq", _ New XElement("ref", "UneRef"), _ New XElement("modele", "UnModele"), _ New XElement("desc", "UneDesc")) noeud.AddAfterSelf(ajoutobj) DocXml.Save("C:/test.xml") End Sub End Module
et le XML :
Code:

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

10/03/2010, 09h43
goredo

hiiiiiiii :ccool: :ccool:
maintenant si je veux entrer mes parametre par l intermediaire d une textbox,il me suffit de remplacer par exemple "UneRef" par le parametre entré dans ma textbox =)