Recuperer contenue page web.

Version imprimable

23/10/2015, 16h49
loupi2004

Recuperer contenue page web.

Bonjour
Je dois récupérer le contenu d'une page web après le chargement de la page terminée et le stocker dans un fichier txt.
Le seul hic cest que mon adresse http ressemble un peu à ca :
Http://192.168.13.76:5674<requete1>?XML"1.0".... Bref voilà. J'ai fais un script qui marche très bien pour une page web standard mais pour ça non. Help. Si vous avec un code plus fonctionnel que le mien.
Merci d'avance.
23/10/2015, 16h58
hackoofr

Citation:

Envoyé par loupi2004

Bonjour
Je dois récupérer le contenu d'une page web après le chargement de la page terminée et le stocker dans un fichier txt.
Le seul hic cest que mon adresse http ressemble un peu à ca :
Http://192.168.13.76:5674<requete1>?XML"1.0".... Bref voilà. J'ai fais un script qui marche très bien pour une page web standard mais pour ça non. Help. Si vous avec un code plus fonctionnel que le mien.
Merci d'avance.

:salut:
Et c'est quoi votre code ??? postez-le !

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Option Explicit
Dim Ws,Fso,MaCopie,URL,LogFile
Set Ws = CreateObject("Wscript.Shell")
Set Fso = CreateObject("Scripting.FileSystemObject")
LogFile = Left(Wscript.ScriptFullName, InstrRev(Wscript.ScriptFullName, ".")) & "txt"
if Fso.FileExists(LogFile) Then
    Fso.DeleteFile LogFile
end if
URL = "http://192.168.1.55:5166/bobyt/Dispatcher?action=synchro&data=<?xml version=\"1.0\" encoding=\"UTF-8\"?><synchro><favori><id>435443534</id></favori><favori_rete><id>6229536</id></favori_rete><database>toto</database></synchro>"
MaCopie = CopierColler(URL)
Call WriteLog(MaCopie)
Ws.Run DblQuote(LogFile)
'******************************************************************************************************************************************
Function CopierColler(URL)
    Dim ie
    Set ie = CreateObject("InternetExplorer.Application") 
    ie.Navigate(URL)
    ie.Visible=false
    DO While ie.busy
    Loop
    CopierColler = ie.document.documentElement.innertext 
    ie.Quit 
    Set ie=Nothing
End Function
'******************************************************************************************************************************************
Sub WriteLog(strText)
    Dim fs,ts 
    Const ForAppending = 8
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set ts = fs.OpenTextFile(Left(Wscript.ScriptFullName, InstrRev(Wscript.ScriptFullName, ".")) & "txt", ForAppending, True)
    ts.WriteLine strText
    ts.Close
End Sub
'******************************************************************************************************************************************
Function DblQuote(Str)
    DblQuote = Chr(34) & Str & Chr(34)
End Function
'*************************************************************************************************************************************

23/10/2015, 18h52
loupi2004

Des idées ?
23/10/2015, 20h15
Marc-L

Bonjour,

oui, c'est dommage d'utiliser IE au lieu d'une requête
(via ActiveX MSXML2.XMLHttp ou WinHttp.WinHttpRequest.5.1, voir aussi leur propriété responseText) …

_____________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse
24/10/2015, 00h05
loupi2004

Peux tu me faire un exemple ?
24/10/2015, 04h21
Marc-L
Voir la documentation sur MSDN … Et les exemples partout sur le Web !
Code:

1 2 3 4 5 With CreateObject("MSXML2.XMLHTTP") .open "GET", URL, False .send If .status = 200 Then T = .responseText End With
_____________________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …
24/10/2015, 09h29
loupi2004

Merci à toi pour la réponse.

Le hic c'est que mon script fonctionne tres bien avec une adresse du type http : //www.***.fr. Mais avec mon adresse bon. J'ai remarqué que sur mon adresse il y a des espace, des points dinterrogation, des balises d'ouverture et de fermeture ainsi que des guillemets. Peut être qu'il supporte pas les caractères spéciaux ??
24/10/2015, 15h41
Marc-L

Non, c'est que ton adresse n'est pas une page Web mais un fichier texte xml !?

Dans ce cas, consulter les tutoriels sur le XML … Mais mon exemple suffit pour du texte !

Le même script proposé par Marc-L écrit autrement.
Ta requête ne recoit pas un page HTML
Avec le code (dessus ou dessous), ton fichier texte contient la réponse.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim oXMLHTTP, oStream, sURL, sFile
 
sURL = "http://club.developpez.com/contacts/"
sFile = "Test.txt"
 
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP.3.0")
oXMLHTTP.Open "GET", sURL, False
oXMLHTTP.Send
 
If oXMLHTTP.Status = 200 Then
	Set oStream = CreateObject("ADODB.Stream")
	oStream.Open
	oStream.Type = 1
	oStream.Write oXMLHTTP.responseBody
	oStream.SaveToFile sFile
	oStream.Close
End If