Discussion :

[tenebriox]

Bonjour,

Je souhaite enregistrer la conf de mon programme dans un fichier .xml

Voici le code pour le créer :

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
        Dim xmldoc As New XmlDocument
        xmldoc.Load("config.xml")
 
        Dim xmlemailing As XmlElement
        xmlemailing = xmldoc.CreateElement("Utilisateurs")
 
        Dim xmldossier As XmlElement
        xmldossier = xmldoc.CreateElement("dossier")
 
        Dim xmlnom As XmlElement
        xmlnom = xmldoc.CreateElement("nom")
 
        Dim xmlemail As XmlElement
        xmlemail = xmldoc.CreateElement("email")
 
        'traitement des noeuds
        xmldoc.DocumentElement.AppendChild(xmlemailing)
        xmlemailing.AppendChild(xmldossier)
        xmldossier.AppendChild(xmlnom)
        xmldossier.AppendChild(xmlemail)
 
        'Ajout
 
        xmldoc.DocumentElement.ChildNodes(1).ChildNodes(0).ChildNodes(0).InnerText = "nom"
        xmldoc.DocumentElement.ChildNodes(1).ChildNodes(0).ChildNodes(1).InnerText = "email"

Ce qui fonctionne comme je le souhaite puisque j'obtiens un xml qui a cette allure :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 <parametres>
- <Conf>
  d'autres paramètres...
  </Conf>
- <Utilisateurs>
- <dossier>
  <nom>nom</nom> 
  <email>email</email> 
  </dossier>
  </Utilisateurs>
  </parametres>

Maintenant, ce que j'aimerais, c'est ajouter un autre noeud dossier, pour obtenir :

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
 
- <Conf>
  d'autres paramètres...
  </Conf>
- <Utilisateurs>
- <dossier>
  <nom>nom</nom> 
  <email>email</email> 
  </dossier>
  <dossier>
  <nom>nom2</nom> 
  <email>email2</email> 
  </dossier>
  </Utilisateurs>
  </parametres>

Lorsque j'essaye de faire

Code :

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

1
2
xmldoc.DocumentElement.ChildNodes(1).ChildNodes(1).ChildNodes(0).InnerText = "nom2"
        xmldoc.DocumentElement.ChildNodes(1).ChildNodes(1).ChildNodes(1).InnerText = "email2"

La j'obtiens une erreur me disant que la référence n'existe pas =/
Je ne comprends pas car le premier ajout marche

Merci d'avance

[tomlev]

Code :

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

1
2
xmldoc.DocumentElement.ChildNodes(1).ChildNodes(0).ChildNodes(0).InnerText = "nom"
        xmldoc.DocumentElement.ChildNodes(1).ChildNodes(0).ChildNodes(1).InnerText = "email"

Ca fait mal à la tête quand je vois ça ... Comment tu arrives à t'y retrouver ?
Ce serait pas plus simple avec Linq to XML ou la sérialisation XML ?

[tenebriox]

