Sujet Précédent Sujet Suivant

Trier

petiflamand Messages postés 675 Date d'inscription samedi 31 mai 2003 Statut Membre Dernière intervention 26 mai 2013 - 13 nov. 2004 à 21:42
Gobillot Messages postés 3140 Date d'inscription vendredi 14 mai 2004 Statut Membre Dernière intervention 11 mars 2019 - 13 nov. 2004 à 23:21

Salut
je charge dans un fichier txt des nom de commune
mais il y en a qui y son 2x
et aucun sont dans l'ordre alphabetique
y a t-il une possibiliter de trier dans une boucle avec une commande
si oui comment
en vb5
Merci

A voir également:

1 réponse

Réponse 1 / 1

Gobillot Messages postés 3140 Date d'inscription vendredi 14 mai 2004 Statut Membre Dernière intervention 11 mars 2019 34
13 nov. 2004 à 23:21

place une ListBox et met la propriété sorted à True.
attention je suis en VB6

Private Sub Lecture()
    Dim nom As String
    Dim i   As Integer
    
'   mettre List1.Sorted à True
    Open "C:\...\...\communes.txt" For Input As #1
    While Not EOF(1)
        Line Input #1, nom
        List1.AddItem nom
        Wend
    Close #1

'   suppression des doubles
    For i = List1.ListCount - 1 To 0 Step -1
        If nom = List1.List(i) Then
           List1.RemoveItem i
           End If
        nom = List1.List(i)
        Next

End Sub

Daniel

Discussions similaires

Trier des cellules Excel par ordre alphabetique

"Trier par COUNT() ?"

Probleme de tri de tableau

Trier une liste par ordre croissant

Trier les données d'un datagrid