IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

VBS - Balise Title


Sujet :

VBScript

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    Technicien Help Desk
    Inscrit en
    Septembre 2010
    Messages
    16
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 45
    Localisation : France, Sarthe (Pays de la Loire)

    Informations professionnelles :
    Activité : Technicien Help Desk
    Secteur : Service public

    Informations forums :
    Inscription : Septembre 2010
    Messages : 16
    Par défaut VBS - Balise Title
    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,

  2. #2
    Modérateur
    Avatar de l_autodidacte
    Homme Profil pro
    Retraité : Directeur de lycée/Professeur de sciences physiques
    Inscrit en
    Juillet 2009
    Messages
    2 420
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 69
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Retraité : Directeur de lycée/Professeur de sciences physiques
    Secteur : Enseignement

    Informations forums :
    Inscription : Juillet 2009
    Messages : 2 420
    Par défaut
    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é !
    Ne pas oublier le tag si satisfait.
    Voter pour toute réponse satisfaisante avec pour encourager les intervenants.
    Balises CODE indispensables. Regardez ICI
    Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA) et Ne jamais typer variables et/ou fonctions en VBS.
    Vous pouvez consulter mes contributions
    Ne pas oublier de consulter les différentes FAQs et les Cours/Tutoriels VB6/VBScript
    Ne pas oublier L'Aide VBScript et MSDN VB6 Fr

  3. #3
    Membre averti
    Homme Profil pro
    Technicien Help Desk
    Inscrit en
    Septembre 2010
    Messages
    16
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 45
    Localisation : France, Sarthe (Pays de la Loire)

    Informations professionnelles :
    Activité : Technicien Help Desk
    Secteur : Service public

    Informations forums :
    Inscription : Septembre 2010
    Messages : 16
    Par défaut
    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,

  4. #4
    Membre averti
    Homme Profil pro
    Technicien Help Desk
    Inscrit en
    Septembre 2010
    Messages
    16
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 45
    Localisation : France, Sarthe (Pays de la Loire)

    Informations professionnelles :
    Activité : Technicien Help Desk
    Secteur : Service public

    Informations forums :
    Inscription : Septembre 2010
    Messages : 16
    Par défaut
    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

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Customiser balise title d'une liste déroulante
    Par brasco06 dans le forum Général JavaScript
    Réponses: 1
    Dernier message: 30/10/2006, 10h59
  2. [PHP-JS] Extraire le contenu des balises title
    Par renaud26 dans le forum Langage
    Réponses: 5
    Dernier message: 24/10/2006, 15h23
  3. [Tableaux] Balise title d'une page web
    Par Invité dans le forum Langage
    Réponses: 4
    Dernier message: 12/01/2006, 18h25
  4. Récupérer le contenu de la balise title
    Par roots dans le forum Langage
    Réponses: 2
    Dernier message: 11/09/2005, 16h17
  5. Problème formatage dans balise title / alt
    Par jflebegue dans le forum Mise en page CSS
    Réponses: 9
    Dernier message: 09/12/2004, 15h18

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo