Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1675 connectés 

  FORUM HardWare.fr
  Programmation
  XML/XSL

  Parcours XML + boucle : WINDEV

 
 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Parcours XML + boucle : WINDEV

n°1751248
Roken
Acheteur Compulsif !
Posté le 25-06-2008 à 17:15:55  profilanswer
 

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

mood
Publicité
Posté le 25-06-2008 à 17:15:55  profilanswer
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  XML/XSL

  Parcours XML + boucle : WINDEV

 

Sujets relatifs
BD XML eXist et XQueryProblème avec XML::Simple
probleme de boucle pourXML_C++
probleme avec une boucle if en cshellUn petit batch avec boucle / Call / parametre et condition
Mappage XML sous Excel[Windev] Intégration de fichier texte venant d'un tab sage dans un HF
Boucle whichParser un fichier XML
Plus de sujets relatifs à : Parcours XML + boucle : WINDEV

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.092 secondes

Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR