J'ouvre la page dans un webbrowser, et j'aimerais bien récupérer les infos en rouge mais je n'y arrive pas, j'ai essayé de compter les item et de les extraire en fonction de leur noms mais ça ne marche pas, j'ai aussi essayé en fonction de leurs balises, de leur numéro (innertext) mais sans succès...
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
++
<hr size="2" width="100%" />
Prenez un instant pour répondre à [sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp <
Marneus73
Messages postés344Date d'inscriptionmercredi 24 janvier 2007StatutMembreDernière intervention27 octobre 2008 26 oct. 2008 à 19:32
Merci ça marche nickel, mais j'ai juste un petit souci avec les saut de ligne, parfois j'ai <td>mon truc</td> sur une seule ligne, sauf que j'ai d'autres lignes qui commencent par <td> dans le doc. Je voudrais savoir si il serait possible de récup l'info de la ligne d'avant pour qu'au moins un de mes deux critéres (sStart ou
sEnd
) soit unique dans le document.