recuperer des zones d un fichier internet ??

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