Bonjour,
je désire crée une fichier XML pour cela j'ai ecrit le code suivant:
POUR I=1 _A_ 7
XMLAjouteFils("Reponse","DayBased") XMLFils("Reponse") XMLDernier("Reponse") XMLAjouteFils("Reponse","UCPTindex",NumériqueVersChaîne(I,"1d")) XMLAjouteFils("Reponse","UCPTdescription",tabProgrammeHoraire[I+7][1]) XMLAjouteFils("Reponse","UCPTpriority","255") XMLAjouteFils("Reponse","Event") XMLFils("Reponse") XMLDernier("Reponse") XMLAjouteFils("Reponse","UCPTindex","0") XMLAjouteFils("Reponse","UCPTtime","00:00:00.000") XMLAjouteFils("Reponse","UCPTtimeDirection","TD_POSITIVE",Vrai) XMLAjouteAttribut("Reponse","LonFormat","#8000010128000000[4].UCPTtimeDirection") XMLParent("Reponse") XMLAjouteFils("Reponse","UCPTeventType","ET_LOCK",Vrai) XMLAjouteAttribut("Reponse","LonFormat","#8000010128000000[4].UCPTeventType") XMLParent("Reponse") XMLParent("Reponse") POUR J=1 _A_ 2 XMLAjouteFils("Reponse","Event") XMLFils("Reponse") XMLDernier("Reponse") XMLAjouteFils("Reponse","UCPTindex",NumériqueVersChaîne(J,"1d")) XMLAjouteFils("Reponse","UCPTtime","07:00:00.000") XMLAjouteFils("Reponse","UCPTvalue","EXTINCTION",Vrai) XMLAjouteAttribut("Reponse","LonFormat","") XMLParent("Reponse") XMLAjouteFils("Reponse","UCPTvalue","EXTINCTION",Vrai) XMLAjouteAttribut("Reponse","LonFormat","#8000010128000000[4].UCPTvalueDef") XMLParent("Reponse") XMLAjouteFils("Reponse","UCPTtimeDirection","TD_POSITIVE",Vrai) XMLAjouteAttribut("Reponse","LonFormat","#8000010128000000[4].UCPTtimeDirection") XMLParent("Reponse") XMLAjouteFils("Reponse","UCPTeventType","ET_NUL",Vrai) XMLAjouteAttribut("Reponse","LonFormat","#8000010128000000[4].UCPTeventType") XMLParent("Reponse") XMLParent("Reponse") FIN
//XMLParent("Reponse")
//XMLParent("Reponse") XMLAjouteFils("Reponse","Weekdays") XMLFils("Reponse") XMLDernier("Reponse") XMLAjouteFils("Reponse","UCPTsunday",tabProgrammeHoraire[I+7][2]) XMLAjouteFils("Reponse","UCPTmonday",tabProgrammeHoraire[I+7][3]) XMLAjouteFils("Reponse","UCPTtuesday",tabProgrammeHoraire[I+7][4]) XMLAjouteFils("Reponse","UCPTwednesday",tabProgrammeHoraire[I+7][5]) XMLAjouteFils("Reponse","UCPTthursday",tabProgrammeHoraire[I+7][6]) XMLAjouteFils("Reponse","UCPTfriday",tabProgrammeHoraire[I+7][7]) XMLAjouteFils("Reponse","UCPTsaturday",tabProgrammeHoraire[I+7][8]) XMLParent("Reponse") XMLParent("Reponse")
FIN
le probleme c'est que dans le resultat la premiere boucle n'est pas bonne. La balise </DayBase> se retrouve a la fin du fichier et non comme les autres boucle à la fin de la balise </Weekdays>
voici ce que j'obtient.
structure reduite
<?xml version="1.0" encoding="ISO-8859-1"?> -<DayBased> <UCPTindex>1</UCPTindex> <UCPTdescription>Dimanche</UCPTdescription> <UCPTpriority>255</UCPTpriority> +<Event> +<Event> +<Event> +<Weekdays> +<DayBased>---- +<DayBased>---- +<DayBased>---- +<DayBased>---- +<DayBased>---- +<DayBased>---- </DayBased
au lieu
<?xml version="1.0" encoding="ISO-8859-1"?> +<DayBased>---- +<DayBased>---- +<DayBased>---- +<DayBased>---- +<DayBased>---- +<DayBased>---- +<DayBased>----
Je ne comprend pas pourquoi la premiére boucle est fausse et pas les autres. |