Création d'un fichier xml particulié

Version imprimable

Bonjour à tous !

Malgré mes recherches, je n'arrive pas à résoudre mon problème.
Dans le cadre de mon travail je dois générer un fichier grpx (qui est en fait un xml où on a changer l'extension)

Ce fichier est sous cette forme :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 <?xml version="1.0" encoding="UTF-8"?> <Groups Kind="Volatile" Created="2014-08-06T14:09:49.571+02:00" Liuip="PME1.ID:CrawlerExcavator:::::::::" Version="2"> <Group Feature="" Roles="0"> <GroupLocale Lang="FRE"> <Name>sufix1</Name> <Description></Description> </GroupLocale> <Group Feature="" Roles="0"> <GroupLocale Lang="FRE"> <Name>crit1</Name> <Description></Description> </GroupLocale> <Item Identity="IRGearOilTempB15"/> </Group> </Group> </Groups>
Le problème c'est que n'arrive pas à reproduir un fichier avec des noeuds comme ça...
Comment mettre des guillemets dans une balise ? Même question pour le égal ?

Comment appel t'on cela ? des paramètres ? Je suis un peu perdu.....

Je me suis arrêté sur un exemple créer pour comprendre l'utilisation des fonctions xml mais mon savoir s'arrête ici :
Code:

1 2 3 4 5 6 7 8 9 <?xml version="1.0" encoding="UTF-8"?> <blabla> <info1>test text 1</info1> <info2>test text 2</info2> <info> <subinfo1>test sous-text 1</subinfo1> <subinfo2>test sous-text 2</subinfo2> </info> </blabla>
Je suis perdu pour mettre ces genres de "paramètres"...
Impossible de créer une balise : <GroupLocale Lang="FRE"> et de la fermer avec un </GroupLocale>

Je peux poster mon code VB mais je ne pense aps que cela soit utile ? Fais-je bien d'utiliser la librairie microsoft XML ? Quelqu'un pourrait me montrer la voie à prendre ?

Je ne sais pas si je me suis bien exprimer pour exposer mon problème, si vous avez des quesitons n'hésitez pas :)

D'avance merci !

10/08/2014, 17h27
SfJ5Rpw8

bonjour,

cela aurait était bien de voir ton code ... , voir du côté des attributs ...

http://vb.developpez.com/faq/vbs?pag...une-balise-XML
10/08/2014, 20h11
Invité

Bonjour,
il faut doubler les guillemet

Code:

txt="toto=""valeur"">"
18/08/2014, 14h31
prorider68

Citation:

Envoyé par bbil

bonjour,

cela aurait était bien de voir ton code ... , voir du côté des attributs ...

http://vb.developpez.com/faq/vbs?pag...une-balise-XML

Premièrement, désolé de cette semaine sans réponse de ma part, c'était ma seule semaine de vacances de l'été...

Merci à toi bbil! c'est exactement ce que je cherchais ! Je vais essayer de me débrouiller, je reviendrais pour donner des nouvelles ou peu être avec une question.

Merci aussi à toi rdurupt mais j'avais déjà essayer, et il me disait que les symboles = ou les " étaient interdit.
20/08/2014, 09h22
prorider68
Après quelques recherches et grâce à votre aide j'ai bien avancé !

Pour expliquer mon besoin, ce fichier xml est une arborescence de dossiers et sous-dossiers dans lesquels se trouvent des variables.

Pour la création de dossier et sous-dossier j'y arrive bien. Le problème est pour ajouter des variables.

Je m'éxplique :
Code:

1 2 3 4 5 6 7 <Group Feature="" Roles="0"> <GroupLocale Lang="FRE"> <Name>crit1</Name> <Description></Description> </GroupLocale> <Item Identity="IRGearOilTempB15"/> </Group>
Dans cet exemple, on ajoute la variable "IRGearOiTempB15" dans le dossier "crit1"
POur la création des dossier et tout c'est bon mais je ne sais comment générer cette ligne :

Code:

<Item Identity="IRGearOilTempB15"/>

J'arrive très bien a faire des choses comme ça :

Code:

<titre>blablabla</titre>

Par quoi dois-je passer ? comment fait-on ?

D'avance merci !

ps : je peux poster un peu de mon code pour les intéressés

Edit : apparemment c'est une balise vide avec un attribut ? Je vais regarder de plûs près !

Bonjour,

Peux tu poster ton code ?

Voila un exemple de code
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 Dim oXML As MSXML2.DOMDocument Dim oNode As MSXML2.IXMLDOMNode Dim oElem As Object Dim oSubElem as Object Set oXML = New MSXML2.DOMDocument oXML.async = False oXML.Load path\file.xml For Each oNode In oXML.DocumentElement.ChildNodes Set oElem = oXML.SelectSingleNode("Group") Set oElem = oXML.createElement("Item") oElem.setAttribute "Identity", "IRGearOilTempB15" oNode.appendChild oElem oNode.appenchild oXML.createTextNode(vbCrlf) 'Indentation, effectue un retour chariot oNode.appenchild oXML.createTextNode(vbTab) 'Effectue une tabulation Set oSubElem = oXML.createElement("SubItem") oSubElem.setAttribute "SubAtt1", "Attr1" oSubElem.setAttribute "SubAtt2", "Attr2" oSubElem.Text = "toto" oElem.appendChild oSubElem oElem.appenchild oXML.createTextNode(vbCrlf) Next oNode
Ce qui donne normalement, je n'ai pas fait de test, et j'ai du mal avec l'indentation (ce n'est pas obligatoire !)
Code:

1 2 3 4 5 <Group> <Item Identity="IRGearOilTempB15"> <SubItem SubAtt1="Attr1" SubAtt2="Attr2">toto</SubItem> </Item> </Group>
Citation:

Envoyé par prorider68

Dans cet exemple, on ajoute la variable "IRGearOiTempB15" dans le dossier "crit1"

Ah bon ? Moi je vois un Ensemble Group contenant un sous ensemble GroupLocal et Item. Et enfin, dans le sous ensemble GroupLocal je vois un Sous-sous ensemble Name qui porte le nom de Crit1.

Mais je vois pas de "IRGearOiTempB15" dans le dossier cirt1 ;)

Je remercie Bbil pour le lien, toutes les informations sont présentes.
je remet le lien de bbil Click ici et un autre lien sur lequel je me suis également appuyé Click ici

1 pièce(s) jointe(s)

Citation:

Envoyé par Nico Chg

Ah bon ? Moi je vois un Ensemble Group contenant un sous ensemble GroupLocal et Item. Et enfin, dans le sous ensemble GroupLocal je vois un Sous-sous ensemble Name qui porte le nom de Crit1.

Mais je vois pas de "IRGearOiTempB15" dans le dossier cirt1 ;)

Je ne sais pas vr'aiment pourquoi il faut faut faire cela comme ça mais c'est ansi que ça fonctione.

Utilisation de mon code :

j'ai créé des fonctions pour créer des dossiers et des sous dossiers, puis une fonction pour ajouter des variables dans un dossier :

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
26
27
28
 
 
 
'créer dossier principal
Call creer_dossier_Pincipal("C:\Users\lfrjar1\Documents\TEST XML ET XSD CEDRIC CREATION GROUPE SCULI\test.xml", "DOSSIER")
 
 
'dossier sufix
Call creer_dossier_sufix("C:\Users\lfrjar1\Documents\TEST XML ET XSD CEDRIC CREATION GROUPE SCULI\test.xml", "SUFIX1")
'dossier critère
Call creer_dossier_critere("C:\Users\lfrjar1\Documents\TEST XML ET XSD CEDRIC CREATION GROUPE SCULI\test.xml", "s1crit1", "SUFIX1")
Call creer_dossier_critere("C:\Users\lfrjar1\Documents\TEST XML ET XSD CEDRIC CREATION GROUPE SCULI\test.xml", "s1crit2", "SUFIX1")
Call creer_dossier_critere("C:\Users\lfrjar1\Documents\TEST XML ET XSD CEDRIC CREATION GROUPE SCULI\test.xml", "s1crit3", "SUFIX1")
 
 
 
'dossier sufix
Call creer_dossier_sufix("C:\Users\lfrjar1\Documents\TEST XML ET XSD CEDRIC CREATION GROUPE SCULI\test.xml", "SUFIX2")
'dossier critère
Call creer_dossier_critere("C:\Users\lfrjar1\Documents\TEST XML ET XSD CEDRIC CREATION GROUPE SCULI\test.xml", "s2crit1", "SUFIX2")
Call creer_dossier_critere("C:\Users\lfrjar1\Documents\TEST XML ET XSD CEDRIC CREATION GROUPE SCULI\test.xml", "s2crit2", "SUFIX2")
Call creer_dossier_critere("C:\Users\lfrjar1\Documents\TEST XML ET XSD CEDRIC CREATION GROUPE SCULI\test.xml", "s2crit3", "SUFIX2")
 
 
'ajouter des variable
 
