J'ai réalisé une fonction recherche e mot pour un editeur de texte
et maintenant j'aimerais copier la ligne ou se trouve le mot et l'afficher dans un nouveau richtextbox!!j'ai deja fait ca:
Private Sub mnuFileFind_Click() PosTrouve = -1 ActiveForm.rtfText.SelStart = 0 Do Trouve = ActiveForm.rtfText.Find("ban", PosTrouve + 1) PosTrouve = ActiveForm.rtfText.SelStart Form3.RichTextBox1 = Mid(ActiveForm.rtfText, PosTrouve, InStr(PosTrouve, ActiveForm.rtfText, vbCrLf)) Loop Until Trouve = -1 End Sub
|
J'ai bien un affichage de ligne de mon anciien richtextBox or il y a encore des lignes qui ne comportent pas le mot "ban" ici recherché!!!
J'aimerai savoir ce qui cloche car la j'arrive pas a voir!!!!
Merci d'avance
++