|
recuperer des zones d un fichier internet ?? |
|
---|---|---|
Stagiaire WDF
Inscrit:
29/07/2007 00:31 Post(s): 19
|
bonsoir,
J'ai créé une fenêtre avec 3 champs saisies (SAI_CODE ; SAI_PLACEMENT; SAI_Cours) et 2 boutons ("site web" et "lecture"). Le bouton "site web" sert à exécuter la page internet en incluant le code du placement dans le champ SAI_CODE. // site internet ou le cours est publieé sURL est une chaîne sURL= "http://www.boursorama.com/opcvm/opcvm.phtml" // code placement en ligne de commande sURL+="?code="+SAI_CODE // visualisation sur site web LanceAppliAssociée(sURL) Le bouton "lecture" sert à extraire les données du site et à les implémenter dans les champs SAI_CODE et SAI_PLACEMENT. Le problème est que lorsque je clique sur "lecture", il ne fait rien. Voici le code du bouton de lecture : // 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 " pDebut, pFin sont des chaînes // recherche de la balise de debut pDebut=Position(sContenu,SansEspace(sBalise1))+Taille(SansEspace(sBalise1)) SI PAS sBalise2~=" " ALORS // 2éme balise nécessaire pour se positionner au début pDebut=Position(sContenu,SansEspace(sBalise2))+Taille(SansEspace(sBalise2)) FIN // recherche de la balise de fin pFin=Position(sContenu,SansEspace(sBalise3)) // extraction du cours sCours=SansEspace(sContenu[[pDebut A pFin]]) // formatage du cours renvoyé sCours=Remplace(sCours," ", "") sCours=Remplace(sCours," ,",".") // affichage SAI_Cours=Val(sCours) // fin Sablier(Faux) Pouvez vous m aider svp ? Merci à vous bonne soiree
Contribution le : 07/08/2007 20:46
|
|
Vous ne pouvez pas débuter de nouveaux sujets.
Vous pouvez voir les sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.