Discussion :

[rsvincef1]

Bonjour à tous,
Je cherche le moyen de pouvoir récupérer avec un script le contenu de la balise title d'un site distant.
J'avoue ne pas être trop à l'aise avec le VBS.

J'ai essayé avec ce script, mais j'arrive pas à écrire le contenu de la variable sData dans un fichier temporaire, de façon à pouvoir par la suite parcourir ce fichier de façon à récupérer les informations de la balise title.

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
 
dim sData
sData = GetXml("http://www.lesite.fr" )
Function GetXml(sURL)
	Dim Xml
	Set Xml = CreateObject("Microsoft.XMLHTTP" )
	Xml.Open "GET", sURL
	Xml.send
	Do: wscript.sleep 10: Loop While Xml.ReadyState <> 4
	GetXml = Xml.responseText
 
	Const ForReading = 1, ForWriting = 2
	Set WshShell = WScript.CreateObject("WScript.Shell")
	Set fso = CreateObject("Scripting.FileSystemObject")
	Set fichier = fso.OpenTextFile("C:\temp.txt", ForWriting,true)
	fichier.write(GetXml)
	fichier.close()
End Function

Merci à tous pour votre aide.
Vincent,

[l_autodidacte]

Salut;

A ta place, j'organiserais mon code ainsi :

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 sData
sData = GetXml("http://www.developpez.net/forums/f292/autres-langages/general-visual-basic-6-vbscript/vbscript/" )
 
	Const ForReading = 1, ForWriting = 2
	Set WshShell = WScript.CreateObject("WScript.Shell")
	Set fso = CreateObject("Scripting.FileSystemObject")
	Set fichier = fso.OpenTextFile("C:\temp.txt", ForWriting,true)
	fichier.write(sData)
	fichier.close()
Function GetXml(sURL)
	Dim Xml
	Set Xml = CreateObject("Microsoft.XMLHTTP" )
	Xml.Open "GET", sURL
	Xml.send
	Do: wscript.sleep 10: Loop While Xml.ReadyState <> 4
	GetXml = Xml.responseText
End Function

je mettrais une URL valide et le tour est joué !

[rsvincef1]

Merci pour ta réponse.
Le script fonctionne très bien pour ton site, ou google par exemple.
Mais dès que je renseigne le mien, j'ai une erreur 800A0005.
L'erreur vient de la ligne 8, au moment d'écrire dans le fichier.
Je regarde ça et te tiens au courant, sinon je t'ai envoyé par MP le site en question.

Merci d'avance,

[rsvincef1]

Finalement j'ai contourné le problème.
Je récupère avec la fonction "inStr" si la chaine que je recherche dans la balise <title> est bien présente ou pas. Si elle est présente, j'écris dans un fichier tmp et ensuite je fais mon traitement dans un classique batch dos.

Merci beaucoup pour ton aide en tout cas,

Vincent