Recherche de mots dans un textbox ou richtextbox en vb
ulysse2006
Messages postés1Date d'inscriptionlundi 24 avril 2006StatutMembreDernière intervention27 avril 2006
-
27 avril 2006 à 15:43
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 2018
-
27 avril 2006 à 22:02
slt tt le monde,je suis debutant en VB et j'ai deja un gros probleme;voila:j'essaie de rechercher un mot dans un textbox(ou richtextbox),la recherche consiste à mettre en surbrillance toutes les occurences de ce mot.J'ai essayé de le faire tt seul mais j'ai pas de bons resultats;quand je clique sur le bouton 'rechercher' c'est seulement une seule occurence du mot qui est trouvée,bon je sais que c pas de l'eau à boire mais je sais qu'il y a dans ce monde une ame genereuse,please c pour la bonne cause
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 27 avril 2006 à 22:02
salut,
nous donner le langage ne serait pas un luxe...
trouver la position d'un mot... INSTR qui retourne 0 si pas trouvé, position de la première lettre si trouvé.
donc logiquement, tant que le retour <>0, alors tu as un mot. donc BOUCLE.
[VB6]
' un txtbox, un bouton
Option Explicit
'
'
Private Sub Form_Load()
Text1.Width = 4935
Text1.Text = "je le suis un le texte qui contient le mot 'le' plusieurs le fois (6 le)."
End Sub
'
'
Private Sub Command1_Click()
Dim aPos() As Long, lPos As Long
ReDim aPos(0) 'ce tableau va stoquer les positions
' affichage
If UBound(aPos) > 0 Then
Dim i As Long, sMess As String
sMess = "'le' trouvé " & UBound(aPos) & " fois :"
For i = 1 To UBound (aPos)
sMess = sMess & vbCrLf & CStr(aPos(i))
Next i
Else
sMess = "'le' non-trouvé"
End If