Asp.net - fonction à rajouter dans la bibliothèque de classes manip chaine pour supprimer les accents

0/5 (1 avis)

Snippet vu 9 758 fois - Téléchargée 36 fois

Contenu du snippet

Pour la bibliothèue de classe, une fonction qui peut être utile dans vos développements, pour suppimer les caractères accentués.

Source / Exemple :


Public Shared Function SupprimeAccent(ByVal pChaine As String) As String
 Dim Temp As String = ""
 If pChaine Is Nothing OrElse pChaine = "" Then
  Return pChaine
 Else
  Temp = Replace(pChaine, "é", "e", 1, -1, CompareMethod.Text)
  Temp = Replace(Temp, "è", "e", 1, -1, CompareMethod.Text)
  Temp = Replace(Temp, "ê", "e", 1, -1, CompareMethod.Text)
  Temp = Replace(Temp, "ë", "e", 1, -1, CompareMethod.Text)
  Temp = Replace(Temp, "à", "a", 1, -1, CompareMethod.Text)
  Temp = Replace(Temp, "â", "a", 1, -1, CompareMethod.Text)
  Temp = Replace(Temp, "ä", "a", 1, -1, CompareMethod.Text)
  Temp = Replace(Temp, "î", "i", 1, -1, CompareMethod.Text)
  Temp = Replace(Temp, "ï", "i", 1, -1, CompareMethod.Text)
  Temp = Replace(Temp, "ô", "o", 1, -1, CompareMethod.Text)
  Temp = Replace(Temp, "ö", "o", 1, -1, CompareMethod.Text)
  Temp = Replace(Temp, "û", "u", 1, -1, CompareMethod.Text)
  Temp = Replace(Temp, "ù", "u", 1, -1, CompareMethod.Text)
  Temp = Replace(Temp, "ü", "u", 1, -1, CompareMethod.Text)
  Return Temp
 End If
End Function

Conclusion :


Bonne prog.

Romelard Fabrice (Alias F___)

A voir également

Ajouter un commentaire Commentaire
cs_fabrice69 Messages postés 1765 Date d'inscription jeudi 12 octobre 2000 Statut Membre Dernière intervention 11 décembre 2013 5
27 août 2007 à 12:39
Bonjour,

D'autres solutions sont disponibles ici :
- http://www.codyx.org/snippet_modifie-caracteres-speciaux_154.aspx

Romelard Fabrice [MVP]

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.