Bonjour ,
j'ai un pb pour l'ajout d'un noeud , a une position donnée dans un fichier xml existant .
voici mon code
merci
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
30
31
32
33
34
35
36
37
38
39 Dim lecteur_xml As XmlTextReader = New XmlTextReader(".\\appconfig2.xml") 'Dim noeud_recherche As XmlNode 'Dim nom_noeud_actuel As String Dim noeud_actuel As Xml.XmlNode Dim documment_xml As New Xml.XmlDataDocument documment_xml.Load(".\\appconfig2.xml") Dim fils As XmlElement = documment_xml.CreateElement("fils") While lecteur_xml.Read() If (lecteur_xml.Name = "nom") Then noeud_actuel = documment_xml.ReadNode(lecteur_xml) ' ajoutter un noeud fils au noeud "prenom" ' sauvegarder les modifications apportés au fichier XML MessageBox.Show(noeud_actuel.InnerText) End If End While Dim noeud_racine As Xml.XmlNode = documment_xml.DocumentElement 'noeud_racine.AppendChild(fils) Dim docFrag As XmlDocumentFragment = documment_xml.CreateDocumentFragment() docFrag.InnerXml = "<Inserted>" + " <NewData>Inserted Data</NewData>" + "</Inserted>" noeud_actuel.AppendChild(docFrag) lecteur_xml.Close() documment_xml.Save(".\\appconfig3.xml")
Partager