Lecture des 3 premiers "champs INDIVIDU" des salariés

; lecture de tout le XML
XmlListeId = 0 ; Si = 0 la création de la liste sera faite par A5_Xml_toList
retLectureXml = A5_Xml_toList(XmlListeId, xml, 1)
if retLectureXml <> " "
; gestion erreur lecture
messagebox(retLectureXml, "Erreur XML")
endif
; Recherche de la liste des salariés
SalarieListId = A5_Xml_Get_NodeList(XmlListeId, 'rep/salarie')
if SalarieListId = 0
; gestion Balise salarié non trouvée
messagebox("Aucune balise '/'rep/salarie' trouvée", "Erreur XML")
else
; Recherche des informations individu des salariés
listbegin(SalarieListId)
nbsal = 0
loop ListNext(SalarieListId, xml_node_salarie) not in (-1, 0)
nbsal ++
; Recherche de la liste des champs de l'individu associé au salarié
ChampListId = A5_Xml_Get_NodeList(XmlListeId, 'individu/champ', xml_node_salarie)
listbegin(ChampListId)
for i = 1 to 3
if listnext(ChampListId, xml_node_champ) not in (-1, 0)
ch = A5_Xml_Node_Attr(XmlListeId, xml_node_champ, 'nom')
valch = A5_Xml_Node_Attr(XmlListeId, xml_node_champ, 'valeur')
endif
next
messagebox("Informations Salarié " & tostring(nbsal) \
&"| " & left(ch(1)) & " = " & left(valch(1))\
&"| " & left(ch(2)) & " = " & left(valch(2))\
&"| " & left(ch(3)) & " = " & left(valch(3)), "Lecture XML")


endloop
endif

ListDestroy(XmlListeId)