bibi_81
Messages postés345Date d'inscriptionjeudi 2 septembre 2004StatutMembreDernière intervention25 octobre 2007
-
16 oct. 2004 à 09:35
Mike Gagnon
Messages postés381Date d'inscriptionvendredi 15 octobre 2004StatutMembreDernière intervention24 octobre 2013
-
18 oct. 2004 à 20:04
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
FredArmoni
Messages postés153Date d'inscriptionvendredi 2 mai 2003StatutModérateurDerniè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és345Date d'inscriptionjeudi 2 septembre 2004StatutMembreDernière intervention25 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...
18 oct. 2004 à 20:04
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
18 oct. 2004 à 18:56
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
16 oct. 2004 à 09:35