Modifier element XML

Version imprimable

Bonjour a tous.
Décidément mon apprentissage de Visual Basic se fait dans la douleur (je vient du monde Delphi)

Mon problème aujourd'hui est que je ne sais pas modifier la valeur d'un élément d'un fichier XML

Je veux modifier la valeur d'un élément <Tag> du fichier, concrètement je veux faire passer <SGF><Forms><frmPrincipal><Tag> qui vaut 2000 a par exemple 2100

Comment dois-je faire

J'ai 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 Public Sub Test() Dim xmlDoc As New Msxml2.DOMDocument40 Dim currNode As IXMLDOMNode xmlDoc.async = False xmlDoc.resolveExternals = False xmlDoc.Load ("sgf2.xml") If (xmlDoc.parseError.errorCode <> 0) Then Dim myErr Set myErr = xmlDoc.parseError MsgBox ("You have error " & myErr.reason) Else xmlDoc.setProperty "SelectionLanguage", "XPath" Set currNode = xmlDoc.selectSingleNode("//SGF/Forms/frmPrincipal/Tag") MsgBox currNode.Text ' Ici je pense que doit venir le code pour modifier la valeur de tag xmlDoc.save ("g:\sgf2_saved.xml") Set xmlDoc = Nothing End If End Sub
Le fichier XML est:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 <?xml version="1.0" encoding="iso-8859-15" standalone="yes"?> <SGF> <Forms> <frmPrincipal> <Tag>2000</Tag> <Caption>PRÉNATAL_SGF</Caption> <Components> <menuArchivo> <Caption>&Archivo</Caption> </menuArchivo> <menuArchivoLinea1> </menuArchivoLinea1> </Components> </frmPrincipal> </Forms> </SGF>
Quelqu'un peut-il m'aider? :?

19/10/2005, 14h42
Xo

Salut,

Au niveau de ton projet, quelle référence utilises-tu pour le parsing des documents XML ?

Pb Résolu

C'était tot simple il fallait simplement écricre:

Code:

1
2
 
   currNode.Text = "2001"

Ainsi donc le petit programme est:

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
 
Public Sub Test()
 
Dim xmlDoc As New Msxml2.DOMDocument40
Dim currNode As IXMLDOMNode
xmlDoc.async = False
xmlDoc.resolveExternals = False
xmlDoc.Load ("g:\sgf2.xml")
If (xmlDoc.parseError.errorCode <> 0) Then
   Dim myErr
   Set myErr = xmlDoc.parseError
   MsgBox ("You have error " & myErr.reason)
Else
   xmlDoc.setProperty "SelectionLanguage", "XPath"
   Set currNode = xmlDoc.selectSingleNode("//SGF/Forms/" & Me.Name & "/Tag")
   MsgBox currNode.Text
 
   ' Code de modif du noeud
   currNode.Text = "2001"
 
   xmlDoc.save ("g:\sgf2_saved.xml")
   Set xmlDoc = Nothing
End If
 
End Sub

Merci a T-Shooter de
Désoléhttp://forumaccess.com/eve/ubb.x/a/t...31/m/736609631

Désolé de vous avoir embêté avec ça :oops: