Re: petit tutorial ??

Posté par cdevl32 le 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.