Discussion :

[sushis]

Bonjour,

J'essaie de trier chaque ligne de ma TextBox, mais j'ai un soucis au niveau de l'algorithme que je n'arive pas à resoudre!

L'utilisateur doit cliquer sur un label pour que le tri s'effectue.

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
26
 
Private Sub Label10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label10.Click
        Dim tab As String
        Dim chaine() As String
        Dim i As Integer
        Dim Temp As String
        tab = Me.ListeNote.Text
        chaine = tab.Split(vbCrLf)
        For i = 0 To UBound(chaine) - 1
            If chaine(i) > chaine(i + 1) Then
                Temp = chaine(i)
                chaine(i) = chaine(i + 1)
                chaine(i + 1) = Temp
            End If
        Next
 
        For i = 0 To UBound(chaine)
            If i = 0 Then
                Me.ListeNote.Text = chaine(i)
            ElseIf i < 2 Then
                Me.ListeNote.Text = Me.ListeNote.Text + chaine(i)
            End If
 
 
        Next
    End Sub

Le tri ne se fait pas correctement, et il y a plein de bizarrerie, il semblerai qu'il un problème au moment où j'effectue le tri (la première boucle for), car j'ai testé la 2éme boucle et elle m'affiche correctement le contenu tester.

en espérant que vous puissiez m'aider,

Cordialement,

sushis

[Pol63]

le site possède une balise code pour une mise en forme lisible

si tu veux trier par ordre alphabétique ca prend 2 lignes avec un sortedlist, ca ne sert à rien de réinventer l'eau tiède ^^

[sushis]

Ok merci!

Aurais-tu de la doc (en français) sur l'utilisation de sortedlist. (j'utilise un tableau, mais enfin avec la doc je devrai comprendre quelque chose )

Bref, je vais essayer de baliser mon code.

Merci pour ta réponse.

[Pol63]

tu fais F1 dans vb ou vs
chaque classe chaque membre chaque mot clé (...) est expliqué avec souvent des exemples

[sushis]

Finalement 'ai suivi cette doc: http://plasserre.developpez.com/cour...age-vb3#LV-I-7

Bref, en suivant l'exemple et en l'adaptant à mon code, j'ai fait ça:

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
Private Sub Label10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label10.Click
        Dim tab As String
        Dim chaine() As String
        Dim i As Integer
        Dim tri As New SortedList()
        tab = Me.ListeNote.Text
        chaine = tab.Split(vbCrLf)
        For i = 0 To UBound(chaine)
            tri.Add(i, chaine(i))
        Next i
 
       For i = 0 To tri.Count - 1
            Me.ListeNote.Text = tri.GetKey(i) & tri.GetByIndex(i)     
        Next i
 
 
    End Sub

Le soucis est que à l'affichage, il ne m'affiche que la dernière ligne de mon contenu! Et quand je clique une seconde fois sur le label, il m'affiche un zéro (les zéro sacumule à chaque fois que je clique sur le label!).

en espérant que vous puissiez m'aider,

Cordialement,

sushis

[Pol63]

Code :

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

Me.ListeNote.Text = Me.ListeNote.Text & " " & tri.GetKey(i) & tri.GetByIndex(i)

?

[MaelstroeM]

Le trie a bulle se fait une une boucle While et une For.
Grosso modo en pseudo cracra code ça donne ça :

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
TableauTrié=Faux
MaxTableau=Ubound(Tableau) 'Taille de ton tableau / collection
 
Tant TableauTrié=Faux
 
TableauTrié=Vrai
 
Pour I=0 To MaxTableau-1
 
Si tableau(I)>tableau(I+1) Alors
Permutation des deux élèment
TableauTrié=Faux
Fin si
Fin Pour
Fin Tan Que

Tu trouvera de la doc partout.
Aprés tout dépend de ce que tu dois / veux faire, si l'objectif ce de trier tu peux passer par des élèment du FrameWork, mais si tu dois / veux faire un trie bulle c'est comme ça qu'il faut faire.

[sushis]

Ok merci, l'algo fonctionne enfin. Merci Maelstrom!