[D7] XML - question débile pour trouver un noeud ...

**boulbi** · 28/04/2006, 08h22

bonjour

je suis en train de faire du xml avec delphi 7
mon fichier xml ressemble a ca :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
<parent>
< count> 2</count>
<machin 1>
<attr1> "blabla </attr1>
<attr2> "blabla </attr2>
</machin 1>
<machin 2>
<attr1> "blabla </attr1>
<attr2> "blabla </attr2>
</machin 2>
</parent>

j'ai utilisé TxmlDoc et maintenant libxml2 , pour l'instant j'arrive a ouvrir , lire mon fichier xml, récuperer les attributs si je connais le noeud <machin1> (par exemple)

ce que je n'arrive pas a faire c'est dire je veux aller au noeud "machin1"
j'ai beau lire les docs les exemples je ne trouve pas les fonctions qui font ca .. je dois pas etre réveillé mais je bloque grave dessus et parcourir comme un ane les noeud xml en testant les "name" c'est pas trés efficace ...

si quelqu'un peut me mettre sur la voie ...

merci

**Linkin** · 28/04/2006, 09h33

J'utilise directement un IXMLDocument mais la façon de procéder est la même il me semble:

Code :

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

1
2
 
DocumentXML.ChildNodes['parent'].ChildNodes['machin 1'].ChildNodes['attr1']

Et pour éviter les exceptions voir la Faq Delphi Section XML

**Rayek** · 28/04/2006, 09h37

tu as de la chance j'ai fait ca il n'y a pas longtemps ^^

[QR] Comment récupérer un noeud par son nom ?

La procédure ci-dessous permet de recupérer un noeud d'un document XML grâce à son nom

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
26
27
28
29
30
31
32
33
34
35
36
 
 function GetNode(XmlNode : IXmlNode;NodeName : String) : IXmlNode;
 var
  i : integer;
 begin
   Result := nil;
 
 //Les noeuds internes sont traités récursivement
   if XMLNode.NodeType <> ntElement then
     Exit;
 
   //S'il s'agit d'une feuille
   if XMLNode.IsTextElement then
     if UpperCase(XmlNode.NodeName) = UpperCase(NodeName) then
     begin
       Result := XmlNode;
       Exit;
     end;
   // S'il s'agit d'un attribut
   for i := 0 to XMLNode.AttributeNodes.Count - 1 do
     if UpperCase(XMLNode.AttributeNodes.Nodes[i].NodeName) = Uppercase(NodeName) then
     begin
       Result := XMLNode.AttributeNodes.Nodes[i];
       Exit;
     end;
 
   // Si le noeud a des enfants on recherche dedans.
   if XMLNode.HasChildNodes then
     for I := 0 to XMLNode.ChildNodes.Count - 1 do
     begin
       Result := GetNode(XmlNode.ChildNodes.Nodes[i],NodeName);
       // si on a un resultat on quitte car c'est celui qu'on recherche
       if Result <> nil then
         Exit;
     end;
 end;

Pour l'appel de la fonction :

Code :

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

1
2
3
4
5
6
7
8
 
 var
   Noeud : IXmlNode;
 begin
   Noeud := GetNode(XmlDoc,'MonNoeud');
   if Assigned(Noeud) then
     Showmessage(La valeur de ' + Noeud.NodeName + ' est de ' + Noeud.Text);
 end;

**boulbi** · 28/04/2006, 10h32

effectivement , j'avais pensé a la solution récursive , mais je trouvais ca poas "normal", car j'imaginais que en xml (peut etre avec libxml2) on pouvait avoir acces directement au noeud avec des fonctions style getnode(nodeparent , "machin")

mais je vais faire recursivement si ca existe pas

merci

**Raylemon** · 28/04/2006, 13h18

Un moyen rapide est l'utilisation de xpath. Avec OmniXML et msXML, tu dispose de fonctions selectSingleNode. Tu entres ta requête xpath et le tour est joué

. c'est plus facile qu'une récursive.

**Rayek** · 28/04/2006, 14h37

Envoyé par Big

Un moyen rapide est l'utilisation de xpath. Avec OmniXML et msXML, tu dispose de fonctions selectSingleNode. Tu entres ta requête xpath et le tour est joué

. c'est plus facile qu'une récursive.

Plus facile, si tu sais utiliser OmniXML, msXML et que tu saches faire des requetes Xpath

Et quand tu sais pas faire, le récursif aide bien ^^

Si tu as un exemple d'utilisation je suis prenneur, je rajouterai ca à la QR ^^

**Raylemon** · 28/04/2006, 16h30

j'avais fait un tuto complet pour dvp, qui a été refusé

.
Mais je peux te faire une source documentée sur l'utilisation de XPath et omniXML ce week-end. Je l'attacherai à ce thread

.

Sinon, l'utilisation de XPath est relativement simple. Une requête Xpath se compose un peu comme une arborescence de répertoires unix

Code :

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

1
2
3
4
5
6
 
<root>
   <node1>
     <node2>Coucou</node2>
   </node1>
</root>

se traduit en xpath par /root/node1/node2

Il existe un excellent tuto sur l'utilisation de Xpath sur dvp. C'est comme ça que j'ai appris.

Par la suite, avec omniXML ou msXML, l'utilisation est relativement simple.

Code :

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

1
2
3
4
5
6
7
8
 
var
   node: IXMLNode;
   xml: IXMLDoc; //OmniXML
begin
  xml := CreateXMLDoc;
 node := xml.SelectSingleNode('//node2');
 ShowMessage(node2.Text);// renvoie Coucou

fait de tête, donc il y a des riques d'erreurs

**boulbi** · 02/05/2006, 09h47

ok merci ... je vais checker ca , d'ailleurs je crois que j'utilise un bout de code en C avec ce Xpath , mais bon la petite fonction récursive marche bien pour l'instant.

sinon deuxieme question con de débutant ? quel serait le moyen de stocker une courbe dans un fichier xml ? j'ai cherché mais j'ai pas trouvé comment stocker mes points dans des vecteurs ? dans un autre format ...

et sur le net pas d'exemple non plus ...
typiquement je voudrais sauver une courbe de la forme :
index | data 1 |data 2 | etc ...
0_____ 0.01 __ 0.03
1_____ 0.5 ___ 0.9
2_____ 1.2____2.3

**Raylemon** · 02/05/2006, 18h37

pour stocker un vecteur, je vois pas trop

, à part stocker chaque point, genre

<Vector>
<point x=0 y=0/>
<point .../>
<Vector>

Sinon, regarde du côté de mathML, qui est une spécification xml orienté pour les maths, ça devrait peut-être t'aider