Modifier un fichier XML

Bonjour,

Je débute en VBScript et surtout en manipulation de fichier XML.
J'ai lu et essayé d'appliquer les exemples de la FAQ sans parvenir à mes fins.

Je vous expose donc mon problème.

Un de nos logiciels stocke la configuration utilisateur dans un fichier config.XML ayant la structure suivante :

Code:

---

1 2 3 4 5

<Root> <Attributes MarkColor="255" DwgAutoCopy="1" DwgOutVersion="2004"/> <Directories/> </Root>

---

La section "Attributes" stocke les paramètres qui diffèrent de la configuration de base du logiciel.
Les différents paramètres n'y sont donc présents que s'ils dérogent à la config par défaut.
Mon but est de forcer par programmation la valeur de certains paramètres tout en laissant l'utilisateur libre de fixer les autres à sa guise.

Par exemple je veux m'assurer que DwgAutocopy="1"

Je suppose donc que je dois :
- tester la présence de ce paramètre et le créer si nécessaire?
- tester sa valeur et la modifier?

D'avance merci de me donner des éléments de réponse si possible avec un exemple concret.

Citation:

---

Envoyé par Phileo

...
J'ai lu et essayé d'appliquer les exemples de la FAQ sans parvenir à mes fins.
....

---

montre ton code ... en t'inspirant de :


:faq:

Comment accéder aux attributs d'une balise ?

Merci bbil pour ta réponse rapide.

Voici donc mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

'-- Lire un document XML Set xmlDoc=CreateObject("Microsoft.XMLDOM")   'La desactivation du mode asynchrone permet de charger entièrement le document en mémoire avant le traitement xmlDoc.Async="false"   'Charger le document en mémoire xmlDoc.Load("C:\Documents and Settings\pbr\Mes documents\Plancal\Nova50\Settings\config.xml")     For Each oElement In xmlDoc.getElementsByTagName("Attributes")     If oElement.getAttribute("DwgAutoCopy") = "1" then msgbox "ok" else oElement.setAttribute "DwgAutoCopy","1" msgbox "Attribut changé" end if Next   Set xmlDoc = Nothing

---

Si DwgAutoCopy a pour valeur 1 le message "ok" s'affiche comme prévu

Si DWGAutocopy a une autre valeur ou n'existe pas le message "Attribut changé" s'affiche comme prévu mais
- la valeur de l'Attribut n'est pas changé s'il existe
- il n'est pas créé si inexistant

Il manque la sauvegarde de l'XML en mémoire vers le disque..

Code:

---

xmlDoc.Save("C:\Documents and Settings\pbr\Mes documents\Plancal\Nova50\Settings\config.xml")

---

Merci bbil

Je venais d'arriver à cette conclusion tout seul.
J'imaginais tant de problèmes possibles que je n'avais pas vu l'évidence !!!!

Par contre j'ai maintenant une autre question qui me laisse perplexe.

Le code ci-dessous modifie la valeur de DwgAutocopy si nécessaire et le créé s'il n'existe pas. Par contre je n'ai que faire que la condition si vrai pour laquelle je n'ai pas d'action à faire.

Code:

---

If oElement.getAttribute("DwgAutoCopy") = "1" then msgbox "ok" else oElement.setAttribute "DwgAutoCopy","1"

---

J'ai donc tenté ça :

Code:

---

If oElement.getAttribute("DwgAutoCopy") <> "1" then oElement.setAttribute "DwgAutoCopy","1"

---

Selon mes tests :
- ça permet de changer la valeur de DwgAutocopy s'il existe
- mais ça ne le crée pas s'il n'existe pas

Pourquoi ?

J'ai poursuivi mes tests.

J'arrive au résultat voulu en simplifiant le code comme ceci :

Code:

---

1 2 3 4 5 6 7

For Each oElement In xmlDoc.getElementsByTagName("Attributes")     oElement.setAttribute "DwgAutoCopy","1" ' configure l'enregistrement automatique en DWG : 1 = activé oElement.setAttribute "DwgOutVersion","2004" ' format de l'enregistrement automatique DWG : ici Autocad 2004   Next

---

La valeur de l'attribut sera modifié s'il existe, il sera créé à la bonne valeur s'il n'est pas présent.

mon problème de base est donc résolu de manière satisfaisante.

Mais si quelqu'un peut me dire pourquoi la syntaxe

Code:

---

If oElement.getAttribute("DwgAutoCopy") <> "1" then oElement.setAttribute "DwgAutoCopy","1"

---

donne un résultat différent des deux autres, je suis toujours vivement intéressé par la réponse.

Est-ce
- une erreur bête dans mon code ?
- un bug ?
- le fait que "<>" n'existe pas en VBS ?....

salut,

à tester mais peu-être que le fait de tenter l'accès à un attribut qui n'existe pas provoque une erreur qui rend ton équation fausse...

essai de faire cela en 2 passe du genre :

Code:

---

1 2 3 4 5

iDwgAutoCopy = oElement.getAttribute("DwgAutoCopy") 'Affiche résultat pour test : MsgBox iDwgAutoCopy if iDwgAutoCopy <> "1" Then ...

---

bbil
j'ai testé ta proposition.

Le code proposé génère bien une erreur à l'instruction "msgbox iDwgAutoCopy""

Par contre

Code:

---

if DwgAutoCopy <> "1" Then oElement.setAttribute "DwgAutoCopy","1"

---

fonctionne bien.

il semble donc que le problème soit au niveau de getAttribute ?

Dans le cas présent la conclusion est qu'il faut aller au plus simple et indiquer les valeurs que l'on souhaite configurer.
Le système gère bien l'absence éventuelle du paramètre en le créant à la volée.

merci bbil pour ton aide
Si quelqu'un passe par là et qu'il a "la réponse" à cette intéressante question ce sera avec intérêt.
Sinon inutile d'y passer trop de temps.

Le sujet principal ayant été traité je passe en résolu