Fonction tri nombres

Version imprimable

Bonjour, pour trier une liste d'une combobox ou il y a par exemple: a1 a12 b2 b13 c2 c15

le problème c'est que ca trie bien sur les lettres mais pas sur les chiffres? ca trie ainsi: a12 a1 b13 b2 c15 c2

j'utilise cette fonction:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Function tri()
        Dim SLigne1 As String
        Dim SLigne2 As String
        Dim IndiceBoucle As Integer
        Dim TemoinPermutation As Boolean = True  ' Vaut False quand il n'y a plus de permutation
        Dim Temporaire As String
 
        While TemoinPermutation
            TemoinPermutation = False
            For IndiceBoucle = 0 To ComboBox1.Items.Count - 2
                SLigne1 = ComboBox1.Items(IndiceBoucle)
                SLigne2 = ComboBox1.Items(IndiceBoucle + 1)
                If SLigne1 > SLigne2 Then
                    TemoinPermutation = True
                    Temporaire = ComboBox1.Items(IndiceBoucle)
                    ComboBox1.Items(IndiceBoucle) = ComboBox1.Items(IndiceBoucle + 1)
                    ComboBox1.Items(IndiceBoucle + 1) = Temporaire
                End If
            Next
        End While
    End Function

j'ai trouvé une facon de le faire, un peu long mais sa marche, il y a peut etre plus court?
le tri ce fait en premier sur les chiffres et en deuxième sur les lettres: voilà

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Function trichiffre()
        Dim SLigne1 As String
        Dim SLigne2 As String
        Dim chiffre1 As Integer
        Dim chiffre2 As Integer
        Dim IndiceBoucle As Integer
        Dim TemoinPermutation As Boolean = True  ' Vaut False quand il n'y a plus de permutation
        Dim Temporaire As String
        While TemoinPermutation
            TemoinPermutation = False
            For IndiceBoucle = 0 To ComboBox1.Items.Count - 2
                SLigne1 = ComboBox1.Items(IndiceBoucle)
                SLigne2 = ComboBox1.Items(IndiceBoucle + 1)
                chiffre1 = SLigne1.Substring(1)
                chiffre2 = SLigne2.Substring(1)
                If chiffre1 > chiffre2 Then
                    TemoinPermutation = True
                    Temporaire = ComboBox1.Items(IndiceBoucle)
                    ComboBox1.Items(IndiceBoucle) = ComboBox1.Items(IndiceBoucle + 1)
                    ComboBox1.Items(IndiceBoucle + 1) = Temporaire
                End If
            Next
        End While
    End Function
    Function trilettre()
        Dim SLigne1 As String
        Dim SLigne2 As String
        Dim chiffre1 As String
        Dim chiffre2 As String
        Dim IndiceBoucle As Integer
        Dim TemoinPermutation As Boolean = True  ' Vaut False quand il n'y a plus de permutation
        Dim Temporaire As String
        While TemoinPermutation
            TemoinPermutation = False
            For IndiceBoucle = 0 To ComboBox1.Items.Count - 2
                SLigne1 = ComboBox1.Items(IndiceBoucle)
                SLigne2 = ComboBox1.Items(IndiceBoucle + 1)
                chiffre1 = SLigne1.Substring(0, 1)
                chiffre2 = SLigne2.Substring(0, 1)
                If chiffre1 > chiffre2 Then
                    TemoinPermutation = True
                    Temporaire = ComboBox1.Items(IndiceBoucle)
                    ComboBox1.Items(IndiceBoucle) = ComboBox1.Items(IndiceBoucle + 1)
                    ComboBox1.Items(IndiceBoucle + 1) = Temporaire
                End If
 
            Next
        End While
    End Function

23/12/2018, 17h26
tsuji

Si ça marche comme on veut, ce devrait être bien suffisant. Mais si on pense à faire d'une façon plus générale, on peut regarder l'interface System.Collections.IComparer : une implémentation de sa fonction Compare() déterminerait qui devant qui en général pour un tri.

https://support.microsoft.com/en-hk/...in-visual-basi

Un exemple d'implémentation qui est au fond pertinent pour le problème-ci, on peut consulter ceci :

https://www.dotnetperls.com/alphanumeric-sorting-vbnet

C'est aussi l'approche assez générale de le faire dans bien des langages de programmation différents.
24/12/2018, 17h38
StringBuilder

Ce que tu cherches à faire, c'est un "tri naturel" (ou natural sort).

Le principe, c'est de découper la chaîne en :
- Blocs numériques
- Blocs non numériques

Puis effectuer un tri de tout ce joyeux bordel.

Tu trouveras ici un exemple de code (j'ai pas vérifié s'il était correct) :
https://www.codeproject.com/Articles...-Sort-Comparer