Charger fichier php et récupérer le titre de la page

Résolu
dsigmoun
Messages postés
134
Date d'inscription
jeudi 31 juillet 2008
Statut
Membre
Dernière intervention
15 février 2011
- 8 déc. 2008 à 15:01
PCPT
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
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.

9 réponses

PCPT
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
49
8 déc. 2008 à 21:50
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 
3
dsigmoun
Messages postés
134
Date d'inscription
jeudi 31 juillet 2008
Statut
Membre
Dernière intervention
15 février 2011
2
9 déc. 2008 à 13:55
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
3
xpert12
Messages postés
114
Date d'inscription
lundi 5 février 2007
Statut
Membre
Dernière intervention
10 septembre 2010

8 déc. 2008 à 15:24
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 !
0
PCPT
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
49
8 déc. 2008 à 15:50
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 
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
xpert12
Messages postés
114
Date d'inscription
lundi 5 février 2007
Statut
Membre
Dernière intervention
10 septembre 2010

8 déc. 2008 à 16:03
ben je me coucherai moins con ce soir !!! merci
0
dsigmoun
Messages postés
134
Date d'inscription
jeudi 31 juillet 2008
Statut
Membre
Dernière intervention
15 février 2011
2
8 déc. 2008 à 18:07
Xpert12,

Je n'ai pas trouvé l'article dont tu parles sur www.codyx.org
0
dsigmoun
Messages postés
134
Date d'inscription
jeudi 31 juillet 2008
Statut
Membre
Dernière intervention
15 février 2011
2
8 déc. 2008 à 18:36
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>")
0
dsigmoun
Messages postés
134
Date d'inscription
jeudi 31 juillet 2008
Statut
Membre
Dernière intervention
15 février 2011
2
9 déc. 2008 à 12:52
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
0
PCPT
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
49
9 déc. 2008 à 16:03
n'hésite pas à contacter l'auteur du "snippet" pour l'en informer
0