Discussion :

[manio]

Bonjour à tous,

débutant en vbs j'aimerai récupérer le résultat d'une requête http. (voir ici : http://www.ctqui.com/pro/infoshttp.asp).
Je pense pas que cela soit très compliqué.
J'ai déjà fais ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Set ie = CreateObject("InternetExplorer.Application")
dim adresse
adresse = "http://www.ctqui.com//pro/resultat.asp?................."
ie.Navigate (adresse)
Do While ie.Busy
WScript.Sleep (100)
Loop
WScript.Sleep (1000)
MsgBox ie.document.body.outerhtml
ie.Quit
Set ie=Nothing

J'obtiens la page mais avec les balises.....ce qui n'est pas très beau ....
Moi j'aimerai la récupérer sous la forme comme c'est montrer sur http://www.ctqui.com/pro/infoshttp.asp :
TROUVE;TOUR EIFFEL;CHAMP DE MARS;75007;PARIS;01 44 11 23 33;01 47 05 29 41;Vrai

Voila je vous remercie.

[omen999]

salut,
et ça ?

Code :

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

MsgBox ie.document.body.innerText

[manio]

Merci sa marche

sinon, j'ai trouvé un autre moyen plus rapide

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Set xmlHttp = CreateObject("MSXML2.ServerXMLHTTP")
urlCert = "http://www.om.net"
xmlHttp.Open "GET", urlCert, False
xmlHttp.Send ""
getHTML = xmlHttp.responseText
status = xmlHttp.status
xmlHttp.Abort
Set xmlHttp = Nothing
If status = 200 Then
    If Len(getHTML) > 0 Then
     msgbox(getHTML)
    End If
End If

[Fredledingue]

C'est beaucoups plus rapide en effet.
.responseText te rend toutefois le code source en html.

Le décortiquer pour en sortir les infos utile est tout un art.
Je démarre toujours comme ça:

Code :

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

1
2
MyHtml = Replace(Replace(MyHtml, VbCrlf, ""), ">", ">" & VbCrlf)
l=Split(MyHtlm, VbCrlf)

De telle sorte qu'il n'y a qu'une balise par ligne. Le text intéressant se trouvant forcément devant la balise.