VB2010 express - code XML
Bonjour à tous,
Je ne suis aps tout à fait débutant, mais là je seche devant un truc assez simple.
Voila, je dois créer un formulaire et enregistrer ses données dans un fichier XML à l'aide d'un bouton "record"...
jusque là tout est bon sauf que je n'arrive pas à trouver comment faire pour enregistrer le contenu de ma balise comme :
Code:
1
2
3
4
5
| <clients>
<client>
<nom><![CDATA[dupond]]></nom>
</client>
</clients> |
Mais le code que j'ai écris, save le xml comme :
Code:
1
2
3
4
5
| <clients>
<client>
<nom>dupond</nom>
</client>
</clients> |
voila mon code :
***************
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
| Private Sub XML_Append_Click(sender As System.Object, e As System.EventArgs) Handles XML_Append.Click
' Ouverture du fichier XML
Dim XmlDoc As XmlDocument = New XmlDocument()
'TextBox1.Text = OpenFileDialog1.FileName
XmlDoc.Load(OpenFileDialog1.FileName)
' Definition de la structure parent
Dim clients As XmlNode = XmlDoc.DocumentElement
'Definition nouvelle du node structure l'enregistrement client
Dim client As XmlElement = XmlDoc.CreateElement("client")
Dim nom As XmlElement = XmlDoc.CreateElement("nom")
nom.InnerText = B_Nom.Text
client.AppendChild(nom)
'Add the node to the document.
clients.AppendChild(client)
XmlDoc.Save(OpenFileDialog1.FileName)
XmlDoc = Nothing
End Sub |
Ma question est :
Comment faire pour faire l'AppendChild(nom) pour avoir le resultat :
Code:
<nom><![CDATA[dupond]]></nom>
et non pas comme :
Merci de vos réponses.
Patrick
