Aide : Server.CreateObject("Microsoft.XMLHTTP")

Version imprimable

Heeeep,

alors voila je vous expose mon problème :

je récupère le code d'une page sur internet de la manière suivante :
Code:

1 2 3 4 5 6 <%url= "UrlQueJeChoppeLeCode" Dim objHttpRequest Set objHttpRequest = Server.CreateObject("Microsoft.XMLHTTP") objHttpRequest.open "GET",url,False objHttpRequest.send bjPage = objHttpRequest.responsetext%>
la variable "bjPage" me retourne tout le code de cette page y compris <html><head> et tout le javascript etc...

Donc j'aimerais savoir comment faire pour effacer ce code ou bien selectionner que une table de ce code..

Merci d'avance 8)

12/01/2005, 21h18
Invité

En utilisant la fonction "InStr" avec une chaîne de caractère représentant le début de ta table, tu peux effacer le debut du code reçu avec "right".

Et tu fais la même chose pour trouver la position de la fin du tableau et utiliser "left" pour enlever la fin du code.

Voila donc j'ai résolu mon problème

Merci Thorr22 :P

Pour les intéréssés :

Code:

1
2
3
4
5
6
7
8
9
10
11
url= "UrlQueJeChoppeLeCode"
Dim objHttpRequest 
Set objHttpRequest = Server.CreateObject("Microsoft.XMLHTTP") 
objHttpRequest.open "GET",url,False 
objHttpRequest.send
bjPage = objHttpRequest.responsetext
avant = inStr(bjPage, "</TABLE>") 'nbre de caractère avant </table> =  4511
finTable = left(bjPage,avant) 'code jusqu'à </table>
apres = inStr(bjPage, "<table") 'nbre de caractère avant <table =  1057
entre = avant - apres 'nbre de caractère entre <table> & </table>
finale = "<" & right(finTable, entre)%>

Et la la variable "finale" me sort mon tableau :D

Bonne journée !!