Modifier un node XML

Ce code va chercher les valeur V= »xx » des nœuds TypPce et NatPce pour les remplacer par les valeur TypPCE V= »10″ et NatPce V= »11″

Source XML modifiée par ces Codes :

<?xml version="1.0" encoding="ISO-8859-1" standalone="yes"?>
<DepenseAller>
<Bordereau>
<Piece>
<BlocPiece>
<InfoPce>
   <IdPce V="1006"></IdPce>
   <TypPce V="01"></TypPce>
   <NatPce V="09"></NatPce>
   <Obj V="CP.CHATEAU"></Obj>
</InfoPce>
</BlocPiece>
</Piece>
</Bordereau>
</DepenseAller>

Modifier la valeur d’un Nœud dans un fichier XML

Imports System.Xml
Imports System.IO
Public Class Form1
  Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
'Fichier Source
        Dim resource As String = "C:\temp\MonXML.xml"
'Fichier de déstination
        Dim resource2 As String = "C:\temp\MonXML-2.xml"
'Nouvelle Valeur de NatPce
        Dim textNatPce As String = "10"
'Nouvelle Valeur de TypPce
        Dim textTypPce As String = "11"
'Chargement du Fichier XML d'origine
    Dim xDoc As New XmlDocument
    xDoc.Load(resource)

        Dim NatPce As XmlNodeList = xDoc.GetElementsByTagName("NatPce")
        Dim TypPce As XmlNodeList = xDoc.GetElementsByTagName("TypPce")
'Recherche des Nodes NatPce et remplacement de la valeur initiale par 10
        For Each node As XmlNode In NatPce
            node.Attributes("V").Value = textdNatPce
        Next node
'Recherche des Nodes TypPceet remplacement de la valeur initiale par 11
        For Each node As XmlNode In TypPce
            node.Attributes("V").Value = textTypPce
        Next node
'Sauvegarde du nouveau XML
    xDoc.Save(resource2)
  End Sub
End Class