Discussion :

[hletellier]

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 :

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
 
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 :

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
<?xml version="1.0" encoding="iso-8859-15" standalone="yes"?>
<SGF>
	<Forms>
		<frmPrincipal>
			<Tag>2000</Tag>
			<Caption>PRÉNATAL_SGF</Caption>
			<Components>
				<menuArchivo>
					<Caption>&amp;Archivo</Caption>
				</menuArchivo>
				<menuArchivoLinea1>
 
				</menuArchivoLinea1>
			</Components>	
		</frmPrincipal>
 
	</Forms>
</SGF>

Quelqu'un peut-il m'aider?

[Xo]

Salut,

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

[hletellier]

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

Code :

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

1
2
 
   currNode.Text = "2001"

Ainsi donc le petit programme est:

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
 
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