1. Accueil
  2. Tous les snippets
  3. Snippets Foxpro
  4. Extraire le contenu d'une page web

Extraire le contenu d'une page web

Soyez le premier à donner votre avis sur cette source.

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

Commenter

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

Signaler
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
Signaler
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
Signaler
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...
S'inscrire maintenant

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.

Du même auteur (Mike Gagnon)