Array.Sort(a,b,c)

Résolu
cs_JLuc01 Messages postés 206 Date d'inscription samedi 17 janvier 2009 Statut Membre Dernière intervention 5 mars 2013 - 7 juin 2011 à 01:19
cs_JLuc01 Messages postés 206 Date d'inscription samedi 17 janvier 2009 Statut Membre Dernière intervention 5 mars 2013 - 7 juin 2011 à 13:22
Bonjour,

Voila, j'ai un tableau a 3 colonnes et 7 rangees.
Je voudrais utiliser la methode array.sort pour ranger les lignes (rangees) par ordre croissant en fonction de la premiere colonne.

Voila une partie de mon code:
        Dim a(7) As Integer
        Dim b(7) As String
        Dim c(7) As String
        For i = 0 To 7
            ' Data provenant d'un fichier text
            Dim arr() = objReader.ReadLine.ToString.Split(New Char() {","c})
            a(i) = CInt(arr(0))
            b(i) = arr(1)
            c(i) = arr(2)
        Next
        'Ranger les lignes en fonction de la colonne a
        Array.Sort(a, b, c)
        Array.Reverse(a)
        Array.Reverse(b)
        Array.Reverse(c)
        'Remettre les lignes en ordre dans des TextBoxes
        For i = 0 To 6
            Me.Controls("txtColumnA" & (i + 1).ToString).Text = a(i).ToString
            Me.Controls("txtColumnB" & (i + 1).ToString).Text = b(i)
            Me.Controls("txtColumnC" & (i + 1).ToString).Text = c(i)
        Next


Ce code marche avec 2 colonnes, mais pas avec 3 colonnes.
Je ne suis pas sur d'utiliser la bonne methode dans le cas present avec 3 colonnes ou plus(surtout apres avoir jeter un oeil sur MSDN - methode sort pour un array).

Une idee ou une direction a suivre serait le bienvenu.
Je suis evidement pas tres a l'aise avec les arrays.

Merci,
JLuc01

1 réponse

cs_JLuc01 Messages postés 206 Date d'inscription samedi 17 janvier 2009 Statut Membre Dernière intervention 5 mars 2013 1
7 juin 2011 à 13:22
Salut de nouveau,

En fait, je crois que j'ai trouve. Je suis un peu mieux reveille ce matin.
J'ai besoin d'un ArrayList ou quelquechose comme cela.

Source trouve ici: http://www.codyx.org/snippet_trier-donnees-tableau-liste-as-string_278.aspx#895

JLuc01
3
Rejoignez-nous