Discussion :

[frag132]

Bonjour a tous,
je cherche a remplir ma listbox dans un certain ordre, sachant qu'elle liste des fichiers d'un repertoire :

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
 
 Public Sub listefichierstexte(ByVal Rep As String)
        Try
            Dim Liste As String() = Directory.GetFileSystemEntries(Rep)
            Dim Entree As String
            For Each Entree In Liste
                Dim TmpName As String = Microsoft.VisualBasic.Mid(Entree, Len(Rep) + 1)
                TmpName = Replace(TmpName, "'\'", "")
 
                If File.Exists(Entree) Then
                    ListBox1.Items.Add(TmpName)
                Else
                    listefichierstexte(Entree)
                End If
            Next (Entree)
        Catch Ex As System.UnauthorizedAccessException
            Exit Sub
        Catch e As Exception
            MsgBox("Erreur : " & e.Message)
        End Try
    End Sub

par exemple au lieu d'avoir :
dodo.18.05.2012.txt
dodo.20.04.2012.txt
dodo.05.08.2012.txt
dodo.31.12.2011.txt

avoir
dodo.31.12.2011.txt
dodo.20.04.2012.txt
dodo.18.05.2012.txt
dodo.05.08.2012.txt

par ordre de création plus ou moins (le fichier porte le nom de la date ou il a été crée)
Merci d'avance

[dkmix]

Bonjour,

Si les fichier peuvent prendre le format yyyymmjj, vous pouvez les ajouters à une liste et les trier avec sort().

Code :

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

1
2
3
 
Dim files As List(Of String) = Directory.GetFileSystemEntries(Rep).ToList()
files.Sort()

Si le format des fichiers n'est pas modifiable, il faut une fonction qui compare les noms de fichiers.
Lien msdn List.Sort

[chrismonoye]

Bonsoir,
les classes d'information DirectoryInfo et FileInfo, me semblent mieux convenir.
On ira chercher les informations par le biais d'une Structure contenant les propriétés du fichier qui nous intéressent :

Code :

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

1
2
3
4
5
    Structure fileOk
        Public Name As String
        Public CreationDate As Date
        Public ChangeDate As Date
    End Structure

La récupération se fait dans un Dictionary (ToDictionary()) auquel on attribue comme clé, la propriété servant au tri (OrderBy()) :

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
    Sub ToDictionaryfileOk(ByVal Rep As DirectoryInfo)
 
        ' Créer une liste des valeurs des propriétés voulues de chaque fichiers.
        Dim filesOk As New List(Of fileOk)
        For Each fi As FileInfo In Rep.GetFiles()
            filesOk.Add(New fileOk With {.Name = fi.Name, .CreationDate = fi.CreationTime, .ChangeDate = fi.LastWriteTime})
        Next
 
        ' Créer un Dictionary (tri croissant) de ces valeurs avec date de création en clé.
        'N.B. "OrderByDescending" pour un tri décroissant. 
        Dim dict As New Dictionary(Of Date, fileOk)
        dict = filesOk.OrderBy(Function(kvp) kvp.CreationDate).ToDictionary(Function(kvp) kvp.CreationDate)
 
        ' Afficher les résultats.
        For Each kvp As KeyValuePair(Of Date, fileOk) In dict
            ListBox1.Items.Add(kvp.Value.Name)
        Next
 
    End Sub

Enfin dans la procédure appelante :

Code :

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

1
2
3
        '"chemRep" étant le chemin du répertoire voulu.
        Dim diSource As DirectoryInfo = New DirectoryInfo(chemRep)
        ToDictionaryfileOk(diSource)

[frag132]

merci pour votre aide, je devrai pouvoir me débrouiller avec ça

[frag132]

