Accueil





Supprimer les accents dans une chane de caractres



Utile par exemple pour effectuer une recherche de texte en ne tenant pas compte des caractres accentus.


Procdure
proc remove_accents {data} { return [::tcl::string::map -nocase { "" "a" "" "a" "" "a" "" "a" "" "a" "" "a" "" "a" "" "a" "" "e" "" "e" "" "e" "" "e" "" "i" "" "i" "" "i" "" "i" "" "i" "" "o" "" "o" "" "o" "" "o" "" "o" "" "o" "" "u" "" "u" "" "u" "" "u" "" "y" "" "y" "" "c" "" "d" "" "n" "" "s" "" "z" } $data] }

2005-2016 Menz Agitat