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 :
Est-ce qu'il existe quelque chose de similaire en TCL ?
J'ai toutefois un problème, quand je fais
Alors que j'ai bien un résultat sur "Petit frère"
Merci
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