Sujet Précédent Sujet Suivant

Récupéré du text entre balise sur un site

Birkin VB Messages postés 26 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 25 octobre 2009 - 18 août 2009 à 06:36
Calade Messages postés 1207 Date d'inscription dimanche 20 avril 2003 Statut Membre Dernière intervention 4 juin 2016 - 18 août 2009 à 08:44
Bonjour je voulais recupéré le text entre les balise en utilisent

Private Function MyMid(ByRef Expression As String, sLeft As String, sRight As String, Optional Start As Long = 1) As String
Dim lPosL As Long, lPosR As Long
lPosL InStr(Start, Expression, sLeft): lPosR InStr(lPosL + 1, Expression, sRight)
If lPosL > 0 And lPosR > 0 Then
MyMid = Mid$(Expression, lPosL + Len(sLeft), lPosR - lPosL - Len(sLeft))
Else
MyMid = vbNullString
End If
End Function

Private Sub Command1_Click()
Dim sStr As String
text1.Text = MyMid("http://skyrock.com/", "<title>","</title>")
End Sub

mes le probléme c que quand je clique il ne m'afiche rien comment faire merci


birkin VB

1 réponse

Réponse 1 / 1
Calade Messages postés 1207 Date d'inscription dimanche 20 avril 2003 Statut Membre Dernière intervention 4 juin 2016 10
18 août 2009 à 08:44
Bonjour,

Tu passes à ta fonction une chaîne de caractères (et non pas la source de la page, si c'était ton objectif) qui ne contient pas la balise en question, voilà pourquoi ta fonction ne retourne rien.


Calade
0

Discussions similaires

Rendre mon site modifiable par l'utilisateur
daz59000 -
Bidou -

6 réponses
admin
mima0123 -
arkonara -

3 réponses
Espace admin
lebogoss28104 -
lebogoss28104 -

5 réponses
Création d'un compte Admin
scoubidou944 -
scoubidou944 -

2 réponses
Pré-remplir un formulaire sur un site extérieur
ICIoBRa -
rguilan -

8 réponses
Rejoignez-nous