Remplacement de caractère

Bonjour,

J'ai à nouveau un problème avec un accent:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Dim Nom As String Nom = Request.QueryString("libelle") Nom = Nom.Replace("/ ", "") Nom = Nom.Replace("""", "") 'remplace les espaces dans le nom par des vircules Dim MotCle As String = Nom.Replace(" ", ", ")     'Crée un tag meta avec le nom "keywords" et le contenu content + MotCle Dim keywords As New HtmlMeta() keywords.HttpEquiv = "keywords" keywords.Name = "keywords" keywords.Content = ("keywords, " + MotCle).ToString() Header.Controls.Add(keywords)

---

Je récupère le libellé qui est affiché en paramètre dans l'url cependant le caractère "É" est affiché "É" ce qui quand j'affiche les mots clés, m'écrit:

<meta http-equiv="keywords" name="keywords" content="Keywords, M">

quand le libellé est en fait MÉMOIRE. Tout ce qui est après le É n'est pas affiché.

Je vous remercie par avance,

Artas

Tu peux utiliser cette function pour supprimer tous les accents et les remplacer par leur caractere de base (exemple, É devient E) :

Code:

---

1 2 3 4 5 6 7 8 9

Public Shared Function RemoveDiacritics(text As String) As String If String.IsNullOrWhiteSpace(text) Then Return text End If   text = text.Normalize(NormalizationForm.FormD) Dim chars = text.Where(Function(c) CharUnicodeInfo.GetUnicodeCategory(c) <> UnicodeCategory.NonSpacingMark).ToArray() Return New String(chars).Normalize(NormalizationForm.FormC) End Function

---

Ensuite au lieu de faire :

Code:

---

keywords.Content = ("keywords, " + MotCle.ToString()

---

Tu fais ceci :

Code:

---

keywords.Content = ("keywords, " + RemoveDiacritics(MotCle)).ToString()

---

Un UrlDecode pourrait peut-être faire l'affaire :
https://msdn.microsoft.com/en-us/lib...urldecode.aspx

Code:

---

1 2	Dim decodedUrl As String = HttpUtility.UrlDecode(encodedUrl)

---

Bonjour,

Merci pour vos réponses cependant je ne sais pas si il est possible d'utiliser la clause where de cette manière car je reçois un message d'erreur:

Citation:

---

Erreur 1 La résolution de surcharge a échoué, car aucun 'Where' accessible ne peut être appelé avec ces arguments*:
Méthode d'extension 'Public Function Where(predicate As System.Func(Of Char, Integer, Boolean)) As System.Collections.Generic.IEnumerable(Of Char)' définie dans 'System.Linq.Enumerable'*: La fonction imbriquée n'a pas une signature compatible avec le délégué 'System.Func(Of Char, Integer, Boolean)'.
Méthode d'extension 'Public Function Where(predicate As System.Func(Of Char, Boolean)) As System.Collections.Generic.IEnumerable(Of Char)' définie dans 'System.Linq.Enumerable'*: 'CharUnicodeInfo' n'est pas déclaré. Il peut être inaccessible en raison de son niveau de protection.
Méthode d'extension 'Public Function Where(predicate As System.Func(Of Char, Boolean)) As System.Collections.Generic.IEnumerable(Of Char)' définie dans 'System.Linq.Enumerable'*: 'UnicodeCategory' n'est pas déclaré. Il peut être inaccessible en raison de son niveau de protection.

---

pour la ligne

Code:

---

1 2	Dim chars = text.Where(Function(c) CharUnicodeInfo.GetUnicodeCategory(c) <> UnicodeCategory.NonSpacingMark).ToArray()

---

Il se peut fortement que ce soit mon erreur puis que je suis complètement débutant.