apparemment le "orderby" me pose problème car je suis sous en framework 2.0 (et contraint d'y rester).

[Jean-Marie Grave]

Bonjour

Vous pouvez toujours utiliser un algorithme de tri, par exemple un tri dichotomique, puisque la classe DateTime possède une relation d'ordre.

En espérant vous aider.

[chrismonoye]

Bonjour
à tester sous FW2 :

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
    Sub ToDictionaryDateCreate(ByVal Rep As DirectoryInfo)
 
        Dim dict As New Dictionary(Of Date, String)
        For Each fi As FileInfo In Rep.GetFiles()
            dict.Add(fi.CreationTime, fi.Name)
        Next
        ' Get list of keys.
        Dim keys As List(Of Date) = dict.Keys.ToList
        ' Sort the keys.
        keys.Sort()
 
        For Each kvp In keys
            ListBox1.Items.Add(dict.Item(kvp))
        Next
 
    End Sub

[frag132]

merci pour votre aide !

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
 
 Sub ToDictionaryDateCreate(ByVal Rep As DirectoryInfo)
 
        Dim dict As New Dictionary(Of Date, String)
        For Each fi As FileInfo In Rep.GetFiles()
            dict.Add(fi.CreationTime, fi.Name)
        Next
        ' Get list of keys.
        Dim keys As List(Of Date) = dict.Keys.ToList
        ' Sort the keys.
        keys.Sort()
 
        For Each kvp In keys
            ListBox1.Items.Add(dict.Item(kvp))
        Next
 
    End Sub

j'obtiens une erreur sur la ligne Dim keys As List(Of Date) = dict.Keys.ToList
"'TolList' n'est pas un membre de 'System.Collections.Generic.Dictionary(Of Date, String).KeyCollection'."

[chrismonoye]

Re,
à voir si ça passe :

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
    Sub ToDictionaryDateCreate(ByVal Rep As DirectoryInfo)
 
        Dim dict As New Dictionary(Of Date, String)
        Dim keys As New List(Of Date)
 
        For Each fi As FileInfo In Rep.GetFiles()
            dict.Add(fi.CreationTime, fi.Name)
            keys.Add(fi.CreationTime)
        Next
 
        ' Sort the keys.
        keys.Sort()
 
        For Each kvp In keys
            ListBox1.Items.Add(dict.Item(kvp))
        Next
 
    End Sub

[frag132]

merci ! mais apparemment ça ne passe pas non plus, ça me dit que keys n'est pas une méthode

[chrismonoye]

Bonjour,
Je te propose une autre approche avec SortedList.
Les éléments de SortedList sont triés par les clés :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
    Sub SortedListFileOk(ByVal Rep As DirectoryInfo)
 
        Dim sortList As New SortedList(Of Date, String)
 
        For Each fi As FileInfo In Rep.GetFiles()
            sortList.Add(fi.CreationTime, fi.Name)
        Next
 
        For Each kvp As KeyValuePair(Of Date, String) In sortList
            ListBox1.Items.Add(kvp.Value)
        Next kvp
 
    End Sub

[Jean-Marie Grave]

Bonjour.

Je vous propose le code suivant

Code :

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

1
2
3
4
5
6
    Private Sub bTst_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bTst.Click
        Essayer("dodo.01.01.2012.txt")
        Essayer("dada.03.05.2010.txt")
        Essayer("dudu.05.07.1915.txt")
        Essayer("fifi.01.01.2020.txt")
    End Sub

Code :

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

1
2
3
4
5
6
7
8
9
    Public Sub Essayer(ByVal NomFichier As String)
        Dim Dte As Date, Ok As Boolean
        Dte = Date_(NomFichier, Ok)
        If Ok Then
            Placer(NomFichier)
        Else
            MsgBox("Le nom du fichier n'est pas conforme.")
        End If
    End Sub

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
28
29
30
31
    Private Sub Placer(ByVal NomFichier As String)
        Dim n As Integer, a As Integer, b As Integer, c As Integer
        With lBox
            If .Items.Count = 0 Then
                .Items.Add(NomFichier)
            Else
                n = .Items.Count - 1
                If n = 0 Then
                    If Date_(NomFichier) < Date_(.Items(0)) Then
                        .Items.Insert(0, NomFichier)
                    Else
                        .Items.Add(NomFichier)
                    End If
                Else
                    If Date_(NomFichier) < Date_(.Items(0)) Then
                        .Items.Insert(0, NomFichier)
                    ElseIf Date_(NomFichier) >= Date_(.Items(n)) Then
                        .Items.Add(NomFichier)
                    Else
                        a = 0 : b = n : c = Int((a + b) / 2)
                        Do
                            If b - a = 1 Then Exit Do
                            If Date_(NomFichier) < .Items(c) Then b = c Else a = c
                            c = Int((a + b) / 2)
                        Loop
                        .Items.Insert(b, NomFichier)
                    End If
                End If
            End If
        End With
    End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Private Function Date_(ByVal NomFichier As String, Optional ByRef Ok As Boolean = False) As Date
        Dim Dte As Date, Txt As String
        Txt = ""
        Ok = (Strings.Right(NomFichier, 3) = "txt")
        If Ok Then Ok = (Len(NomFichier) >= 14)
        If Ok Then
            Txt = Strings.Right(NomFichier, 14)
            Txt = Strings.Left(Txt, 10)
            Txt = Strings.Replace(Txt, ".", "/")
            Ok = IsDate(Txt)
        End If
        If Ok Then Dte = CDate(Txt) Else Dte = Now
        Return Dte
    End Function

qui tient dans un formulaire sur lequel sont déposés un bouton de commande nommé "bTst" et une ListBox nommée lBox.

Cordialement.

[frag132]

merci pour l'aide ! Je pense que ça devrait faire l'affaire.