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

Signaler
Messages postés
26
Date d'inscription
vendredi 25 mai 2007
Statut
Membre
Dernière intervention
25 octobre 2009
-
Messages postés
1207
Date d'inscription
dimanche 20 avril 2003
Statut
Membre
Dernière intervention
4 juin 2016
-
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

Messages postés
1207
Date d'inscription
dimanche 20 avril 2003
Statut
Membre
Dernière intervention
4 juin 2016
9
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