Discussion :

[tunisienne_O]

bonsoir j'ai un projet nommé "l'indexation" à faire, je suis pas spécialiste en VB je suis débutante donc je trouve beaucoup de difficultés
voila mon problème si j'ai un tableau { a,b,a,d,c,b,a,a,a} je dois avoir un tableau dans un listBox
rang 1 : a : 5
rang 2 : b : 2
rang 3 : d,c : 1
je sais pas comment faire j'ai essayer les méthodes classiques de tri de tableau et ça marche pas ?:
aidez moi SV¨P et merci pour tt

[Sankasssss]

Bonjour,

regardez du coté de Linq avec un group by et une agrégation.

[GuruuMeditation]

De mémoire, un truc style (C#, mais traduisible en vb facilement):

Code C# :

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

1
2
 
var resultat = maliste.GroupBy(d =>d).OrderByDescending(d => d.Count).ToList();

resultat[0].Key va donner a
resultat[0].Count va donner 5

[GuillaumeNcy]

Salut, moi j'utilise le code suivant pour compter l'occurrence des éléments d'une liste, pour ton tableau ça marchera :

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
Dim dic As New Dictionary(Of String, Integer)
        Dim i As Integer
        Dim Key As String
 
 
        If Liste1.Count > 0 Then
            For i = 0 To Liste1.Count - 1
                Key = Liste1(i).ToString
                If dic.ContainsKey(Key) Then
                    dic.Item(Key) = dic.Item(Key) + 1
 
 
                Else : dic.Add(Liste1(i).ToString, 1)
                End If
            Next
        End If

[tomlev]

Code :

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

1
2
3
4
5
    Dim data = { "a", "b", "a", "d", "c", "b", "a", "a", "a" }
    Dim results = From item In data
                  Group By Item = item Into g = Group, Count()
                  Order By Count Descending
                  Select New With { Item, Count }

(Perso je trouve pas cette syntaxe très claire, je préfère la version lambda

Code :

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

1
2
3
4
    Dim data = { "a", "b", "a", "d", "c", "b", "a", "a", "a" }
    Dim results = data.GroupBy(Function(item) item) _
                      .OrderByDescending(Function(g) g.Count()) _
                      .Select(Function(g) New With { .Item = g.Key, .Count = g.Count() })