Discussion :

[Phileo]

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 :

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

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.

[SfJ5Rpw8]

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

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




Comment accéder aux attributs d'une balise ?

[Phileo]

Merci bbil pour ta réponse rapide.

Voici donc mon 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
'-- 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

[SfJ5Rpw8]

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

Code :

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

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

[Phileo]

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 :

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

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

J'ai donc tenté ça :

Code :

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

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 ?

[Phileo]

J'ai poursuivi mes tests.

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

Code :

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

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 :

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

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

[SfJ5Rpw8]

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 :

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

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

[Phileo]

bbil
j'ai testé ta proposition.

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

Par contre

Code :

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

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.

[Phileo]

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