Les programmes du chapitre 5

Emacs/Lisp

(setq chaine "Fourmond:Sophie:07-28-2004:\
02-14-2005:")
(setq re "\\([0-9]\\{2\\}\\)-\\([0-9]\\{2\\}\
\\)-\\([0-9]\\{4\\}\\)")
(message "Chaine initiale: %s" chaine)
(if (not (string-match re chaine))
    (message "Pas une date !"))
;; depart est notre compteur.
(setq depart 0)
(while (string-match re chaine depart)
  (message "Date trouvee: %s" 
           (match-string 0 chaine))
  (message "Annee: %s" (match-string 3 chaine))
  (setq depart (match-end 0))
  )
(setq chaineFinale (replace-regexp-in-string re 
           "\\2.\\1.\\3" chaine))
(message "Chaine finale: %s" chaineFinale)