LECTURE DES FICHIER D'UN REPERTOIR ET TRIAGE SUR LA DATE
tinut
Messages postés4Date d'inscriptionvendredi 9 mai 2003StatutMembreDernière intervention23 février 2004
-
23 févr. 2004 à 16:39
cs_ZiEgFRiED
Messages postés1Date d'inscriptionsamedi 22 mai 2004StatutMembreDerniè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.
cs_ZiEgFRiED
Messages postés1Date d'inscriptionsamedi 22 mai 2004StatutMembreDerniè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és87Date d'inscriptiondimanche 2 février 2003StatutMembreDerniè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és4Date d'inscriptionvendredi 9 mai 2003StatutMembreDernière intervention23 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és4Date d'inscriptionvendredi 9 mai 2003StatutMembreDernière intervention23 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és4Date d'inscriptionvendredi 9 mai 2003StatutMembreDernière intervention23 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 ...
3 mai 2005 à 10:30
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
9 nov. 2004 à 21:42
c cool du VB , mais bon moi chui dans le c++ buider ;-)
allez bonne continuation @+
23 févr. 2004 à 16:53
'********************************************
' 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 ...
23 févr. 2004 à 16:51
ca marche uniquement si les fichiers ont le meme mois et année , ce qui est rarement le cas ...
23 févr. 2004 à 16:39
ca marche uniquement si les fichiers ont le meme mois et année , ce qui est rarement le cas ...