Discussion :

[jaafar]

Bonjour
j'ai un fichier xml de cette forme

Code xml :

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
<?xml version="1.0" encoding="iso-8859-1" ?>
<inmuebles>
  <inmueble>
    <oficina>99</oficina>
    <codigo>2674</codigo>
    <fecha_alta>2008-10-16 12:00:00</fecha_alta>
    <id_tipo>6</id_tipo>
    <tipo>Suelo</tipo>
    <id_subtipo>{79E6D897-D5E7-42F2-A774-55D4563C118A}</id_subtipo>
    <subtipo>Residencial</subtipo>
  </inmueble>
  <inmueble>
    <oficina>4921</oficina>
    <codigo>251</codigo>
    <fecha_alta>2008-06-06 12:00:00</fecha_alta>
    <id_tipo>2</id_tipo>
    <tipo>Casa</tipo>
    <id_subtipo>{8B492821-69C3-4E89-B652-6E36F227D743}</id_subtipo>
    <subtipo>Adosada</subtipo>
  </inmueble>
<inmuebles>

et je veux lire clés => valeursOficina => 99) du nœud inmueble via une boucle.

j'arrive a lire la valeur via "List.item[i].text" mais la clé non
Merci de votre aide.

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
procedure Ttest.Button2Click(Sender: TObject);
var
    Doc: IXMLDOMDocument;
    Element: IXMLDOMElement;
    List: IXMLDOMNodeList;
    attrib : IXMLDOMNode;
    Path,ID,title,producer: string;
    i: integer;
  begin
    Doc := CreateOleObject('Microsoft.XMLDOM')
                               as IXMLDomDocument;
    Doc.load('INT-2008-12-23.xml');
    Element := Doc.documentElement;
    List := Element.getElementsByTagName('inmueble');
    for i:=0 to List.length-1  do begin
    Memo1.Lines.Add( Clé +'  '+List.item[i].text);
    end;
end;

[Linkin]

J'utilise cette manière pour lire des fichiers xml (delphi 7):

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
 
uses xmlintf,xmldoc
var
  xmldocument: IXMLDocument;
  node: ixmlnode;
  i: integer;
begin
memo1.Clear;
memo2.Clear;
  xmldocument := LoadXMLDocument('test.xml');
  node := xmldocument.ChildNodes.FindNode('inmuebles').ChildNodes.FindNode('inmueble');
  for i:=0 to node.ChildNodes.Count-1 do
  begin
    Memo1.Lines.Add(node.ChildNodes[i].NodeName);
    Memo2.Lines.Add(node.ChildNodes[i].NodeValue);
  end;

Attention: il n'y a aucune sécurité sur ce code (valeurs nulles, nodes non trouvées).