LECTURE DES FICHIER D'UN REPERTOIR ET TRIAGE SUR LA DATE

tinut Messages postés 4 Date d'inscription vendredi 9 mai 2003 Statut Membre Dernière intervention 23 février 2004 - 23 févr. 2004 à 16:39
cs_ZiEgFRiED Messages postés 1 Date d'inscription samedi 22 mai 2004 Statut Membre Dernière intervention 3 mai 2005 - 3 mai 2005 à 10:30
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/5886-lecture-des-fichier-d-un-repertoir-et-triage-sur-la-date

cs_ZiEgFRiED Messages postés 1 Date d'inscription samedi 22 mai 2004 Statut Membre Dernière intervention 3 mai 2005
3 mai 2005 à 10:30
:( ce code me plaisais bien dans l optique de renommer automatiquement les photos numeriques d'un evenement quelconque a partir de plusieurs appareils.
Dans ce cas, un tri par date et heure de creation est essentiel. Ici, le code fourni ne fait le tri que par rapport a la date de modification...

Dommage. on va essayer de remedier a cela
cs_bilal Messages postés 87 Date d'inscription dimanche 2 février 2003 Statut Membre Dernière intervention 4 mars 2010
9 nov. 2004 à 21:42
en fait c pa trier sur la Date mais sur l'heure de creation, chez plus mais ct le resultat ke mon pote voulais

c cool du VB , mais bon moi chui dans le c++ buider ;-)

allez bonne continuation @+
tinut Messages postés 4 Date d'inscription vendredi 9 mai 2003 Statut Membre Dernière intervention 23 février 2004
23 févr. 2004 à 16:53
la soluce : remplacer le code (bien commenté, bravo) de l'étape 2 par :


'********************************************
' DEBUT ETAPE 2
'********************************************
For i = 0 To Source.ListCount - 1 Step 1 ' Boucle de 0 au nombre d'element qu'il y a dans la liste Source -1
' " -1 " car : (exemple) 5 elements = 0 à 4
Fichier Path + Source.List(i) ' (exemple) Fichier "c:\temp" + "aa.txt"
DateFichier FileDateTime(Fichier) ' DateFichier date et heure de cretion du fichier "Fichier"

Dim yearDate As String
Dim monthDate As String
Dim dayDate As String
yearDate = Year(DateFichier)
monthDate = Month(DateFichier)
If (Len(monthDate) < 2) Then monthDate = "0" & monthDate
dayDate = Day(DateFichier)
If (Len(dayDate) < 2) Then dayDate = "0" & dayDate




Liste.AddItem (yearDate & monthDate & dayDate & " * " + Path + Source.List(i))
' Liste.Sorted est deja True , voir ses proprietes '
Liste.ItemData(Liste.NewIndex) = i ' n'est pas utile , juste indicatif
' c.à.d : element 1 n°1 , el 2 n°2 ,etc...
Next i
'********************************************
' FIN ETAPE 2
'********************************************




j'ai converti la date en yyyymmdd ce qui permet un tri réellement par date ...
tinut Messages postés 4 Date d'inscription vendredi 9 mai 2003 Statut Membre Dernière intervention 23 février 2004
23 févr. 2004 à 16:51
loupé, ca ne trie pas par date (du moins pas par année, puis mois, puis jour) car le format jj/mm/aaaa ne permet pas de trier par date. il faut convertir la date en aaaammjj si tu veux avoir un vrai tri.


ca marche uniquement si les fichiers ont le meme mois et année , ce qui est rarement le cas ...
tinut Messages postés 4 Date d'inscription vendredi 9 mai 2003 Statut Membre Dernière intervention 23 février 2004
23 févr. 2004 à 16:39
loupé, ca ne trie pas par date (du moins pas par année, puis mois, puis jour) car le format jj/mm/aaaa ne permet pas de trier par date. il faut convertir la date en aaaammjj si tu veux avoir un vrai tri.


ca marche uniquement si les fichiers ont le meme mois et année , ce qui est rarement le cas ...
Rejoignez-nous