Extraire le contenu d'une page web

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 283 fois - Téléchargée 31 fois

Contenu du snippet

Extraire le contenu d'une page Web

Source / Exemple :


CLEAR 
url="http://www.foxprofr.com"
loHTTP = CreateObject("MSXML2.XMLHTTP")
loHTTP.Open("GET", url, .F.)
loHTTP.Send
?(loHTTP.ResponseText)

A voir également

Ajouter un commentaire

Commentaires

Mike Gagnon
Messages postés
381
Date d'inscription
vendredi 15 octobre 2004
Statut
Membre
Dernière intervention
24 octobre 2013
2
Oui mais je préfère encore plus la flexibilité de ceci

1. No tags

oIE = createobject('internetexplorer.application')
oIE.Navigate('www.tek-tips.com')
lcStr=oIe.Document.body.innertext
?lcStr

2. With the HTML tags included.


CODE
oIE = createobject('internetexplorer.application')
oIE.Navigate('www.tek-tips.com')
lcStr=oIe.Document.body.innerHTML
?lcStr
FredArmoni
Messages postés
153
Date d'inscription
vendredi 2 mai 2003
Statut
Modérateur
Dernière intervention
2 avril 2010

Mike,
url="http://www.foxprofr.com/rss.aspx?type=code"
loHTTP = CreateObject("MSXML2.XMLHTTP")
loHTTP.Open("GET", url, .F.)
loHTTP.Send
StrToFile(loHTTP.ResponseText, "c:\test.xml")
modify file c:\test.xml
* voir à mettre en place :
* XMLtoCursor(loHTTP.ResponseText,...)

;)

Fred
bibi_81
Messages postés
345
Date d'inscription
jeudi 2 septembre 2004
Statut
Membre
Dernière intervention
25 octobre 2007

Yo, Il est tout nouveaux ce truc et je ne sais pas ce que c'est que le fowpro alor je pense déja a e l'HTML ou a autre chose mais bon pas trop quand même...

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.