RÉCUPÉRATION DES DATES DE CLICHÉS
econs
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Membre
Dernière intervention
23 décembre 2008
-
9 nov. 2004 à 03:24
cs_yahaa Messages postés 15 Date d'inscription vendredi 17 septembre 2004 Statut Membre Dernière intervention 11 mai 2007 - 19 août 2006 à 18:10
cs_yahaa Messages postés 15 Date d'inscription vendredi 17 septembre 2004 Statut Membre Dernière intervention 11 mai 2007 - 19 août 2006 à 18:10
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/27432-recuperation-des-dates-de-cliches
https://codes-sources.commentcamarche.net/source/27432-recuperation-des-dates-de-cliches
19 août 2006 à 18:10
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
9 nov. 2004 à 03:24