recuperer des zones d un fichier internet ?? |
Sujet: recuperer des zones d un fichier internet ?? par cdevl32 sur 7/8/2007 20:46:56 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 |