Call Ajouter_variable("C:\Users\lfrjar1\Documents\TEST XML ET XSD CEDRIC CREATION GROUPE SCULI\test.xml", "IRSafety", "SUFIX1", "s1crit3")
Call Ajouter_variable("C:\Users\lfrjar1\Documents\TEST XML ET XSD CEDRIC CREATION GROUPE SCULI\test.xml", "IRSensB55_1_2", "SUFIX2", "s2crit2")

Ce qui donne dans logiciel :

Pièce jointe 154393

exemple d'un fonction pour créer un sous dossier : (le code est dégeulasse, mais ça fonctionne....)

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
 
Public Sub creer_dossier_critere(ByVal filename As String, ByVal nom_dossier As String, ByVal nom_dossier_sufix As String)
 
    Dim xmlDoc As DOMDocument, root As IXMLDOMElement
    Set xmlDoc = New DOMDocument
    xmlDoc.async = False
    xmlDoc.Load filename
 
 For Each oNode In xmlDoc.DocumentElement.ChildNodes
    For Each oChild In oNode.ChildNodes
 
        If InStr(oChild.Text, nom_dossier_sufix) Then
 
                Dim LO_Noeud As IXMLDOMNode
                Set LO_Noeud = oChild
 
                Set o1 = xmlDoc.createElement("Group")
                o1.setAttribute "Roles", "0"
                o1.setAttribute "Feature", ""
 
                LO_Noeud.appendChild o1
 
                Set oSUFIX = xmlDoc.createElement("GroupLocale")
                oSUFIX.setAttribute "Lang", "FRE"
                o1.appendChild oSUFIX
 
                Set oNom = xmlDoc.createElement("Name")
                oNom.Text = nom_dossier
                oSUFIX.appendChild oNom
                Set oNom = Nothing
                Set oDescription = xmlDoc.createElement("Description")
                oDescription.Text = ""
                oSUFIX.appendChild oDescription
                Set oDescription = Nothing
 
                Set o1 = Nothing
 
        End If
    Next
Next
 
 
xmlDoc.Save (filename)
Set xmlDoc = Nothing
 
 
End Sub

Je ne m'amuse pas à faire ça très propre vue qu'une fois le programme terminé, il ne servira qu'une seule fois (maqs traitera dans les 150 dossiers et 100 sous-dossiers par dossier. le tout pour trier environ 65000 variables...

22/08/2014, 08h56
Nico Chg

ET bah du coup tout fonctionne ?
22/08/2014, 09h40
prorider68

1 pièce(s) jointe(s)

Pour l'instant oui toutes mes fonctions semblent correctes.

Exemple du fichier xml :
Pièce jointe 154395

Pour la première partie du programme tout est OK.

Il faut encore maintenant que je gère le tout autmoatiquement par rapport à une page excel.
Normalement il n'y a pas de soucis, masi je préfère laisser le sujet ouvert dans le cas où je tombe sur un os :oops:

Merci déjà pour votre attention à mon sujet et merci pour vos réponse .
22/08/2014, 10h13
SfJ5Rpw8

Citation:

Envoyé par prorider68

...
Normalement il n'y a pas de soucis, masi je préfère laisser le sujet ouvert dans le cas où je tombe sur un os :oops:

Merci déjà pour votre attention à mon sujet et merci pour vos réponse .

:nono: non cela ne fonctionne pas ainsi :
Une discussion = Une question...
Si ton problème est résolu utilise le bouton :resolu:
pour un nouveau problème tu ouvriras une nouvelle discussion avec un titre cohérent .
22/08/2014, 11h25
prorider68

Désolé,
Je pensais que vue que je reste dans le sujet xml je pouvais continuer ici mes questions :oops:

Ce que je veuxc dire c'est que SI j'ai une autre question elle sera toujours dans le sujet. (je vais pas poser des questions sur autres choses, je me débrouille bien dans le reste tant qu'il n'y a pas de xml ^^ )

Edit :

Programme terminé, aucun soucis dans la programmation, malheureseument mon fichier xml est maintenant tellement lourd que mon logiciel plante à l'ouverture de ce fichier... Il me reste plus qu'a décomposer tout ça en plusieurs fichiers...... c'est la m**** ...

Edit 2 : en réalité il faut attendre 14min pour que le logiciel traite mon fichier XML , donc tout fonctionne parfaitement !!!!!!!!!!! :D 8-) :P
Merci à tous pour votre aide ! Je passe en résolu !