Nombre : remplacer "." par ","

Bonjour,

Je sais, je sais, des milliers de topics parlent de ce sujet. j'en ai fait pas mal.
Mais VB.NET et moi avons des problèmes de communications.

Malgré toutes mes tentatives, de la plus soft à la plus barbare, rien n'y fait, je n'arrive pas à remplacer un simple "." en une petite ",".

voici mon 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

Imports System.Math   Private Sub TB_section_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TB_section.TextChanged   ' numeric or not numeric If IsNumeric(TB_section.Text) Then   TB_section.ForeColor = Color.Black   If CB_section.SelectedItem = "mm²" Then section = CDbl(TB_section.Text) LBL_sect_m.Visible = True LBL_sect_mm.Visible = True LBL_sect_mm.Text = CStr(section) & " mm²" LBL_sect_m.Text = CStr(Math.Round(section / 1000000, 2)) & " m²"   ElseIf CB_section.SelectedItem = "m²" Then LBL_sect_m.Visible = True LBL_sect_mm.Visible = True section = CDbl(TB_section.Text) * 1000000 LBL_sect_mm.Text = section & " mm²" LBL_sect_m.Text = CStr(Math.Round(section / 1000000, 2)) & " m²"   End If   Else   LBL_sect_m.Visible = False LBL_sect_mm.Visible = False TB_section.ForeColor = Color.Red section = 0   End If   ' enabled case   If IsNumeric(TB_section.Text) And IsNumeric(TB_vitesse.Text) Then TB_debit.Enabled = False ElseIf IsNumeric(TB_debit.Text) And IsNumeric(TB_section.Text) Then TB_vitesse.Enabled = False Else 'If Not IsNumeric(TB_vitesse.Text) Then TB_debit.Enabled = True TB_vitesse.Enabled = True End If     End Sub

---

j'ai testé plusieurs solutions dont une qui m'a bien plus (car je la comprends..) :

Code:

---

1 2 3

If InStr(TB_section.Text, ".") <> 0 Then TB_section.Text.Replace(".", ",") End If

---

je l'ai insérée à l'entrée du Sub, pas bon.
je l'ai insérée dans le Else du premier If , pas bon.
je l'ai insérée à la sortie du Sub, pas bon.

Soit c'est mon logiciel qui ne comprends rien (peu de chances..) soit c'est moi qui est du mal à me faire comprendre. :)

mais où est donc l'erreur ?!

merci d'avance.

Bonsoir,
et dans le TB_section.Validating ?

Si tu veux faire afficher ton nombre dans un textbox utilise un "MaskedTextBox" au lieu d'un "TextBox" ordinare.

excusez du retard...

oui, j'ai déjà tenté dans le TB_section.Validating et aussi dans TB_section.KeyPress.

sinon, j'ai testé avec une MaskedTextBox. aucun changement. le texte affiche toujours rouge.

que faire?

Essaie ça. Déclare toi une variable string dans ta méthode ensuite met ce que tu as remplacer dans ton textbox dans cette variable et ensuite n'utilise que cette variable.

Code:

---

1 2 3 4 5 6

Dim strSection as string = string.empty   If TB_section.Text.Contains(".") Then strSection = TB_section.Text.Replace(".", ",") End If

---

Et si ça fonctionne je vais te donner un peu plus d'explication.

Merci Ascendris!!! ça fonctionne!

je suis parti de ton code. TB_section.Text.Contains(".") était la clé.

je mets mon code final.. ça aidera peut-être certains qui sont dans mon cas.

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

Private Sub TB_section_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles TB_section.Validating   If TB_section.Text.Contains(".") Then strSection = TB_section.Text.Replace(".", ",") TB_section.Text = strSection.ToString End If TB_section.Select(TB_section.Text.Length.ToString, 0)   ' numeric or not numeric If IsNumeric(TB_section.Text) Then   TB_section.ForeColor = Color.Black   If CB_section.SelectedItem = "mm²" Then section = CDbl(TB_section.Text) LBL_sect_m.Visible = True LBL_sect_mm.Visible = True LBL_sect_mm.Text = CStr(section) & " mm²" LBL_sect_m.Text = CStr(Math.Round(section / 1000000, 2)) & " m²"   ElseIf CB_section.SelectedItem = "m²" Then LBL_sect_m.Visible = True LBL_sect_mm.Visible = True section = CDbl(TB_section.Text) * 1000000 LBL_sect_mm.Text = section & " mm²" LBL_sect_m.Text = CStr(Math.Round(section / 1000000, 2)) & " m²"   End If   Else   LBL_sect_m.Visible = False LBL_sect_mm.Visible = False TB_section.ForeColor = Color.Red section = 0   End If End Sub

---

Merci encore.

Citation:

---

Envoyé par Helicoid

je suis parti de ton code. TB_section.Text.Contains(".") était la clé.

---

À vrai dire ce n'est pas TB_section.Text.Contains(".") qui étais la clé, c'est :

Code:

---

strSection = TB_section.Text.Replace(".", ",")

---

Explication: Avant tu essayais de "modifier/transformer" la valeur directement dans le textbox et pour une raison quelconque ce n'est pas possible (Je crois c'est une raison de "thread"). Bref, je t'ai fais utiliser une variable string pour que celle-ci sert de variable dynamique pour permettre la "tranformation" du texte dans ton textbox.

AVANT :

Code:

---

TB_section.Text.Replace(".", ",")

---

APRÈS:

