Remplacement caractères spéciaux

**tsimon** · 12/10/2007, 16h21

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 :

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

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

**Aspic** · 12/10/2007, 17h26

Créé ta propre fonction... avec replace

**tsimon** · 13/10/2007, 17h55

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

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 :

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

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.

**Aspic** · 13/10/2007, 18h43

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 ?

**tsimon** · 13/10/2007, 19h05

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.