Discussion :

[Artas]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[DotNetMatt]

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

Code VB.NET :

Sélectionner tout - Visualiser dans une fenêtre à part

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 VB.NET :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Tu fais ceci :

Code VB.NET :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[chadoum]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Artas]

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:

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.