Charger fichier php et récupérer le titre de la page [Résolu]

Signaler
Messages postés
134
Date d'inscription
jeudi 31 juillet 2008
Statut
Membre
Dernière intervention
15 février 2011
-
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
-
Bonjour,

J'ai besoin de charger une information qui se trouve dans le titre d'une page .php

Comment peut-on procéder au changement de la page et à la récupération de son titre ?

Merci d'avance pour votre aide.

9 réponses

Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
35
F1 ou même les exemples de codyx ou la msdn te donnent l'utilisation de substring....
ce n'est pas "chaine de début" à "chaine de fin"
pour çà :



<hr />
'    RÉCUPÉRER UNE CHAÎNE (INCONNUE) PLACÉE ENTRE DEUX CHAÎNES
(CONNUES)
'    http://www.codyx.org/snippet_recuperer-chaine-inconnue-placee-entre-deux-chaines-connues_334.aspx#1046
'    Posté par [ Charles Racaud ] le 04/03/2007
<hr />





Private Function MidStr(ByVal Str As String, ByVal sStart As String, ByVal sEnd As String, Optional ByVal Start As Integer = 30) As String
  Try
    Dim iStart As Integer = Str.IndexOf(sStart, Start) + 1
    Dim iEnd As Integer = Str.IndexOf(sEnd, iStart)
    Return Str.Substring(iStart, iEnd - iStart)
  Catch ex As Exception
    Return String.Empty
  End Try
End Function









comme on le voit ici, substring attend bien les positions. c'est aussi ce qu'indique clairement le message d'erreur
++

<hr size="2" width="100%" />
Prenez un instant pour répondre à [sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp 
Messages postés
134
Date d'inscription
jeudi 31 juillet 2008
Statut
Membre
Dernière intervention
15 février 2011
2
Voila j'ai rectifié une partie de ligne

  Try
            Dim iStart As Integer = Str.IndexOf(sStart, Start) + sStart.Length.ToString
            Dim iEnd As Integer = Str.IndexOf(sEnd, iStart)
            Return Str.Substring(iStart, iEnd - iStart)
        Catch ex As Exception
            Return String.Empty
        End Try
Messages postés
114
Date d'inscription
lundi 5 février 2007
Statut
Membre
Dernière intervention
10 septembre 2010

bonjour,

il te suffit de charger la page en question html, php, asp... dans un webbrowser

pour charger la page, la commande est de type :
WebBrowser1.Navigate http://www.lesite.com/index.php"

et de faire une recherche dans le code source.

Si tu veux charger directement le code source (avec les balises) :
textbox1.text=WebBrowser1.Document.documentElement.innerHTML

ou si tu ne veux garder que les infos texte :
textbox1.text=WebBrowser1.Document.body.innerText

en espérant que ça puisse t'aider !
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
35
salut,

passer par un objet à cacher pour çà?

voir www.codyx.org pour "télécharger une page web" ou sa source....
puis avec source.substring, tu récupères le texte entre <title> et </title>

++

<hr size="2" width="100%" />
Prenez un instant pour répondre à [sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp 
Messages postés
114
Date d'inscription
lundi 5 février 2007
Statut
Membre
Dernière intervention
10 septembre 2010

ben je me coucherai moins con ce soir !!! merci
Messages postés
134
Date d'inscription
jeudi 31 juillet 2008
Statut
Membre
Dernière intervention
15 février 2011
2
Xpert12,

Je n'ai pas trouvé l'article dont tu parles sur www.codyx.org
Messages postés
134
Date d'inscription
jeudi 31 juillet 2008
Statut
Membre
Dernière intervention
15 février 2011
2
Voici le code que je viens de mettre. Cependant, j'ai le message d'erreur suivant : La conversion de la chaîne "<title>" en type 'Integer' n'est pas valide.

 Dim webResponse As System.Net.WebResponse = Nothing
        Dim path As String = adresse du lien

        System.Windows.Forms.Application.DoEvents()
        ' Création de la request et demande de la response
        webResponse = System.Net.WebRequest.Create(path) _
            .GetResponse()
        Dim streamReader As New System.IO.StreamReader(webResponse.GetResponseStream())
        TextBox1.Text = streamReader.ReadToEnd()
        webResponse.Close()

        Label1.Text = TextBox1.Text.Substring("<title>", "</title>")
Messages postés
134
Date d'inscription
jeudi 31 juillet 2008
Statut
Membre
Dernière intervention
15 février 2011
2
Celaa marche, mais...

Le problème cependant est qu'il retourne en réponse une partie de l'élément sStart

Pour une recherche de ce qu'il y a entre <title>  et </title>, il me retourne title>xxxxxxx
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
35
n'hésite pas à contacter l'auteur du "snippet" pour l'en informer