Script TCL + SQL

[KiBa]

Désolé pour le "double" post...

En php, j'ai une fonction qui me remplace toutes mes majuscules, mes accents etc. pour "cleaner" mes titres d'artistes et de musiques...

La voici :

Code PHP :

function cleanLink($chaine){
    //$chaine = utf8_encode($chaine);
    return strtolower(str_replace( 
    array("à","á","â","ã","ä", "ç", "è","é","ê","ë", "ì","í","î","ï", "ñ", "ò","ó","ô","õ","ö", "ù","ú","û","ü", "ý","ÿ", "À","Á","Â","Ã","Ä", "Ç", "È","É","Ê","Ë", "Ì","Í","Î","Ï", "Ñ", "Ò","Ó","Ô","Õ","Ö", "Ù","Ú","Û","Ü", "Ý" , " ", "_", "&","/",".","'","(",")",","),
    array("a","a","a","a","a", "c", "e","e","e","e", "i","i","i","i", "n", "o","o","o","o","o", "u","u","u","u", "y","y", "A","A","A","A","A", "C", "E","E","E","E", "I","I","I","I", "N", "O","O","O","O","O", "U","U","U","U", "Y" , "-", "-", "and","-","","","","",""), $chaine));
} 


Est-ce qu'il existe quelque chose de similaire en TCL ?

Code PHP :

proc string_filter {str} {
    set str [string map -nocase {
        " "        "-"        "_"        "-"        "&"        "-"        "/"        "-"
        "."        "-"        "("        "-"        ")"        "-"        "'"        ""
        ","        ""        "è"        "e"        "é"        "e"
    } $str]

    regsub -all {<br />} $str " " str
    regsub -all {<[^>]+>} $str "" str
    regsub -all {\n} $str " " str

    set str [encoding convertfrom utf-8 $str]
    set str [string tolower $str]
    return $str
} 


J'ai toutefois un problème, quand je fais

Code :

[17:08:15] <Aomine> !sound Petit frère
[17:08:16] <(VDMBot> [17:10:00] Ce son n'existe pas

Alors que j'ai bien un résultat sur "Petit frère"

Merci :)