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 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58
| SI SansEspace(SAI_FICHIER)<>"" ALORS
sCodexml est un chaîne
// fchargeTexte charge le contenu du fichier xml dans une variable chaine.
sCodexml=fChargeTexte(SAI_FICHIER)
// création d'un document au format XML
// XMLDOCUMENT permer de créer ou de manipuler un fichier XML.
SI XMLDocument("docxml",sCodexml)=Faux ALORS
DélaiAvantFermeture(1000)
Erreur("Impossible de charger le document XML",ErreurInfo())
RETOUR
FIN
// La fonction xmlrecherche permet de faire une recherche d'éléments ou de types d'éléments dans le fichier XML
// En recherchant la valeur null et en demandant tous les éléments, on fait une recherche de tout
// les elements du document.
XMLRecherche("docxml",Null,XMLElément+XMLSousElément,XMLCommencePar)
TANTQUE XMLTrouve("docxml")
//Test le type d'éléments trouvé
SI XMLTypeElement("docxml")=XMLBalise ALORS
TableAjouteLigne(TABLE_FichierXml, ...
XMLDonnée("docxml","Form",XMLExact), ...
XMLNomElément("docxml"), ...
XMLDonnée("docxml","Type",XMLExact), ...
XMLDonnée("docxml","Champ",XMLExact), ...
XMLDonnée("docxml","Texte",XMLExact), ...
XMLDonnée("docxml","Autre",XMLExact), ...
XMLDonnée("docxml","Hint",XMLExact),...
XMLDonnée("docxml","Font_Name",XMLExact),...
XMLDonnée("docxml","Font_Size",XMLExact), ...
XMLDonnée("docxml","NbCell",XMLExact), ...
XMLDonnée("docxml","Cell0",XMLExact),...
XMLDonnée("docxml","Cell1",XMLExact), ...
XMLDonnée("docxml","Cell2",XMLExact), ...
XMLDonnée("docxml","Cell3",XMLExact), ...
XMLDonnée("docxml","Cell4",XMLExact), ...
XMLDonnée("docxml","Cell5",XMLExact), ...
XMLDonnée("docxml","Cell6",XMLExact), ...
XMLDonnée("docxml","Cell7",XMLExact), ...
XMLDonnée("docxml","Cell8",XMLExact), ...
XMLDonnée("docxml","Cell9",XMLExact), ...
XMLDonnée("docxml","Cell10",XMLExact), ...
XMLDonnée("docxml","Cell11",XMLExact), ...
XMLDonnée("docxml","Cell12",XMLExact),...
XMLDonnée("docxml","Cell13",XMLExact), ...
XMLDonnée("docxml","Cell14",XMLExact), ...
XMLDonnée("docxml","Cell15",XMLExact), ...
XMLDonnée("docxml","Cell16",XMLExact), ...
XMLDonnée("docxml","Cell17",XMLExact), ...
XMLDonnée("docxml","Cell18",XMLExact),...
XMLDonnée("docxml","Cell19",XMLExact));
FIN
XMLSuivant("docxml")
FIN
XMLTermine("docxml")
SINON
Erreur("Aucun fichier n'a été sélectionné")
FIN |
Partager