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

Messages postés
134
Date d'inscription
jeudi 31 juillet 2008
Statut
Membre
Dernière intervention
15 février 2011
- - Dernière réponse : PCPT
Messages postés
13298
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
- 9 déc. 2008 à 16:03
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.
Afficher la suite 

9 réponses

Meilleure réponse
Messages postés
13298
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
28
3
Merci
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 

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 217 internautes nous ont dit merci ce mois-ci

Commenter la réponse de PCPT
Messages postés
134
Date d'inscription
jeudi 31 juillet 2008
Statut
Membre
Dernière intervention
15 février 2011
1
3
Merci
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

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 217 internautes nous ont dit merci ce mois-ci

Commenter la réponse de dsigmoun
Messages postés
114
Date d'inscription
lundi 5 février 2007
Statut
Membre
Dernière intervention
10 septembre 2010
0
Merci
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 !
Commenter la réponse de xpert12
Messages postés
13298
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
28
0
Merci
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 
Commenter la réponse de PCPT
Messages postés
114
Date d'inscription
lundi 5 février 2007
Statut
Membre
Dernière intervention
10 septembre 2010
0
Merci
ben je me coucherai moins con ce soir !!! merci
Commenter la réponse de xpert12
Messages postés
134
Date d'inscription
jeudi 31 juillet 2008
Statut
Membre
Dernière intervention
15 février 2011
1
0
Merci
Xpert12,

Je n'ai pas trouvé l'article dont tu parles sur www.codyx.org
Commenter la réponse de dsigmoun
Messages postés
134
Date d'inscription
jeudi 31 juillet 2008
Statut
Membre
Dernière intervention
15 février 2011
1
0
Merci
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>")
Commenter la réponse de dsigmoun
Messages postés
134
Date d'inscription
jeudi 31 juillet 2008
Statut
Membre
Dernière intervention
15 février 2011
1
0
Merci
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
Commenter la réponse de dsigmoun
Messages postés
13298
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
28
0
Merci
n'hésite pas à contacter l'auteur du "snippet" pour l'en informer
Commenter la réponse de PCPT