Tout d'abord merci de m'avoir répondu (:
J’ai complètement changé (et simplifié) mon code grâce à la sérialisation ! Mais la je suis un peu perdu dans le xml qui est crée (encore plus qu’avec mes childnoides précédents !!)

Code :

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

1
2
3
4
5
6
7
8
9
 
    Public Sub serialize(ByVal objet As ArrayList)
 
        Dim myFileStream As Stream = File.Create("testarray.xml")
        Dim serializer As New SoapFormatter
        serializer.Serialize(myFileStream, objet)
        myFileStream.Close()
 
    End Sub

Donc, je serialize un tableau (arraylist), et j’obtiens ce xml :
Et là, je ne comprends comment exploiter les informations qui m’intéressent
Et j’ai également essayé de sérialiser une collection mais là (pour les 3 infos que je sérialise) j’obtiens un xml énorme et qui me parait encore plus inexploitable !

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
 
<SOAP-ENV:Envelope SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
−
<SOAP-ENV:Body>
−
<a1:ArrayList id="ref-1">
<_items href="#ref-2"/>
<_size>3</_size>
<_version>3</_version>
</a1:ArrayList>
−
<SOAP-ENC:Array id="ref-2" SOAP-ENC:arrayType="xsd:anyType[4]">
<item id="ref-3" xsi:type="SOAP-ENC:string">C:\</item>
<item id="ref-4" xsi:type="SOAP-ENC:string">1</item>
<item id="ref-5" xsi:type="SOAP-ENC:string">Giga</item>
</SOAP-ENC:Array>
</SOAP-ENV:Body>
</SOAP-ENV:Envelope>

[tomlev]

Là tu n'as pas sérialisé en "simple" XML, mais en SOAP, qui est un format XML dédié aux webservices.

Pour la sérialisation XML proprement dite, regarde ce tutoriel :
http://tlevesque.developpez.com/dotn...serialization/

(c'est du C#, mais le principe est le même...)

Un petit exemple :

Code :

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

1
2
3
4
5
6
    Public Sub serialize(ByVal objet As ArrayList)
        Dim serializer As New XmlSerializer(GetType(ArrayList))
        Using writer As New StreamWriter("testarray.xml")
            serializer.Serialize(writer, objet)
        End Using
    End Sub

Par contre, une ArrayList n'est pas idéale pour ce genre de chose, il vaudrait mieux utiliser une List(Of T), qui est fortement typée...

[Flamby38]

Sinon pour répondre à la question initiale, tu essayes d'éditer un childnode qui n'existe pas :
En effet pour que la fonction ChildNodes(0).InnerText = "nom" fonctionne il faut auparavant avoir créé le noeud en utilisant la fonction CreateChildNode ou quelquechose du genre.

[tenebriox]

Merci pour vous pencher sur mon problème et pour vos réponses constructives mais je n’y arrive toujours pas..
Je veux sauvegarder les paramètres de mon programme :
- Une partie où il y’a trois paramètres
- Une autre partie où ce que je souhaite sauvegarder se trouve dans une datagridview à deux colonnes
Voici un aperçu de mon datagridview



La colonne dossier est généré par le programme (d’ailleurs, tant que j’y suis, est-il possible de rendre non modifiable uniquement cette colonne ?), et la colonne email à remplir par l’utilisateur.
Moi je veux donc sauvegarder cet ensemble

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
 
        Dim stream As New StreamWriter("configEnTest.xml", False)  'On crée/écrase le fichier
 
        Dim listconfig As List(Of String) = New List(Of String)
        Dim listdossiers As List(Of String) = New List(Of String)
        Dim listemails As List(Of String) = New List(Of String)
 
        Dim type As Type = GetType(List(Of String))
 
        Dim xmlserializer As XmlSerializer = New XmlSerializer(type)
 
        'ajout de la config à la list of string
        listconfig.Add(tbxdossier.Text)
        listconfig.Add(tbxtaille.Text)
        listconfig.Add(tbxudunite.Text)
 
        Dim nbelements As Integer = datagvmails.Rows.Count
 
        'ajout des dossiers et mails aux listes
        For i As Integer = 1 To nbelements - 1
            listdossiers.Add(datagvmails.Rows(i).Cells(0).Value)
            listemails.Add(datagvmails.Rows(i).Cells(1).Value)
        Next
 
 
 
        xmlserializer.Serialize(stream, listconfig) 'On serialize la config
        xmlserializer.Serialize(stream, listdossiers) 'On sérialize les dossiers
        xmlserializer.Serialize(stream, listemails) 'On sérialize les emails

Mon problème est que le xml obtenu est illisible (Erreur d'analyse XML : données incompréhensibles après l'élément de document)

Il ne l'est pas lorsque je sérialise un seul de ces trois éléments, donc l'erreur vient de là mais une fois de plus, je suis coincé