Extraire le contenu d'une page web

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 680 fois - Téléchargée 34 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
18 oct. 2004 à 20:04
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
18 oct. 2004 à 18:56
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
16 oct. 2004 à 09:35
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.