Nouveau défi pour les spécialistes

FNC DateExif$(f$)
  ' Date/heure de prise de vue, recherche de deux dates successives
  ' (prise de vue et enregistrement, identiques)
  DIM_LOCAL a$,b$,k
  FILEBIN_OPEN_READ 1,f$: a$ = FILEBIN_HEXA_READ$(1,2000): FILEBIN_CLOSE 1
  k = INSTR(a$,"3A"): ' séparateur ':'
  WHILE k > 0
    ' recherche 2 dates successives
    IF MID$(a$,k+6,2) = "3A" AND MID$(a$,k+40,2) = "3A" THEN EXIT_WHILE: ' ok
    k = INSTR_POS(a$,"3A",k+10)
  END_WHILE
  IF k = 0
     RESULT "Non trouvé"
  ELSE
    a$ = MID$(a$,k-8,38): b$ = ""
    FOR k = 1 TO 37 STEP 2: b$ = b$+CHR$(HEX(MID$(a$,k,2))): NEXT k
    RESULT b$: ' format AAAA:MM:JJ HH:MM:SS
  END_IF
END_FNC

SUB TriChronoPhotos(r$,obj)
  ' Tri chronologique par date de prise de vue des photos du répertoire r$
  ' Chaque élément = AAAA:MM:JJ HH:MM:SS NomFichier
  ' Résutat dans l'objet obj (LIST par exemple)
  ' Si
  IF LABEL("Pdxf") = 0 THEN LABEL Pdxf
  DIM_LOCAL f$,i,k,a$,b$
  IF RIGHT$(r$,1) <> "\" THEN r$ = r$+"\"
  EXECUTE_WAIT "cmd.exe|`/c DIR /B "+r$+"*.jpg |clip"
  LIST 900: HIDE 900: CLIPBOARD_PASTE 900
  FOR i = 1 TO COUNT(900)
      f$ = ITEM_READ$(900,i)
      FILEBIN_OPEN_READ 1,r$+f$: a$ = FILEBIN_HEXA_READ$(1,2000): FILEBIN_CLOSE 1
      IF INSTR(a$,"45786966") = 0 THEN b$ = "*** Pas d'Exif *** ": GOTO Pdxf
      k = INSTR(a$,"3A"): ' séparateur ':'
      WHILE k > 0
          ' recherche 2 dates successives
          IF MID$(a$,k+6,2) = "3A" AND MID$(a$,k+40,2) = "3A" THEN EXIT_WHILE: ' ok
          k = INSTR_POS(a$,"3A",k+10)
      END_WHILE
      IF k = 0
          b$ = "*** Non trouvé *** "
      ELSE
          a$ = MID$(a$,k-8,38): b$ = ""
          FOR k = 1 TO 37 STEP 2: b$ = b$+CHR$(HEX(MID$(a$,k,2))): NEXT k
      END_IF
Pdxf:
      IF LEFT$(b$,1) = "*"
          EXECUTE_WAIT "cmd.exe|/c DIR "+r$+f$+" |clip"
          a$ = CLIPBOARD_STRING_PASTE$: k = INSTR(a$,"/")
          b$ = MID$(a$,k+4,4)+":"+MID$(a$,k+1,2)+":"+MID$(a$,k-2,2)+MID$(a$,k+9,6)
          b$=b$+"_FF"
      END_IF
      ITEM_ADD obj,b$+" "+f$
  NEXT i
  SORT obj: ' tri par dates croissantes
  DELETE 900
END_SUB

FNC DateExif$(f$)
  ' Date/heure de prise de vue, recherche de deux dates successives
  ' (prise de vue et enregistrement, identiques)
  DIM_LOCAL a$ , b$ , k , i , w , z$
  FILEBIN_OPEN_READ 1,f$ : a$ = FILEBIN_HEXA_READ$(1,2000) : FILEBIN_CLOSE 1
  IF INSTR(a$,"45786966") = 0 then w = 1
  if w = 0
      k = INSTR(a$,"3A") : ' séparateur ':'
      WHILE k > 0
        ' recherche 2 dates successives
        IF MID$(a$,k+6,2) = "3A" AND MID$(a$,k+40,2) = "3A" THEN EXIT_WHILE : ' ok
        k = INSTR_POS(a$,"3A",k+10)
      END_WHILE
      IF k = 0
        z$ = "Non trouvé"
      ELSE
        a$ = MID$(a$,k-8,38) : b$ = ""
        FOR k = 1 TO 37 STEP 2 : b$ = b$+CHR$(HEX(MID$(a$,k,2))) : NEXT k
        z$ = b$ : ' format AAAA:MM:JJ HH:MM:SS
      END_IF
  ELSE
      IF LEFT$(b$,1) = "*"
        EXECUTE_WAIT "cmd.exe|/c DIR "+f$+" |clip"
        a$ = CLIPBOARD_STRING_PASTE$ : k = INSTR(a$,"/")
        b$ = MID$(a$,k+4,4)+":"+MID$(a$,k+1,2)+":"+MID$(a$,k-2,2)+MID$(a$,k+9,6)
        b$ = b$+"_FF"
        z$ = b$+" "+f$
      END_IF
  END_IF
  RESULT z$
END_FNC