Recherche d'une chaine de caractères dans une textbox --- n'utilise pas la fonction instr()
Contenu du snippet
A FAIRE AVANT TOUT : Creer un controle richtextbox nommé Richtextbox1 et non pas une textbox puis un bouton nommé BtnCherche.
Ce code recherche une chaîne de caractères dans une RichTextBox et vous indique dans une msgbox si la chaîne de caractères a ete trouvée ou pas et si cette chaîne a ete trouvée la msgbox vous indique a quelle ligne.
gfini
Ce code recherche une chaîne de caractères dans une RichTextBox et vous indique dans une msgbox si la chaîne de caractères a ete trouvée ou pas et si cette chaîne a ete trouvée la msgbox vous indique a quelle ligne.
Source / Exemple :
Private Sub BtnCherche_Click()
Dim FoundPos As Integer
Dim FoundLine As Integer
' Recherche le texte spécifié dans le contrôle RichTextBox.
FoundPos = RichTextBox1.Find("ecrivez ici le mot que vou souhaitez trouver", , , rtfWholeWord)
' Affiche un message qui indique si le texte a été retrouvé ou non.
If FoundPos <> -1 Then
' Renvoie le numéro de la ligne où le texte a été retrouvé.
FoundLine = RichTextBox1. GetLineFromChar(FoundPos)
MsgBox "Mot retrouvé à la ligne " & CStr(FoundLine+1)
Else
MsgBox "Mot introuvable."
End If
End Sub
Conclusion :
gfini
A voir également
- Recherche d'une chaine de caractères dans une textbox --- n'utilise pas la fonction instr()
- Parcourir une chaine de caractère en python ✓ - Forum Python
- Extraction d'une partie d'une chaine dans une chaine - Forum Python
- Chaine de caractère ✓ - Forum Python
- Trouver toutes les positions d'une lettre dans une chaine - Forum Python
- Php instr ✓ - Forum PHP
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.