Communauté Francophone AutoIt
https://autoitscript.fr/forum/
Si la fonction n'existe pas, je vais m'arrêter au plus simple.ani a écrit :Ñ < cela aussi ? je suis pas trop sure mais il me semble que tout les caractère peuvent porter un accent
Code : Tout sélectionner
Func delAccents($chaine)
$nbChar = 53
Dim $array[2][$nbChar]=[["À","Á","Â","Ã","Ä","Å","à","á","â","ã","ä","å","Ò","Ó","Ô","Õ","Ö","Ø","ò","ó","ô","õ","ö","ø","È","É","Ê","Ë","è","é","ê","ë","Ç","ç","Ì","Í","Î","Ï","ì","í","î","ï","Ù","Ú","Û","Ü","ù","ú","û","ü","ÿ","Ñ","ñ"], _
["A","A","A","A","A","A","a","a","a","a","a","a","O","O","O","O","O","O","o","o","o","o","o","o","E","E","E","E","e","e","e","e","C","c","I","I","I","I","i","i","i","i","U","U","U","U","u","u","u","u","y","N","n"]]
For $i = 0 To $nbChar-1
$chaine = StringReplace($chaine,$array[0][$i],$array[1][$i],0,1)
Next
return $chaine
EndFuncCode : Tout sélectionner
$test = "Bonjoùr, cômment ça và?"
$test2 = delAccents($test)
ConsoleWrite($test & @CRLF & $test2)