XMLRacine(sNomxml)
SI gnPositionXml<>-1 ALORS
XMLRetourPosition(sNomxml,gnPositionXml,XMLRPDéfaut)
SINON
XMLPremier(sNomxml)
FIN
XMLRecherche(sNomxml,"personne",XMLAttribut+XMLBalise,XMLExact)
SI XMLTrouve(sNomxml) ALORS
XMLFils(sNomxml)
FIN
TANTQUE PAS XMLEnDehors(sNomxml)
XMLFils(sNomxml)
Nom=XMLDonnée(sNomxml)
...
SC_Fiche.SAI_Nom=Nom
XMLParent(sNomxml)
XMLSuivant(sNomxml)
gnPositionXml=XMLSauvePosition(sNomxml)
XMLTermine(sNomxml)
RETOUR
FIN
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=21&topic_id=6413&post_id=25312