Discussion :

[calimero91]

Bonjour,
j'ai le code suivant qui me permet d'ajouter un element dans un fichier xml

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
' Chargement du document XML
    oDvpDOMDocument.async = False ' permet de charger entièrement le document en mémoire avant le traitement
    If oDvpDOMDocument.Load(App.Path & "\Data\Simu.xml") Then
        MsgBox "Document XML correctement chargé"
    Else
        MsgBox "Erreur de lecture du document XML"
        End
    End If
 
    'Ajout de l'evenement
    Set oNoeudMembre = oDvpDOMDocument.selectSingleNode("EcuDatas")   ' positionnement sur la racine
 
    Set oNoeudMembre = oDvpDOMDocument.createElement("Request")    ' création d'un fils membre
    oNoeudMembre.setAttribute TxtReponse(0).Tag, TxtReponse(0).Text
    oDvpDOMDocument.documentElement.appendChild oNoeudMembre          ' crée le fils de la racine
 
    ' Ajout de la trame reponse
    Set oNoeudEnfantMembreActivite = oDvpDOMDocument.createElement("Response")
    oNoeudEnfantMembreActivite.setAttribute TxtReponse(1).Tag, TxtReponse(1).Text
    oNoeudMembre.appendChild oNoeudEnfantMembreActivite
 
    Reponse = MsgBox("Désirez-vous sauvegarder les modifications effectuées ?", vbYesNo)
    If Reponse = vbYes Then
       oDvpDOMDocument.save (App.Path & "\Data\dvp.xml")
    End If

mon fichier xml se presenta de la maniere suivante:

Code :

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

1
2
3
4
5
6
7
8
9
10
<?xml version="1.0" encoding="ISO-8859-1"?>
<EcuDatas>
            <Messaging DefaultInterRespDelay="30">
 
 
	</Messaging>
	"<Request Frame="22">
	"	<Response Frame="22"/>
	"</Request>
</EcuDatas>

je voudrais me placer dans la balise messaging pour ecrire le texte que j'ai mit avec des guillemet.

merci d'avance pour votre aide.
cedric.

[calimero91]

j'ai modifier le bout de code suivant

Code :

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

1
2
3
4
5
6
'Ajout de l'evenement
    Set oNoeudMembre = oDvpDOMDocument.selectSingleNode("EcuDatas").lastChild   ' positionnement sur la racine
    oDvpDOMDocument.documentElement.appendChild oNoeudMembre          ' crée le fils de la racine
    Set oNoeudMembre2 = oDvpDOMDocument.createElement("Request")      ' création d'un fils membre
    oNoeudMembre2.setAttribute TxtReponse(0).Tag, TxtReponse(0).Text
    oNoeudMembre.appendChild oNoeudMembre2

qui fait que maintenant j'ecrit dans le bon niveau enfant de mon xml,
mais ma balise request ne se ferme plus.

Code :

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

1
2
3
4
5
6
7
8
9
10
<?xml version="1.0" encoding="ISO-8859-1"?>
 
<EcuDatas>
 
	<Messaging DefaultInterRespDelay="30">
 
		<Request Frame="22"/>
		<Response Frame="22"/>
	</Messaging>
</EcuDatas>

merci d'avance de votre aide et bonne année a tous.

[SfJ5Rpw8]

c'est quoi txtReponse(0).text...

il faut faire un "appendChild" sur le bon noeud pour ton "reponse" du genre:

Code :

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

1
2
3
4
5
6
7
 
...
Set oNoeudRequest= oDvpDOMDocument.createElement("Request")      ' création d'un fils membre
Set oNoeudReponse= oDvpDOMDocument.createElement("Reponse")   
 
  oNoeudRequest.appendChild oNoeudReponse
    oNoeudMembre.appendChild oNoeudRequest

[calimero91]

txtReponse(0).text et la textbox que j'utilise pour entre la valuer a mettre dans le xml.

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
'Ajout de l'evenement
    Set oNoeudMembre = oDvpDOMDocument.selectSingleNode("EcuDatas").lastChild   ' positionnement sur la racine
    oDvpDOMDocument.documentElement.appendChild oNoeudMembre          ' crée le fils de la racine
 
 
    'ajout de la trame request
    Set oNoeudMembre2 = oDvpDOMDocument.createElement("Request")      ' création d'un fils membre
    oNoeudMembre2.setAttribute TxtReponse(0).Tag, TxtReponse(0).Text
    oNoeudMembre.appendChild oNoeudMembre2
 
    ' Ajout de la trame reponse
    Set oNoeudEnfantMembreActivite = oDvpDOMDocument.createElement("Response")
    oNoeudEnfantMembreActivite.setAttribute TxtReponse(1).Tag, TxtReponse(1).Text
    oNoeudMembre.appendChild oNoeudEnfantMembreActivite

affiche le xml sous cette forme la:

Code :

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

1
2
3
4
5
6
7
8
9
<?xml version="1.0" encoding="ISO-8859-1"?>
 
<EcuDatas>
 
	<Messaging DefaultInterRespDelay="30">
		<Request Frame="22"/>
		<Response Frame="22"/>
	</Messaging>
</EcuDatas>

or je souheterai l'avoir de cette forme là:

Code :

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

1
2
3
4
5
6
7
8
9
10
<?xml version="1.0" encoding="ISO-8859-1"?>
 
<EcuDatas>
 
	<Messaging DefaultInterRespDelay="30">
		<Request Frame="22"/>
			<Response Frame="22"/>
		</Request>
	</Messaging>
</EcuDatas>

cedric.

[calimero91]

desolé pour cette bourde phenomenal mais j'ai trouver mon erreur:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
'Ajout de l'evenement
    Set oNoeudMembre = oDvpDOMDocument.selectSingleNode("EcuDatas").lastChild   ' positionnement sur la racine
    oDvpDOMDocument.documentElement.appendChild oNoeudMembre          ' crée le fils de la racine
    
    
    'ajout de la trame request
    Set oNoeudMembre2 = oDvpDOMDocument.createElement("Request")      ' création d'un fils membre
    oNoeudMembre2.setAttribute TxtReponse(0).Tag, TxtReponse(0).Text
    oNoeudMembre.appendChild oNoeudMembre2
    
    ' Ajout de la trame reponse
    Set oNoeudEnfantMembreActivite = oDvpDOMDocument.createElement("Response")
    oNoeudEnfantMembreActivite.setAttribute TxtReponse(1).Tag, TxtReponse(1).Text
    oNoeudMembre2.appendChild oNoeudEnfantMembreActivite

[SfJ5Rpw8]

salut, cedric...

tu n'as pas respecté ce que je t'ai précédament écrit.. (la place du appenchild..)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
...
'ajout de la trame request
    Set oNoeudMembre2 = oDvpDOMDocument.createElement("Request")      ' création d'un fils membre
    oNoeudMembre2.setAttribute TxtReponse(0).Tag, TxtReponse(0).Text
 
 
    ' Ajout de la trame reponse
    Set oNoeudEnfantMembreActivite = oDvpDOMDocument.createElement("Response")
    oNoeudEnfantMembreActivite.setAttribute TxtReponse(1).Tag, TxtReponse(1).Text
 
 
    oNoeudMembre2.appendChild oNoeudEnfantMembreActivite
   oNoeudMembre.appendChild oNoeudMembre2

[calimero91]

Merci.

c'est corrigé pour la mise en forme.