Code:

---

strSection = TB_section.Text.Replace(".", ",")

---

Il est a noter que ca n'est pas du tout la bonne démarche à utiliser.
Il faut en effet plutot s'orienter vers la gestion des cultures et des fonctions comme Double.Parse()

Citation:

---

Envoyé par Nathanael Marchand

Il est a noter que ca n'est pas du tout la bonne démarche à utiliser.
Il faut en effet plutot s'orienter vers la gestion des cultures et des fonctions comme Double.Parse()

---

D'autant que la question est récurrente et que les exemples abondent sur le forum.

mais comme je l'ai dis à l'ouverture de la discussion, je n'ai rien trouvé qui m'aidais.
je n'ai vu aucun post qui parlait de placer le contenu de la textbox dans une variable.

Et pourtant (et je me suis arreté à la première page de recherche):
http://www.developpez.net/forums/d11...perer-textbox/
ou même le cours:
http://plasserre.developpez.com/cour...gage-vb2#V-G-1

Citation:

---

Envoyé par Nathanael Marchand

Et pourtant (et je me suis arreté à la première page de recherche):
http://www.developpez.net/forums/d11...perer-textbox/

---

Cette page parle de "Récupérer la valeur d'un textbox de type double " et non de "Remplacer "." par ","". Ce n'est vraiment pas le même sujet

Citation:

---

Envoyé par Ascendris

Cette page parle de "Récupérer la valeur d'un textbox de type double " et non de "Remplacer "." par ","". Ce n'est vraiment pas le même sujet

---

Et pourtant si car l'idée de remplacer "." par "," est pas bonne dès le départ! Le fond du problème n'est pas ce remplacement, c'est plutôt gérer les différentes cultures pour les conversions. Car le gars qui configure son Windows en anglais et qui rentre la valeur 1,234,567.89 (qui est pourtant tout à fait valide en anglais) aura une belle erreur car c'est codé avec des moufles!

Effectivement mais plus haut vous avez mentionné le "Double.parse()", corrigez moi si je ne me trompe mais on ne peut pas "Double.parse()" une string avec un "." seulement les string avec des ",". Non?

Citation:

---

Envoyé par Ascendris

Effectivement mais plus haut vous avez mentionné le "Double.parse()", corrigez moi si je ne me trompe mais on ne peut pas "Double.parse()" une string avec un "." seulement les string avec des ",". Non?

---

Permet moi donc de te corriger, il existe (au moins) une surcharge qui permet de spécifier un IFormatProvider (implémenté par exemple par CultureInfo) afin de permettre à la méthode de savoir qu'elle format numérique est accepté/rejeté et comment elle doit le parser.
Donc, par exemple, la "," n'aura pas la même signification si on passe une culture "fr-FR" ou "en-US" (on pourrait même imaginer une classe Perso implémentant IFormatNumber où la "," aurait une toute autre signification :aie:)

Cordialement !

Ah et bien merci je viens d'apprendre quelque chose de nouveau! :)

Citation:

---

Envoyé par Ascendris

Effectivement mais plus haut vous avez mentionné le "Double.parse()", corrigez moi si je ne me trompe mais on ne peut pas "Double.parse()" une string avec un "." seulement les string avec des ",". Non?

---

Bah si justement, l'intéret de Double.Parse est de savoir gérer les cultures!

Code:

---

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

double d;   CultureInfo frCulture = CultureInfo.GetCultureInfo("fr-FR"); CultureInfo usCulture = CultureInfo.GetCultureInfo("en-US"); CultureInfo chCulture = CultureInfo.GetCultureInfo("fr-CH");   Double.TryParse("1234,56", NumberStyles.Any, frCulture, out d).Dump();//True 1234,56 Double.TryParse("1234,56", NumberStyles.Any, usCulture, out d).Dump();//True 123456 Double.TryParse("1234,56", NumberStyles.Any, chCulture, out d).Dump();//False 0 Double.TryParse("1234.56", NumberStyles.Any, frCulture, out d).Dump();//False 0 Double.TryParse("1234.56", NumberStyles.Any, usCulture, out d).Dump();//True 1234,56 Double.TryParse("1234.56", NumberStyles.Any, chCulture, out d).Dump();//True 1234,56 Double.TryParse("1'234.56", NumberStyles.Any, frCulture, out d).Dump();//False 0 Double.TryParse("1'234.56", NumberStyles.Any, usCulture, out d).Dump();//False 0 Double.TryParse("1'234.56", NumberStyles.Any, chCulture, out d).Dump();//True 1234,56 Double.TryParse("1'234,56", NumberStyles.Any, frCulture, out d).Dump();//False 0 Double.TryParse("1'234,56", NumberStyles.Any, usCulture, out d).Dump();//False 0 Double.TryParse("1'234,56", NumberStyles.Any, chCulture, out d).Dump();//False 0

---

Citation:

---

Envoyé par Ascendris

Explication: Avant tu essayais de "modifier/transformer" la valeur directement dans le textbox et pour une raison quelconque ce n'est pas possible (Je crois c'est une raison de "thread").

---

Ca n'a absolument rien à voir avec les threads... C'est juste que la méthode Replace ne modifie pas la chaine sur laquelle tu l'appelles (les strings en .NET ne sont pas modifiables), ça renvoie une nouvelle chaine avec le résultat. Appeler Replace sans récupérer le résultat crée donc une nouvelle chaine qui n'est jamais utilisée...