Discussion :

[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.

[hackoofr]

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.

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

[loupi2004]

Code :

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

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
'*************************************************************************************************************************************

[loupi2004]

Des idées ?

[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

[loupi2004]

Peux tu me faire un exemple ?

[Marc-L]

Voir la documentation sur MSDN … Et les exemples partout sur le Web !

Code :

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

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 pour chaque message ayant aidé puis sur pour clore cette discussion …

[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 ??

[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 !

[habot]

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 :

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

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