Rechercher dans un texte RichTextBox

Question

Bonjour,

J' aurais aimer savoir comment rechercher un texte, des mots, dans un RichTextBox par l' intermédiaire d' une zone de saisie genre textbox et d un bouton rechercher.
Et comment faire ressortir le texte une fois trouvé : le mettre en gras, d une autre couleur,etc

Merci de votre aide par avance

Fripouil

cs_DARKSIDIOUS · Answer

Et qu'est-ce qui te pose problème ?

Récupèrer le texte du textbox de recherche ? Comment récupèrer l'événement click du bouton ? Faire la recherche dans le richtextbox ? ou mettre le texte trouvé en valeur ?

Utilisateur anonyme · Answer

Si c'est pour faire la recherche, méthode Find, SelStart et SelLength pour la séléction et après la mise en forme:

TaRichTextBox.SelStart = TaRichTextBox.Find(TextBoxSearch.Text, 0)
TaRichTextBox.SelLength = Len(TextBoxSearch.Text)
TaRichTextBox.SelBold = True
TaRichTextBox.SelColor = vbRed






__________
Kenji

cs_Fripouil · Answer

Bonjour et merci

Ton code fonctionne mais il ne trouve qu 'un seul des mots que je cherche.
Je m' explique dans la phrase : Ton code fonctionne mais ton code ne trouve qu'un mot
Je rentre dans ma textbox le mot : code
Je valide via mon bouton valider
Et ca me donne ceci : Ton code fonctionne mais ton code ne trouve qu'un mot
Or dans cette phrase il y a 2 fois : code, mais le deuxiéme n est pas "trouvé"

Darksidious : si tu préféres j' aimerais faire la recherche dans le richtextbox et mettre le texte trouvé en valeur. Un peu comme les fichier d' aide qu on peut trouvé dans certain programme, il surligne les mot recherché.
Mon but est de faire avec ce systéme comme un fichier d aide 
Généralement quand on pose une question les mots de cette question ce retrouve dans la réponse, et voila l idée :

Dans la textbox : Que faire quand on à faim ?

Dans la Richtextbox : Quand onàfaim il faut manger.

Voila merci de votre aide encore.

Fripouil

Utilisateur anonyme · Answer

Ben dans ce cas tu continue a chercher à partire de la positon précédente.
Et tu répéte l'opération pour tous les mots du texte :





Dim Words() As String
Words = Split(TextBoxSearch.Text, " ")
Dim iWord As Integer
For iWord = 0 To UBound(Words)
  Dim NextSearch As Integer
  NextSearch = TaRichTextBox.Find(Words(iWord), 0)
  While NextSearch > -1
    TaRichTextBox.SelStart = NextSearch
    TaRichTextBox.SelLength = Len(Words(iWord))
    TaRichTextBox.SelBold = True
    TaRichTextBox.SelColor = vbRed
    NextSearch = TaRichTextBox.Find(Words(iWord), NextSearch + 1)
  Wend
Next iWord,

----

(Coloration syntaxique automatique par Kenji)





__________
Kenji

Rechercher dans un texte RichTextBox

4 réponses

Votre réponse

Discussions similaires