Re: Comment récupérer des données sur internet ??

Posté par drcharly93 le 27/8/2003 9:40:39

Salut Oceans

Voici un bout de code tester qui fonctionne

sSource est une chaîne
Res est une chaîne
nPos est un entier
nPos2 est un entier
Texte1 est une chaîne = "name="+Caract(34)+"resultat"+Caract(34)

SI PAS HTTPRequête("http://www.fininfo.fr/fininfo/GetChanges.event?DeviseInSelector=USD&DeviseOutSelector=EUR")ALORS RETOUR
sSource = HTTPDonneRésultat()
fSauveTexte(fRepEnCours()+"\Devise.html",sSource)
nPos = Position(sSource,Texte1,1)
nPos = Position(sSource,"value=",nPos)
nPos2 = Position(sSource,">",nPos)
Res = sSource[[nPos+Taille("Value=")+1 A nPos2-1]]

Res contient Le résultat de la demande
Le fichier 'Devise.html' est la page generer par la demande HTTPRequete.

A+