Bug à la création d'un fichier XML

Version imprimable

Bonjour à tous,
Je cherche à créer un fichier XML pour sauvegarder le contenu des champs de mon appli.
Pour ce faire, j'utilise le code suivant ;

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
45
46
Sub Enregistre()
With SaveFileDialog1
            .Title = "Enregistrement fichier essai"
            .Filter = "Fichiers texte (*.txt) | *.txt"
            .ShowDialog()
        End With
        If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            Nomfichier = SaveFileDialog1.FileName
            Dim sw As New StreamWriter(Nomfichier)
            sw.WriteLine("<Evaluation>")
            sw.WriteLine("<Version>3.1</Version>")
            sw.WriteLine("</Evaluation>")
            sw.Close()
        End If
Dim doc As New XmlDocument()
            doc.Load(Nomfichier)
            Dim noeud As XmlNode = doc.DocumentElement
            For Each noeud In noeud.ChildNodes
                If noeud.Name = "EtudeRendement" Then
                    doc.DocumentElement.RemoveChild(noeud)
                    doc.Save(Nomfichier)
                End If
            Next
 
            Dim Elem_EtudeRendement As XmlElement
            Elem_EtudeRendement = doc.CreateElement("EtudeRendement")
 
            Dim Elem_DateDeb As XmlElement
            Elem_DateDeb = doc.CreateElement("DateDeb")
            Elem_DateDeb.InnerText = TextBox_DateDeb.Text
            Elem_EtudeRendement.AppendChild(Elem_DateDeb)
 
Dim Elem_NbTx As XmlElement
            Elem_NbTx = doc.CreateElement("NbTx")
            Elem_PrixHA.InnerText = Form_Trvx.ContTrvx
            Elem_EtudeRendement.AppendChild(Elem_NbTx)
 
 Dim Elem_Apr As XmlElement
            Elem_Apr = doc.CreateElement("Apr")
            Elem_Apr.InnerText = TextBox_Apport.Text
            Elem_EtudeRendement.AppendChild(Elem_Apr)
 
doc.DocumentElement.AppendChild(Elem_EtudeRendement)
            doc.Save(Nomfichier)
 
end sub

Tout se passe comme je le veux, sauf pour la création du noeud "NbTx".
En effet, voici le fichier XML qui est généré :

Code:

1
2
3
4
5
6
7
8
<Evaluation>
  <Version>3.1</Version>
  <EtudeRendement>
    <DateDeb>01/12/2016</DateDeb>
     <NbTx />
    <Apr>0</Apr>
</EtudeRendement>
</Evaluation>

J'ai beau chercher, je ne comprend pas ce qui peut causer une telle erreur.

Quelqu'un aurait une idée ?
Merci d'avance :)

Bonjour,
Citation:
Envoyé par djedje-08
Code:

1 2 3 4 Dim Elem_NbTx As XmlElement Elem_NbTx = doc.CreateElement("NbTx") Elem_PrixHA.InnerText = Form_Trvx.ContTrvx Elem_EtudeRendement.AppendChild(Elem_NbTx)
Qu'est-ce que "Elem_PrixHA" vient faire au milieu ? du coup "Elem_NbTx " est vide.

La serialization xml :

1 classe Evaluation :

Code:

1
2
3
4
5
6
7
8
 
<Serializable>
Public Class Evaluation
 
    Public Version As String
    Public EtudeRendement As EtudeRendement
 
End Class

1 classe EtudeRendement :

Code:

1
2
3
4
5
6
7
8
9
 
<Serializable>
Public Class EtudeRendement
 
    Public DateDeb As String
    Public NbTx As String
    Public Apr As String
 
End Class

1 classe de gestion AppSettings :

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
 
Imports System.Xml.Serialization
Imports System.IO
 
    <Serializable>
    Public Class AppSettings
 
#Region " Fields "
        Public Evaluation As Evaluation
        <XmlIgnore()>
        Public XmlPath As String = My.Application.Info.DirectoryPath & "\Conf.xml"
#End Region
 
#Region " Methods "
        ''' <summary>
        ''' Enregistre l'état courant de la classe dans un fichier au format XML.
        ''' </summary>
        Public Sub SaveFile()
            Dim serializer As New XmlSerializer(GetType(AppSettings))
            Dim ecrivain As New StreamWriter(XmlPath)
            serializer.Serialize(ecrivain, Me)
            ecrivain.Close()
        End Sub
 
        ''' <summary>
        ''' Charge l'état courant du fichier XML.
        ''' </summary>
        ''' <returns>Valeur de type AppSettings</returns>
        Public Shared Function LoadFile() As AppSettings
            Dim deserializer As New XmlSerializer(GetType(AppSettings))
            Dim lecteur As New StreamReader(My.Application.Info.DirectoryPath & "\Conf.xml")
            Dim p As AppSettings = DirectCast(deserializer.Deserialize(lecteur), AppSettings)
            lecteur.Close()
            Return p
        End Function
 
#End Region
 
    End Class

1 projet test d'enregistrement avec 3 textbox et 1 bouton :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Public Class Form1
 
    Private m_Settings As AppSettings
 
    Sub New()
        InitializeComponent()
        m_Settings = New AppSettings
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim etud As New EtudeRendement With {.DateDeb = TextBox1.Text,
                                             .NbTx = TextBox2.Text,
                                             .Apr = TextBox3.Text}
        Dim eval As New Evaluation With {.EtudeRendement = etud,
                                         .Version = "3.1"}
 
        m_Settings.Evaluation = eval
        m_Settings.SaveFile()
    End Sub
End Class

Le contenu du fichier .xml après l'enregistrement :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
<?xml version="1.0" encoding="utf-8"?>
<AppSettings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
  <Evaluation>
    <Version>3.1</Version>
    <EtudeRendement>
      <DateDeb>01/12/2016</DateDeb>
      <NbTx>Trvx</NbTx>
      <Apr>0</Apr>
    </EtudeRendement>
  </Evaluation>
</AppSettings>

Un langage objet pour de la programmation orienté objet :mrgreen:

18/11/2016, 09h01
djedje-08

@ rv26t => Effectivement avec le code ci-dessous ça marche mieux :

Code:

Elem_NbTx.InnerText = Form_Trvx.ContTrvx

Quand on a la tête dans le guidon, on ne se rend pas compte de ce genre de petites bêtises.

@ wallace1 => Merci pour tes bons conseils. Je vais pouvoir refaire mon code en conséquence et faire quelque chose de plus propre.