Discussion :

[Remedy]

Bonjour,

c'est une question qui a sûrment déjà été posée mais je ne la trouve pas!

Je souhaite comparer une chaine de caractère (saisie par l'utilisateur) à d'autres chaines de caractères... Et pouvoir la trouver dans une autre chaine de caractère.

Par exemple si l'utilisateur entre "lop" et que j'ai le mot "developpez" dans la liste des chaines deja memorisées, que je puisse la trouver dans ce mot!

je compte faire une boucle dans une boucle:

Code :

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

1
2
3
4
5
For i = 0 To 10
                For j = 1 To Len(tab(i))
                    //ici comparer les chaines!
                Next
            Next

Je pense ne pas avoir été très très clair dsl

[benji17c]

Salut,

Regarde du côté de la méthode substring de classe String.

@++

[Remedy]

slt!

Bon en fait j'ai trouvé une piste:

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
For i = 0 To lbl_cpt_divx.Text
                j = 0
                While j <= Len(tab(i))
                    If String.Compare(tab(i), j, txt_search.Text, 0, Len(txt_search.Text)) = 0 Then
                        If trouve = False Then
                            lst_divx.Items.Clear()
                            trouve = True
                        End If
                        lst_divx.Items.Add(tab(i))
                        j = Len(tab(i))
                    Else
                        j = j + 1
                    End If
                End While
            Next

Cela marche lorsque j'initialise la variable j à 1 mais ca comparera qu'a partir de la 2eme lettre de la première chaine (tab(i)). Lorsque je mets sur 0 j'ai une erreur qui me dit:

L'offset et la longueur doivent faire référence à une position dans la chaîne.

[benji17c]

Excuses moi je me suis trompé.

En VB.NET tu peux utiliser la fonction : InStr qui recherche une occurence du sous chaine dans une chaine.

regarde ce cours :
http://plasserre.developpez.com/v1-6string.htm

@+

[abelman]

String.IndexOf

[Remedy]

Merci, la fonction inStr() était pile poil ce que je recherchais...

Code :

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

1
2
3
4
5
6
7
8
9
10
 Dim trouve As Boolean = False
            For i = 0 To lbl_cpt_divx.Text
                If InStr(tab(i), txt_search.Text) <> 0 Then
                    If trouve = False Then
                        lst_divx.Items.Clear()
                        trouve = True
                    End If
                    lst_divx.Items.Add(tab(i))
                End If
            Next

Ca fonctionne

merci à vous !

[abelman]

Salut

Si je peux me permettre Instr c'est pour surtout pour la compatibilité VB6
La fonction .NET est IndexOf de la classe String

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim trouve As Boolean = False
            For i = 0 To lbl_cpt_divx.Text
                If tab(i).IndexOf(txt_search.Text) <> -1 Then
                    If trouve = False Then
                        lst_divx.Items.Clear()
                        trouve = True
                    End If
                    lst_divx.Items.Add(tab(i))
                End If
            Next