tri de tableau

Version imprimable

04/10/2008, 23h19
myzicdeth

tri de tableau

Bonjour

j'essaye de trier des données d'un fichier texte, pour cela
j'insère chaque ligne dans un tableau, puis fais un array.sort(montablo)
sauf que pas de bol,:aie: les lignes commences par des lettres puis des chiffres
le tri est donc incorrect.
j'ai donc réussi à séparer les lettres des chiffres par un espace, en
espérant que le trie fonctionne mieux, mais comment trier par rapport
à la colonne des lettres puis celle des chiffres,faut il passer
par une collection, un datatable ou une database ?

Merci pour votre aide.

il faut que tu implémentes un IComparer qui compare deux lignes selon tes différents critères de tri. Par exemple pour comparer selon la 1e colonne puis la 3e colonne (en supposant que les champs sont séparés par des espaces) :

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
Public Class MonComparer
    Implements IComparer
 
          Public Function Compare( ByVal x As Object, ByVal y As Object) As Integer _
         Implements IComparer.Compare
 
         Dim ligne1 As String = CStr(x)
         Dim ligne2 As String = CStr(y)
         Dim champs1() As String = ligne1.Split(" ")
         If champs1(0) > champs2(0) Then
             Return 1
         ElseIf champs1(0) < champs2(0)
             Return -1
         ElseIf champs1(2) > champs2(2) Then
             Return 1
         ElseIf champs1(2) < champs2(2) Then
             Return -1
         Else
             Return 0
         End If
      End Function 'IComparer.Compare
 
End Class
 
...
 
Array.Sort(lignes, New MonComparer())

05/10/2008, 09h47
myzicdeth

re

merci beaucoup,

j'essaie ca :king:

j'avance lentement mais surement...

le trie est le suivant :

C 1
C 10
C 100
C 101
C 102
C 103
C 104
C 105
C 106
C 107
C 108
C 109
C 11

la partie avec les lettres se tri correctement par contre les chiffres :cry:

voici le 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
Public Class Mysortclasse
    Implements IComparer
 
    Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer _
   Implements IComparer.Compare
        Dim ligne1 As String = CStr(x)
        Dim ligne2 As String = CStr(y)
        If ligne1 Is Nothing Then ligne1 = String.Empty
        If ligne2 Is Nothing Then ligne2 = String.Empty
        Dim champs1() As String = ligne1.Split(" ")
        Dim champs2() As String = ligne2.Split(" ")
        If champs1(0) > champs2(0) Then
            Return 1
        ElseIf champs1(0) < champs2(0) Then
            Return -1
        ElseIf champs1(1) > champs2(1) Then
            Return 1
        ElseIf champs1(1) < champs2(1) Then
            Return -1
        Else
            Return 0
        End If
    End Function 'IComparer.Compare
 
End Class

05/10/2008, 19h41
myzicdeth

re

sujet résolu,

il suffit de mettre Cdec devant le champ numérique

Code:

ElseIf CDec(champs1(1)) > CDec(champs2(1)) Then

encore merci tomlev de m'avoir mis sur la piste ;)