j'ai un String, qui contient la source d'une page web, avec dedans plein lignes du style :
plein de lignes dont je me sers pas
debut
de texte qui change pas "ce que je veux reprendre" et la fin du texte
variablesuivi de deux caractéres identiques à chaque fin de ligne
debut de texte qui change pas "ce que je veux reprendre" et la fin du
texte variablesuivi de deux caractéres identiques à chaque fin de ligne
debut de texte qui change pas "ce que je veux reprendre" et la fin du
texte variablesuivi de deux caractéres identiques à chaque fin de ligne
plein de lignes dont je me sers pas
exemple d'une ligne type : [mapage.php?id= XXXXX¶m=YY
XXX est un nombre variable, entre 1 et 999999
Je désire extraire XXXXX¶m=YY de toutes les lignes.
Alors pour le moment, j'ai fais ça :
Public Function chercheUrl(ByVal Source As String) As String
Dim chaine1 As Integer
Dim chaine2 As Integer
Dim debutchaine As String = "] 0) And (chaine2 > 1) Then
cs_casy
Messages postés7741Date d'inscriptionmercredi 1 septembre 2004StatutMembreDernière intervention24 septembre 201440 21 févr. 2008 à 23:05
Peut-etre comme ça :
Public Function chercheUrl(ByVal Source As String) As String
Dim chaine1 As Integer
Dim chaine2 As Integer Dim debutchaine As String "[ 0
chaine2 = Source.IndexOf(finchaine, chaine1 + 1)
If (chaine1 >= 0) And (chaine2 > 1) Then
url = Source.Substring(chaine1 + debutchaine.Length, chaine2 -
(chaine1 + debutchaine.Length))
'ici, il
faut stocker les différentes url trouvées
' par exemple :
lesurls = lesurls & url & Environment.NewLine
End If
'ici on fait la
recherche suivante pour pouvoir continuer la boucle
chaine1 = Source.IndexOf(debutchaine, chaine2 + 1)
End While
Return lesurls
End Function
---- Sevyc64 (alias Casy) ---- <hr size ="2" width="100%" /># LE PARTAGE EST NOTRE FORCE # ]