Remplacement caractères spéciaux

Version imprimable

Bonjour à tous,

Avant toutes choses, sachez que j'ai fouillé les forums et FAQ avant de poster ce sujet ;) ...

Je souhaite modifier les valeurs saisies par l'utilisateurs dans des champs de DetailView : je voudrais remplacer les "é" et autres carac. spéciaux par "&eacute", etc.

J'ai utilisé la méthode suivante (voir code) mais elle semble ne marcher que pour les " et les &. Existe-t-il une méthode permettant de traiter tous les caractères spéciaux ?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 Protected Sub BnConfirmerChgts_Click(ByVal sender As Object, ByVal e As System.EventArgs) Dim TextBoxEditBref As TextBox Dim TextBoxEditCorps As TextBox Dim ABref As String Dim ACorps As String Dim NBref As String Dim NCorps As String TextBoxEditBref = DetailsView1.FindControl("TextBoxEditBref") ABref = TextBoxEditBref.Text NBref = HttpUtility.HtmlEncode(ABref) TextBoxEditBref.Text = NBref TextBoxEditCorps = DetailsView1.FindControl("TextBoxEditCorps") ACorps = TextBoxEditCorps.Text NCorps = HttpUtility.HtmlEncode(ACorps) TextBoxEditCorps.Text = NCorps End Sub
Merci à tous,
Thierry

12/10/2007, 17h26
Aspic

Créé ta propre fonction... avec replace

Fonction Replace et événement associé

Voici le code que j'ai créé. Il n'y a pas d'erreur signalées lors de l'exécution, mais rien de se passe... :evilred:

Je ne sais pas si je dois l'appliquer à l'événement OnClick du bouton, ou à un autre événement du bouton, ou à un événement du DetailView ou de la page contenant les champs...

Il faut évidemment que ce script s'exécute entre le clic du bouton et l'affichage final du DetailView et de la page. Mais que choisir ?

Avez-vous des pistes ?
Voici le code...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
 
Protected Sub DetailsView1_DataBinding(ByVal sender As Object, ByVal e As System.EventArgs)
 
        ' Déclarations TextBox et Variables
        Dim TextBoxEditBref As TextBox
        Dim TextBoxEditCorps As TextBox
 
        Dim ABref As String
        Dim ACorps As String
 
        Dim NBref As String
        Dim NCorps As String
 
 
        ' Résumé : chaîne de fonctions Replace
 
        TextBoxEditBref = DetailsView1.FindControl("TextBoxEditBref")
        ABref = TextBoxEditBref.Text
 
        NBref = Replace(ABref, "é", "&eacute;")
        NBref = Replace(ABref, "è", "&egrave;")
        NBref = Replace(ABref, "ê", "&ecirc;")
        NBref = Replace(ABref, "ë", "&euml;")
 
        NBref = Replace(ABref, "à", "&agrave;")
        NBref = Replace(ABref, "â", "&acirc;")
 
 
        NBref = Replace(ABref, "ù", "&ugrave;")
        NBref = Replace(ABref, "û", "&ucirc;")
        NBref = Replace(ABref, "ü", "&uuml;")
 
        NBref = Replace(ABref, "ô", "&ocirc;")
        NBref = Replace(ABref, "ö", "&ouml;")
 
        NBref = Replace(ABref, "ï", "&iuml;")
        NBref = Replace(ABref, "î", "&icirc;")
 
        TextBoxEditBref.Text = NBref
 
        ' Description complète : chaîne de fonctions Replace            
 
        TextBoxEditCorps = DetailsView1.FindControl("TextBoxEditCorps")
        ACorps = TextBoxEditCorps.Text
 
        NCorps = Replace(ACorps, "é", "&eacute;")
        NCorps = Replace(ACorps, "è", "&egrave;")
        NCorps = Replace(ACorps, "ê", "&ecirc;")
        NCorps = Replace(ACorps, "ë", "&euml;")
 
        NCorps = Replace(ACorps, "à", "&agrave;")
        NCorps = Replace(ACorps, "â", "&acirc;")
 
        NCorps = Replace(ACorps, "ù", "&ugrave;")
        NCorps = Replace(ACorps, "û", "&ucirc;")
        NCorps = Replace(ACorps, "ü", "&uuml;")
 
        NCorps = Replace(ACorps, "ô", "&ocirc;")
        NCorps = Replace(ACorps, "ö", "&ouml;")
 
        NCorps = Replace(ACorps, "ï", "&iuml;")
        NCorps = Replace(ACorps, "î", "&icirc;")
 
        TextBoxEditCorps.Text = NCorps
 
    End Sub

Merci d'avance pour vos conseils.

13/10/2007, 18h43
Aspic

Ton code a l'air correcte, fait un débogage pas à pas avec des espions pour vérifier la valeur de tes variables... et tu es cencé récupérer le résultat dans tes deux textbox ?
13/10/2007, 19h05
tsimon

Les caractères accentués disparaissent des textbox lors de l'update du DetailView... Alors que ceux que j'entre en dur dans la BDD sont affichés correctement. Les accents se perdent entre la saisie et la BDD donc !

Une fois les caractères accentués recodés en format HTML "é" par exemple, ils doivent s'afficher dans les même textboxes correctement. Est-ce que l'événement auquel je lie la fonction est correct à ton avis ?

Sinon, peut-être faut-il changer des paramètres concernant l'environnement ? Pour que le langage accepte les caractères accentués ? Est-ce possible ? A ce sujet, je laisse un lien vers une question que j'ai posée, et qui est liée à celle-ci http://www.developpez.net/forums/sho...d.php?t=426031.
18/10/2007, 16h00
Ditch

Citation:

NCorps = Replace(ACorps, "é", "é")
NCorps = Replace(ACorps, "è", "è")

Euh... Tu remplaces à chaque fois le contenu de ta variable là... Soit tu fais NCorps=Replace(NCorps) soit c'est pas bon :aie: