Discussion :

[Invité]

bonjour,

dans ma richtextbox j'ai fait une nouvelle form avec un bouton rechercher pour pouvoir rechercher du texte
voila mon code qui marche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
  Dim i, j As System.Int32
        strTexte = frmMain.RichTextBoxFR1.Text
        strChaine = TextBox1.Text
 
        For i = 0 To strTexte.Length - strChaine.Length Step 1
            If strTexte.Substring(i, strChaine.Length) = strChaine Then
                j += 1
 
                frmMain.RichTextBoxFR1.Focus()
                frmMain.RichTextBoxFR1.SelectionStart = i
                frmMain.RichTextBoxFR1.SelectionLength = strChaine.Length
            End If
 
        Next

puis ensuite je voulait faire un bouton suivant
voila le code du bouton

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim i As System.Int32
        For i = 1 To 10 step 2
            If strtexte.Substring(i, strChaine.Length) = strChaine Then
 
                frmMain.RichTextBoxFR1.Focus()
                frmMain.RichTextBoxFR1.SelectionStart = i
                frmMain.RichTextBoxFR1.SelectionLength = strChaine.Length
            End If
        Next i

le problème c'est que quand je clique il passe a le recherche suivant mais il s'arrête la il continue pas la suite
j'ai essayer de changer en for i = 1 to 10 mais rien ne change
savez vous pourquoi ??

[methylene]

Salut,

Déjà je ne comprend pas ce que tu veux donc je ne comprends pas ton problème.

Cependant, dans une boucle For, la variable sur laquelle tu itéres n'a pas besoin d'être déclarée.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim i As System.Int32

En gros cela ne pointe pas ver le "i" de ta boucle For, mais vers un autre "i", variable "locale" de ton Sub Button1_Click

[Invité]

dsl si je me suis mal exprimé
tout comme le bloc notes de windows il permet de rechercher du texte
donc je voulait faire la meme chose
le premier code c'est le bouton rechercher qui marche bien

le 2eme code c'est le bouton suivant mais qui ne fonctionne pas

pour te répondre j'ai enlever se code Dim i As System.Int32 mais rien ne change

[chrismonoye]

Bonsoir,
déjà extérioriser le j qui sert de position de l'occurrence trouvée en cours, car il va servir à la sub "suivant".
Ensuite sortir de la boucle quand l'occurrence est détectée, sinon le for va au dernier mot correspondant du texte.
ca doit fonctionner avec ce code ;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
    Dim j As Integer = 0
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        j = 0
        Dim i As Integer
        strTexte = Me.RichTextBox1.Text
        strChaine = TextBox1.Text
 
        For i = 0 To strTexte.Length - strChaine.Length 'Step 1
            If strTexte.Substring(i, strChaine.Length) = strChaine Then
 
                Me.RichTextBox1.Focus()
                Me.RichTextBox1.SelectionStart = i
                Me.RichTextBox1.SelectionLength = strChaine.Length
                Exit For
            End If
            j += 1
        Next
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim i As Integer
        j += strChaine.Length
        For i = j To strTexte.Length - strChaine.Length 'Step 1
            If strTexte.Substring(j, strChaine.Length) = strChaine Then
 
                Me.RichTextBox1.Focus()
                Me.RichTextBox1.SelectionStart = i
                Me.RichTextBox1.SelectionLength = strChaine.Length
                Exit Sub
            End If
            j += 1
        Next i
    End Sub

Button2 pour la première recherche et 3 pour les occurrences suivantes.
Le "exit" n'est pas plaisant, voir du coté de do...loop ou while.
Après il y a les expressions rationnelles, c'est une autre syntaxe à ingurgiter.

[Invité]

merci beaucoup sa marche
je ne comprenait pas au début a quoi il servait se j
maintenant je vais essayer de mieux comprendre se code