Discussion :

[mbar]

Bonjour,

J'ai un fichier XML et je dois modifier certaines valeurs (attributs).
j'ai créé un tableau avec les données que j'ai récupérées par ce code
-------------------------

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
   Dim code As Variant
    Dim Tableau(3000, 6)
 
    Dim oDvpDOMDocument2 As MSXML2.IXMLDOMDocument
    Dim oMembreDvp2 As MSXML2.IXMLDOMElement
 
    Set oDvpDOMDocument2 = New MSXML2.DOMDocument ' Création d'un objet document xml
 
    ' Chargement du document XML
 
    oDvpDOMDocument2.async = False ' permet de charger entièrement le document en mémoire avant le traitement
 
    If Not oDvpDOMDocument2.Load(nomFichier) Then
        MsgBox "Erreur de lecture du document Test.xml"
        End
    End If
 
    ' Mise en tableau des codes
    Set oMembreDvp2 = oDvpDOMDocument2.documentElement
 
    IndexXml = 0
 
    If Not oMembreDvp2 Is Nothing Then
        For Each code In oMembreDvp2.getElementsByTagName("Guide")
            Tableau(IndexXml, 0) = code.getAttribute("Val1")
            Tableau(IndexXml, 1) = code.getAttribute("Val2")
            Tableau(IndexXml, 2) = code.getAttribute("Val3")
            IndexXml = IndexXml + 1
        Next
    End If
 
    NbrLigneTotalXml = IndexXml
 
    Set oMembreDvp2 = Nothing
    Set oDvpDOMDocument2 = Nothing

-----------------------------------------------------

Maintenant que les valeurs sont modifiées comment réécrire la totalité du fichier XML d'origine sachant qu'il y avait des lignes avant et après ?

D'avance merci

[SfJ5Rpw8]

Je ne comprends pas la question ... pourquoi veux-tu réécrire la totalité du fichier xml .. tu n'as rien modifié...?

[mbar]

Les valeurs de mon tableau sont transférées dans un msflexgrid et les modifs du msflexgrid sont mises à jour dans mon tableau.

[SfJ5Rpw8]

ben ensuite il faut réécrire les valeurs contenu dans ton tableau grâce à un code du genre

Code :

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

1
2
 
 code.setAttribute "Val1", Tableau(IndexXml, 0)

en ayant bien soin de se placer sur le bon "Guide.." : et pour cela on manque d'info sur le contenu de ton xml pour t'aider...


et sauver le fichier xml par .. :

Code :

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

 oDvpDOMDocument2.save (nomFichier)