For et next en vb

Version imprimable

For et next en vb

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:

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:

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 ??

09/09/2010, 20h02
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:

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
09/09/2010, 20h12
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

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:

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.

09/09/2010, 22h35
Invité

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