Discussion :

[Fenryan22]

Bonjour,

je suis tout nouveau dans le monde de Lazarus que j'ai préféré au C# en raison de sa portabilité. Une des fonctions du programme que je voudrais mettre en place est de convertir un fichier xml afin de le placer dans une base de donnée sous Mysql. Au niveau base de donnée et requête Sql je gère assez bien, mais j'ai du mal avec le xml ^^''

le corps du fichier xml est toujours le suivant :

Code XML :

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

1
2
3
4
5
6
<programme id="blablabla" stop="valeur" start="autrevaleur">
<title>Assp </title>
<desc>Un programme que j'écris ...</desc>
</programme>
<programme id="blablabla" stop="valeur" start="autrevaleur">
etc etc

En lisant les différentes doc j'arrive à avoir le contenu des balises title et desc sans aucun problème et à les stocker dans une variable :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
doc : TXMLDocument;
racine : TDOMElement;
liste, lst,lv  : TDOMNodeList;
taille, etaille, i, j : LongWord;
un, deux : string
 begin
   ofd.Execute;
   ReadXMLFile(Doc, ofd.FileName);
   racine:=doc.DocumentElement;
   liste:=racine.GetElementsByTagName('programme'); // racine
   // premier enregistrement
   lst:=liste.Item[0].GetChildNodes;
   un:=lst.Item[0].TextContent;

là où je seche pour le moment est pour obtenir la valeur des différents attributs de la balise programme (id,stop,start), après pour moi ce n'est qu'un problème de boucle à faire et de requête. Mais comment peut_on récupérer la valeur de ces attributs ?

Merci pour votre aide, j'ai passé des heures à lire la doc mais là je sature un peu.

[jurassic pork]

hello,
dans les exemples de Lazarus, il y a un lecteur de fichiers XML --> Lazarus/examples/xmlreader , tu pourrais regarder comment sont lus les attributs des balises XML.

Avec ceci comme fichier XML :

<?xml version="1.0"?>
<TEST>
<programme id="blablabla" stop="valeur" start="autrevaleur">
<title>Assp </title>
<desc>Un programme que j'écris ...</desc>
</programme>
<programme id="blablabla2" stop="valeur2" start="autrevaleur2">
<title>Assp2 </title>
<desc>Un autre programme que j'écris ...</desc>
</programme>
</TEST>

j'obtiens ceci avec le programme de test xmlreader :



Ami calmant, J.P

[tintinux]

pour obtenir la valeur des différents attributs de la balise programme (id,stop,start).

Bonjour

L'astuce c'est que les tags sont rattachés à un nœud fictif enfant du principal.

Voici un petit exemple tiré de mon jeu de scrabble, qui lit :

Code :

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

1
2
3
<parties>
<partie id=1 createur=moi />
</parties>

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
function ValeurTag ( const Node : TDomNode; const NomTag : string): string ;
 
var
  Node2 : TDomNode;
 
begin
  result := '';
  Node2 := Node.Attributes.GetNamedItem(NomTag);
  if not assigned(Node2) then
    Raise Exception.Create ('Tag nommé non trouvé : '+ NomTag );
  result := Node2.NodeValue;
end;

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
 
 
 
var
  { ... }
  Node : TDOMNode ;
 
begin
  Node := Noeud( Doc, 'parties');
  if Node = nil then
    exit ;
  Node := Node.FirstChild;
  while Assigned(Node) and (Node.NodeName='partie') do
  begin
    Partie_lue.id_partie := ValeurTag(Node, 'id');
    Partie_lue.createur := ValeurTag(Node, 'par');
 
 
    { ... }
    Node := Node.NextSibling ;
  end;
end;

[Fenryan22]

merci pour vos différents tuyaus, finalement j'ai procédé ainsi pour obtenir les attributs :

Code :

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

1
2
3
4
5
racine:=doc.DocumentElement;
liste:=racine.GetElementsByTagName('programme'); // racine
// **** boucle etc etc 
code := liste.Item[i].Attributes[0].TextContent; // <- je récupère la valeur de l'attribut
nom := liste.Item[i].GetChildNodes[0].TextContent; // <- je récupère la valeur du noeud enfant

[tintinux]

Bonjour

Il ne faut pas oublier qu'en XML l'ordre des tags n'est pas garanti, et qu'il doit normalement pouvoir s'en insérer de nouveaux sans casser l'existant.
Donc, les extraire dans un tableau indicé numériquement peut être risqué, ou doit s'accompagner de précautions particulières.