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

**roots_man** · 12/01/2005, 17h53

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

**thor22** · 12/01/2005, 21h18

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.

**roots_man** · 13/01/2005, 09h24

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

Merci Thorr22

Pour les intéréssés :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Bonne journée !!

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

ASP

Partager

Partager