Re: petit tutorial ?? |
Sujet: Re: petit tutorial ?? par cdevl32 sur 23/8/2007 22:17:20 Bonsoir, Je voudrais récupérer des données d'un site internet (http://www.boursorama.com/opcvm/opcvm.phtml). Mon code fonctionne en partie. J'ai un champ texte "code de placement" où on indique le code de l'action. J'ai un autre champ texte "cours" où là il m'indique bien le montant de l'action qui correspond au code de l'autre champ. Jusque là, tout fonctionne bien. Maintenant je voudrais qu'il m'indique le titre de cette action dans un autre champ texte. Là, je n'y parvient pas. Voici mon code source (ce code ne fonctionne que pour le cours de l'action, et j'aimerais pouvoir l'adapter pour qu'il fonctionne pour que puisse récupérer d'autres données de ce site, comme par ex., le champ "title" ...)' : // detection des erreurs eventuelles QUAND EXCEPTION Erreur(ExceptionInfo()) RETOUR FIN // site internet ou le cours est publié sURL est une chaîne sURL= "http://www.boursorama.com/opcvm/opcvm.phtml" // code placement en ligne de commande sURL+="?code="+SAI_CODE // accès au site web Sablier(Vrai) SI PAS HTTPRequête(SansEspace(sURL)) ALORS Erreur(" Problème de lecture de la page "+sURL) Sablier(Faux) RETOUR FIN // téléchargement du contenu de la page sContenu, sCours sont des chaînes sContenu = HTTPDonneRésultat() //recherche du cours dans la page HTML // d apres les balise indiquéees sBalise1, sBalise2, sBalise3 sont des chaînes sBalise1 ="<td nowrap align=left>Valeur liquidative</td>" sBalise2 ="<td align=right><B>" sBalise3 =" EUR " nPDebut, nPFin sont des entiers // recherche de la balise de debut nPDebut=Position(sContenu,SansEspace(sBalise1))+Taille(SansEspace(sBalise1)) SI PAS sBalise2~=" " ALORS // 2éme balise nécessaire pour se positionner au début nPDebut=Position(sContenu,SansEspace(sBalise2), nPDebut) +Taille(SansEspace(sBalise2)) FIN // recherche de la balise de fin nPFin=Position(sContenu,SansEspace(sBalise3), nPDebut) // extraction du cours sCours=SansEspace(sContenu[[nPDebut A nPFin]]) // formatage du cours renvoyé sCours=Remplace(sCours," ", "") sCours=Remplace(sCours," ,",".") // affichage SAI_Cours=Val(sCours) // fin Sablier(Faux) Merci pour votre aide. |