Discussion :

[Nathan]

Salut,
Je cherche un moyen pour lister les attributs d'un noeud d'un fichier xml sans connaitre leur nom.
C'est pour faire un fonction recurcive qui va remplacer des caracteres dans les valeurs de chaqun des noeuds du fichier.
La partie qui parcours tous les noeuds fonctionne bien mais quand je suis sur un noeud, je n'arrive pas a lister les attributs sans connaitre leur nom!
Merci d'avance.

[Chaps]

Salut,

Dans "MSXML.pas" tu devrais trouver ton bonheur,

IXMLDomNode.attributes du type "IXMLDOMNamedNodeMap"

avec :

- IXMLDOMNamedNodeMap.length
- IXMLDOMNamedNodeMap.item[index: Integer]

A+

[Castagnems]

Pour lister les attributs :

IXMLNode > property AttributeNodes: IXMLNodeList ;

[Nathan]

Ca y est, enfin j'y suis arrivé.
En fait la liste des attributs d'un noeud est considéré comme une liste de noeuds!
Voila ma fonction qui remplace une chaine par une autre dans tous les attributs d'un fichier :

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
// parcours tous les attributs du noeud et ses noeuds enfants et remplace les sOldPattern par des sNewPattern
procedure TForm1.ReplaceInAttrubuteValue(xmlnNode : IXMLNode;
                                         sOldPattern, sNewPattern : String);
var
  i : integer;
  xmlnCurrentNode : IXMLNode;
begin
  // parcours les attributs du noeud
  for i := 0 to xmlnNode.AttributeNodes.Count - 1 do
  begin
    // recupere l'attribut courant comme un noeud
    xmlnCurrentNode := xmlnNode.AttributeNodes.Get(i);
 
    // si l'attribut courant n'est pas null
    if xmlnCurrentNode.NodeValue <> null then
    begin
      // remplace les valeurs pour l'attribut courant
      xmlnCurrentNode.NodeValue := StringReplace(xmlnCurrentNode.NodeValue,
                                                 sOldPattern,
                                                 sNewPattern,
                                                 [rfReplaceAll]);
    end;
  end;
 
  // parcours les noeuds enfants du noeud
  for i := 0 to xmlnNode.ChildNodes.Count - 1 do
  begin
    // appelle cette fonction récursivement pour chaque noeud enfant
    ReplaceInAttrubuteValue(xmlnNode.ChildNodes[i], sOldPattern, sNewPattern);
  end;
end;

@+