Enlever les accents

Commenter

Contenu du snippet

Cette fonction est utile pour indexer des documents sans les accents. Les lettres collées comme oe de coeur par exemple sont converties en ?, donc cette fonction n'est pas suffisante si vous avez besoin d'afficher le résultat de la conversion.

Source / Exemple : 


Private Function sEnleverAccents$(ByVal sChaine$)

    ' Enlever les accents et convertir en minuscules
    ' cœur est converti en c?ur

    ' Codepage 1241 = "windows-1251" = cyrillic
    ' Tableau de caractères sur 8 bit
    Dim aOctets As Byte() = System.Text.Encoding.GetEncoding(1251).GetBytes(sChaine)
    ' Chaîne de caractères sur 7 bit
    sEnleverAccents = System.Text.Encoding.ASCII.GetString(aOctets).ToLower

End Function

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_Patrice99)