Chercher des chaînes de caractère dans une List(Of String)

Version imprimable

Bonjour,
j'ai une listbox de plus de 800 000 lignes à afficher, ne voulant pas mettre imposer à l'utilisateur de mon programme une telle masse de texte ( et surtout n'arrivant pas à utiliser le mode virtuel de listview pour optimiser l'affichage :mouarf: :oops:), j'ai opté pour faire un système de recherche qui viendra afficher les sites disponibles dans ma List(Of String) en fonction des lettres tapées. Par exemple si ma List(Of String) contient :

Citation:

AAB
ABB

Si l'utilisateur cherche dans la textbox A, les deux éléments apparaissent dans la listbox, en revanche si il continu de chercher en mettant AB, seul ABB apparaitra.
J'ai donc développé le code suivant mais rien ne s'affiche dans ma listbox :
ListeDeSite est une List (Of String)
Code:

1 2 3 4 5 6 7 8 Private Sub TextBoxSiteInterditPersonnalisé_TextChanged(sender As Object, e As EventArgs) Handles TextBoxSiteInterditPersonnalisé.TextChanged For Each item In ListeDeSite If ListeDeSite.Contains(TextBoxSiteInterditPersonnalisé.Text) Then ListBoxSitesInterdits.Items.Add(item) End If Next End Sub
Merci de votre aide ! :ccool:

Bonsoir Cleber,

Tu n'as absolument pas besoin de parcourir un List(Of) pour savoir s'il contient un élément ..o_O.

Code:

1
2
3
4
5
6
 
   Dim ListeDeSite As New List(Of String) : ListeDeSite.Add("AA") : ListeDeSite.Add("BB") : ListeDeSite.Add("CC")
 
        If ListeDeSite.Contains("AA") Then
            MsgBox("Oui cette liste contient l'élément : AA")
        End If

A+

22/12/2013, 18h51
CLeBeR
Salut wallace1,
le problème avec l'adaptation que j'ai faite du code que tu m'a passé, c'est que c'est le contenu de la textbox qui va être ajouté à la listbox et non tous les éléments qui contiennent le contenu de la listbox, peut être que je me suis mal expliqué ?
Code:

1 2 3 If ListeDeSite.Contains(TextBoxSiteInterditPersonnalisé.Text) Then ListBoxSitesInterdits.Items.Add(TextBoxSiteInterditPersonnalisé.Text) End If
Merci.
22/12/2013, 19h20
Pol63
Citation:

Envoyé par wallace1

Tu n'as absolument pas besoin de parcourir un List(Of) pour savoir s'il contient un élément ..o_O.

il ne cherche pas à savoir si c'est contenu, mais si ca ressemble (like) il faut donc bien parcourir toute la liste avec une boucle
d'ailleurs pour info, .contains ca fait une boucle pour savoir si l'élément est contenu, c'est juste un raccourci de code mais l'effet est le même

il y a des moyens de coder une boucle en une seule ligne de code, c'est vs qui écrit le code de la boucle à la compilation
Code:

1 2 3 4 textchanged : me.listbox.items.clear me.listbox.items.addrange((from element in malistof where element like "*" & me.textbox.text & "*" select element).toarray) end sub
on vide donc le listbox
puis on lui ajoute tout ce qui ressemble (like) le from sert à coder la boucle, ca ressemble donc à du sql dans un sens différent
le .toarray c'est parce que le addrange (ajout de plusieurs choses d'un coup) n'accepte que des tableaux
22/12/2013, 19h28
wallace1

Citation:

Envoyé par Pol63

il ne cherche pas à savoir si c'est contenu, mais si ca ressemble (like) il faut donc bien parcourir toute la liste avec une boucle
d'ailleurs pour info, .contains ca fait une boucle pour savoir si l'élément est contenu, c'est juste un raccourci de code mais l'effet est le même

"pour info" je suis bien au courant que .contains fait une boucle c'est pour cela que je dis qu'il n'est pas nécessaire de faire cette imbrication !

...breff j'ai du mal comprendre l'origine de son problème ....
22/12/2013, 23h07
CLeBeR

Salut Pol63,
j'ai toujours le même problème, rien ne s'affiche dans ma listbox quelque soit la valeur tapée.

bonjour
Linq to Object serait peut etre ton ami...

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
 
Public Class Form1
    Private ListeDeSite As New List(Of String)
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ListeDeSite.Add("AAB")
        ListeDeSite.Add("ABB")
 
    End Sub
 
    Private Sub txtBoxSearcher_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtBoxSearcher.TextChanged
        AfficheSitesInterdits(ListeDeSite, txtBoxSearcher.Text.ToUpper)
 
    End Sub
    Sub AfficheSitesInterdits(ByVal maListe As List(Of String), ByVal mot As String)
 
        Dim querySites = From s As String In maListe
                                 Where s.StartsWith(mot, StringComparison.InvariantCulture)
        ListBoxSitesInterdits.Items.Clear()
 
        'iteration explicite obligatoire
        For Each item In querySites
            ListBoxSitesInterdits.Items.Add(item)
        Next
    End Sub
 
 
 
 
End Class

bon code...

Merci à vous deux, le code de Pol63 marchait en fait, j'avais "juste oublié" en mode commenté ma fonction de remplissage de la list of :oops:
Le code de MABROUKI marche aussi, merci encore à vous deux (j'ai pris le code de Pol63 car il est me semble-t-il beaucoup plus rapide.)
Je l'ai adapté pour filtrer un maximum car la listbox plantait à nouveau ...
Code:

1 2 3 4 5 6 7 If TextBoxSiteInterditPersonnalisé.TextLength < 10 Then MsgBox("Veuillez ajouter encore " & 10 - TextBoxSiteInterditPersonnalisé.TextLength & " pour lancer la recherche") Else MsgBox("Veuillez patienter, la recherche est en cours, celà peut prendre plus de deux minutes", MsgBoxStyle.Information) ListBoxSitesInterdits.Items.Clear() ListBoxSitesInterdits.Items.AddRange((From element In ListeDeSite Where element Like "*" & TextBoxSiteInterditPersonnalisé.Text & "*" Select element).ToArray) End If
Merci et http://www.jujube-en-cuisine.fr/wp-c...2/noel2007.jpg