Récupération des dates de clichés

0/5 (2 avis)

Vue 8 023 fois - Téléchargée 791 fois

Description

récupération des dates de clichés de photos jpeg afin de remplacer la date de création du fichier par la date du cliché

Conclusion :


remerciements à crisdi

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
15
Date d'inscription
vendredi 17 septembre 2004
Statut
Membre
Dernière intervention
11 mai 2007

Il y a un légé bug dans la détection de l'emplacement de la date ce qui empèche le traitement de certains cas particulier.
Si le caractère ':' se trouve dans le fichier par azard avant la date, alors 'pos% = InStr(Text1.Text, ":")' ne permet pas de trouver le bon emplacement.
Il te suffirait de boucler si la date n'est pas trouvée pour passer au caractère ':' suivant.

Par exemple (et ça marche) :

'recherche date création
pos% = 0
ReRechercher:
pos% = InStr(pos% + 1, Text1.Text, ":")
'on recherche le caractère : qui est inclus dans la date
If pos% = 0 Then erreur_traitement: Exit Sub


X$ = Left$(Text1, pos% - 1)
datecreation$ = Mid$(Text1, pos% - 4, 19)

an$ = Left$(datecreation$, 4)
mois$ = Mid$(datecreation$, 6, 2)
If Val(mois$) < 1 Or Val(mois$) > 12 Then GoTo ReRechercher
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
21
lol, en lisant le descriptif, j'avais compris que tu allais chercher dans l'image la date du cliché, et que tu remplaçais la date de création de l'image par la date trouvée dans l'image. J'étais déjà tout content ... Mais c'est vraiment pas çà... lol

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.