Discussion :

[myzicdeth]

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, 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.

[tomlev]

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 :

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
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())

[myzicdeth]

merci beaucoup,

j'essaie ca

[myzicdeth]

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

voici le code :

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
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

[myzicdeth]

sujet résolu,

il suffit de mettre Cdec devant le champ numérique

Code :

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

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

encore merci tomlev de m'avoir mis sur la piste