text entre x et y

salut tous le monde,
j'ai un richtextbox1 comment et ce que je peux ajouter a list1 tous les mots de richtextbox1 entre <a href="www.google.com"> et </a>
merci d'avance

Utilise la méthode Find du RichTextBox :
Debut = rtb.Find("<a href="""www.google.com""">", 1)
Fin = rtb.Find("</a>", Debut + Len("<a href="""www.google.com""">") + 1)
Chaine = Mid(rtb.Text, Debut + Len("<a href="""www.google.com""">"), Fin - Debut)
Tu noteras le double "" à l'intérieur de la chaine pour insérer un simple "
Attention : Le RTB numérote ses caractères à partir de 0, alors que Mid c'est à partir de 1
Il faudra peut-être ajouter un +1 quelquepart

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)

Oui, enfin, tout ceci n'est viable que si tu n'as qu'une seule occurence des deux chaines recherchées. Autrement dit, si tu as "<A href..." ou "</a>" plusieurs fois dans ton texte de base, il te faudra trouver celui que tu veux sachant que Find ne trouvera le premier qui lui tombera sous la main...
Bref, dans ce cas il te faudra opérer avec une petite boucle type Do/Loop avec quelques tests logiques (IF) à l'intérieur. Et là, c'est une autre histoire...

Sinon, tu auras compris, je l'espère, que la variable "Chaine" est à ajouter à ta liste.

Enjoy

---

Non, ce n'est pas plus compliqué que ça :
La fonction Find permet de dire à partir de quel caractère tu veux commencer la recherche.
Donc, quand tu commences, la position sera 0, alors que les suivantes seront égales à la dernière position où tu as trouvé le </a> + 4 (la longueur de </a>), c'est tout, rien de bien compliqué de faire un Do-Loop

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)