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

Commenter

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

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_fabrice69)