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___)
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.