Parcours XML + boucle : WINDEV

Parcours XML + boucle : WINDEV - XML/XSL - Programmation

Marsh Posté le 25-06-2008 à 17:15:55    

bonjour,
 
j'ai actuellement un problème avec un flux RSS que je voudrais décoder via une appli windev.
 
Voilà le code de l'appli, en gros je veux parcourir mon fichier ça marche nickel chrome mais du moment que j'intègre les boucles et bien là j'ai un problème ca fonctionne pas du tout.
Ca m'affiche bien le sous-total, escompte, livraison, taxe , total TTC... J'arrive aussi à avoir le le title mais a la balise link il m'affiche ce qui est dans le pubdate alors que sans la boucle ca fonctionne et la partie reference , designation, quentité ne fonctionne pas alors qu'elle aussi fonctionne sans sa boucle.
 
merci d'avance pour l'aide.  
 
PS: je ne suis qu'un débutant dans windev et en stage oops:  :oops:  
 
merci d'avance  
 

Code :
  1. //On accede à la racine du document RSS
  2. //Et on le parcourt
  3. XMLRacine("DocXML" )
  4. XMLFils("DocXML" )
  5. XMLSuivant("DocXML" )
  6. XMLFils("DocXML" )
  7. XMLSuivant("DocXML" )
  8. XMLSuivant("DocXML" )
  9. XMLSuivant("DocXML" )
  10. XMLSuivant("DocXML" )
  11. XMLSuivant("DocXML" )
  13. //Partie à analyser
  14. TANTQUE XMLEnDehors("DocXML" ) = Faux
  16. //Balise <item>
  17. XMLSuivant("DocXML" )
  18. //Balise <title> contient le numéro de commande avec la date de creation
  19. XMLFils("DocXML" )
  20. sTitle est une chaîne = (XMLDonnée("DocXML" ))
  21. //Extraction du CDATA qui se trouve dans la chaine afin de pouvoir la traiter (appel la procédure CDATA)
  22. sTitle = extraitCDATA(sContenuXML,"title",2)
  23. //Balise <link> qui contient le lien pour arriver à la fiche de la commande détaillé
  24. XMLSuivant("DocXML" )
  25. sLink est une chaîne = (XMLDonnée("DocXML" ))
  26. //Balise de <description>  
  27. XMLSuivant("DocXML" )
  28. sDescription est une chaîne = (XMLDonnée("DocXML" ))
  29. //on enleve le CDATA
  30. sDescription = extraitCDATA(sContenuXML, "description",2)
  31. //On retraite le contenu de description
  32. SI sDescription <> "" ALORS
  33.  // Creation du document XML
  34.  Res = XMLDocument("DocXMLDescription", sDescription)
  36.  // Le document est cree ?
  37.  SI Res = Faux ALORS
  38.   SI EnModeTest() ALORS Trace("Le document n`a pas pu etre cree." )
  39.  FIN       
  40. FIN
  41. Info(sTitle)
  42. //Balise de <commande>
  43. XMLRacine("DocXMLDescription" )
  45. //Boucle qui liste tous les produits d'une commande
  47. TANTQUE XMLEnDehors("DocXMLDescription" ) = Faux
  49.  //Balise de <produit>
  50.  XMLFils("DocXMLDescription" )
  51.  //balise de <reference>  
  52.  XMLFils("DocXMLDescription" )
  53.  sReference est une chaîne = (XMLDonnée("DocXMLDescription" ))
  54.  //Balise de <désignation>  
  55.  XMLSuivant("DocXMLDescription" )
  56.  sDesignation est une chaîne = (XMLDonnée("DocXMLDescription" ))
  57.  //Balise de <quantite>  
  58.  XMLSuivant("DocXMLDescription" )
  59.  rquantite est une réel = (XMLDonnée("DocXMLDescription" ))
  60.  //Balise <total> ( total d'un produit)
  61.  XMLSuivant("DocXMLDescription" )
  62.  rTotal est un réel = (XMLDonnée("DocXMLDescription" ))
  64. FIN
  66. //On remonte a la balise parent qui est <produit>
  67. XMLParent("DocXMLDescription" )
  68. //on descend à la balise <sousTotal>
  69. XMLSuivant("DocXMLDescription" )
  70. rSoustotal est une réel = (XMLDonnée("DocXMLDescription" ))
  71. //Balise <escompte>
  72. XMLSuivant("DocXMLDescription" )
  73. rEscompte est un réel = (XMLDonnée("DocXMLDescription" ))
  74. //Balise <livraison>
  75. XMLSuivant("DocXMLDescription" )
  76. rLivraison est un réel = (XMLDonnée("DocXMLDescription" ))
  77. //Balise <Taxe>
  78. XMLSuivant("DocXMLDescription" )
  79. rTaxe est un réel = (XMLDonnée("DocXMLDescription" ))
  80. //Balise <totalTTC>
  81. XMLSuivant("DocXMLDescription" )
  82. rTotalTCC est un réel = (XMLDonnée("DocXMLDescription" ))
  84. XMLTermine("DocXMLDescription" )
  86. FIN
  88. //Arrete le traitement de la feuille XML
  89. XMLTermine("DocXML" )

:
la source XML/RSS

Code :
  1. <?xml version="1.0" encoding="UTF-8"?>
  2. <rss xmlns:content="http://purl.org/rss/1.0/modules/content/" version="2.0">
  3.   <channel>
  4.     <title><![CDATA[New Orders]]></title>
  5.     <link>****</link>
  6.     <description><![CDATA[New Orders]]></description>
  7.     <pubDate>Wed, 25 Jun 2008 12:25:51 +0000</pubDate>
  8.     <generator>Zend_Feed</generator>
  10.     <docs>http://blogs.law.harvard.edu/tech/rss</docs>
  11.     <item>
  12.       <title><![CDATA[Order #100000007 created at 24/06/08]]></title>
  13.       <link>*****</link>
  14.       <description><![CDATA[
  15. <commande> <produit>
  16.           <reference>           ****         </reference>             <designation>              *****             </designation>             <quantite>              1
  17.              </quantite>             <total>                           </total>               
  18. </produit>             <soustotal>     37.2100             </soustotal>         
  19.           <escompte>      </escompte>    <livraison>                   10.0000 
  20.                 </livraison>        <taxe>                      9.2500                </taxe>    <totalTTC>              56.4600             </totalTTC>
  21. </commande>]]></description>
  22.       <pubDate>Wed, 25 Jun 2008 12:25:51 +0000</pubDate>
  23.     </item>
  25.     <item>
  26.       <title><![CDATA[Order #100000006 created at 21/06/08]]></title>
  27.       <link>******</link>
  28.       <description><![CDATA[
  29. <commande> <produit>
  30.           <reference>           ****          </reference>             <designation>              *****            </designation>             <quantite>              1
  31.              </quantite>             <total>                           </total>               
  32. </produit>             <soustotal>     25.0000             </soustotal>         
  33.           <escompte>      </escompte>    <livraison>                   10.0000 
  34.                 </livraison>        <taxe>                      6.8600                </taxe>    <totalTTC>              41.8600             </totalTTC>
  35. </commande>]]></description>
  36.       <pubDate>Wed, 25 Jun 2008 12:25:51 +0000</pubDate>
  37.     </item>
  38.   </channel>
  39. </rss>

:P

Reply

Marsh Posté le 25-06-2008 à 17:15:55   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed