[R] Supprimer les accents ?

[eln]

Bonjour

Ma question du jour : Y-a t'il une fonction ou un include pour supprimer les accents dans un mot où groupe de mots?
Exemple âiméè ==> aimee

Merci

[ani]

je ne pense pas que la fonction existe, je vérifie .
Ñ < cela aussi ? je suis pas trop sure mais il me semble que tout les caractère peuvent porter un accent

allez au tableau

[eln]

Ñ < cela aussi ? je suis pas trop sure mais il me semble que tout les caractère peuvent porter un accent

Si la fonction n'existe pas, je vais m'arrêter au plus simple.

[tofu]

Bonsoir,

J'ai fais une petite fonction à la va-vite, je sais pas si on peut optimiser davantage...

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
EndFunc

Un petit test pour imager le fonctionnement:

Code : Tout sélectionner

$test = "Bonjoùr, cômment ça và?"
$test2 = delAccents($test)
ConsoleWrite($test & @CRLF & $test2)

En espérant que ce soit ce dont tu avais besoin.

Cordialement,

[eln]

Nickel, sujet résolu.

Merci.