PB pour sortir en point au lieu de virgule dans un fichier TXT

Bonjour,

j'ai un petit souci de format de nombre quand j'ecrist dans un fichier texte, et je ne souhaiterais pas modifié les options régionales.

Pour le moment voici mes différents test :

Code:

---

1 2 3 4 5 6 7

sw.Write("{0:000000000000000.00}", "128,70") ' Resultat : 000000000000128,70   tmp21 = replace ("128,70", ",", ".") sw.Write("{0:000000000000000.00}", tmp21) ' Resultat : 128.70

---

J'ai fait plein d'autre test.......
je ce je souhaiterais c'est en résultat : 000000000000128.70

Cela doit pas etre compliqué mais....

Merci pour votre aide ou vos pistes

Thierry

Sais tu ce que fait ceci?

Code:

---

sw.Write("{0:000000000000000.00}", tmp21)

---

Bonjour,

je suis pas sur de comprendre la question.

Code:

---

sw.Write("{0:000000000000000.00}", tmp21)

---

Ce code devrait formaté au format demandé la variable tmp21, mais ce n'est pas le cas.

Et le format demander est ????

00000.00 = Des chiffres, un point et deux chiffres après le point

Au contraire, ça marche très bien ! ;)

Moi quand je test ca

Code:

---

1 2 3

tmp21 = replace ("128,70", ",", ".") sw.Write("{0:000000000000000.00}", tmp21) ' Resultat : 128.70

---

Mon résultat est 128.70 alors que je souhaiterais 000000000000128.70

Ce n'est probablement pas la meilleure méthode alors n'hésitez pas à proposer mieux, j'ai rien qui ne me vient à l'esprit hormis donner un specifier au toString de la classe Decimal:

Code:

---

1 2 3 4 5 6

Dim a As Decimal = "128,70" Dim specifier As String = "0000000000000000.00"     Console.WriteLine(a.ToString(specifier).Replace(",", ".")) 'return 0000000000000128.70

---

EDIT: Plus propre :

Code:

---

1 2 3 4 5 6

Dim a As Decimal = "128,70" Dim specifier As String = "0000000000000000.00"     Console.WriteLine(a.ToString(specifier, System.Globalization.CultureInfo.GetCultureInfo("en-us"))) 'return 0000000000000128.70

---

Merci pour ses réponses, mais dans les deux cas j'ai des erreurs !

Pour :

Code:

---

1 2 3 4 5 6

Dim a As Decimal = "128,70" Dim specifier As String = "0000000000000000.00"     Console.WriteLine(a.ToString(specifier).Replace(",", ".")) 'return 0000000000000128.70

---

Mon code adapté a partir du tien

Code:

---

Console.WriteLine(drMYL_A5(0).ToString(specifier).Replace(",", "."))

---

Il me dis "Replace n'est pas un membre de char"

Pour :

Code:

---

1 2 3 4 5 6

Dim a As Decimal = "128,70" Dim specifier As String = "0000000000000000.00"     Console.WriteLine(a.ToString(specifier, System.Globalization.CultureInfo.GetCultureInfo("en-us"))) 'return 0000000000000128.70

---

Mon code :

Code:

---

Console.Writeline(drMYL_A5(0).ToString(specifier, System.Globalization.CultureInfo.GetCultureInfo("en-us")))

---

Il me dis "La résolution de surchage a échoue car aucun Write accessible ne peu etre appelée avec ces arguments"

Ces erreurs son surement du a ma variable drMYL_A5(0)

Merci pour l'aide

Thierry

Pardon, je croyais que ton problème concernait la virgule...
J'avais pas bien lu, c'est le matin.

Bon j'ai fais deux ou trois test... Et ça marche très bien, si et seulement si ta variable qui contient 123.25 EST un type numérique (double)

Ca ca marche:

Code:

---

1 2	Dim num As Double = 23.2 MsgBox(String.Format("{0:00000.00}", num))

---

Ca non :

Code:

---

1 2	Dim num3 As String = "23.2" MsgBox(String.Format("{0:00000.00}", num3))

---

Si tu partais d'un type numérique, pas de problème, laisse le comme il est.

Si à la base c'était un string... Alors, soit tu le transformes en double, soit tu travailles sur le string : tu comptes le nombre de caractères, et tu formates à la main.

Mais String.format sur un string, n'est pas du Regex qui va deviner comment modifier la chaîne en fonction de son contenu.
Par contre a partie d'un nombre, il le peut, car il connait le format d'entrée.

(PS : en 10 ans, je n'ai jamais eu a toucher à la culture-info de la machine pour régler un problème de virgule)

Citation:

---

Envoyé par Avatar69

Merci pour ses réponses, mais dans les deux cas j'ai des erreurs !

Pour :

Code:

---

1 2 3 4 5 6

Dim a As Decimal = "128,70" Dim specifier As String = "0000000000000000.00"     Console.WriteLine(a.ToString(specifier).Replace(",", ".")) 'return 0000000000000128.70

---

Mon code adapté a partir du tien

Code:

---

Console.WriteLine(drMYL_A5(0).ToString(specifier).Replace(",", "."))

---

Il me dis "Replace n'est pas un membre de char"

Pour :

Code:

---

1 2 3 4 5 6

Dim a As Decimal = "128,70" Dim specifier As String = "0000000000000000.00"     Console.WriteLine(a.ToString(specifier, System.Globalization.CultureInfo.GetCultureInfo("en-us"))) 'return 0000000000000128.70

---

Mon code :

Code:

---

Console.Writeline(drMYL_A5(0).ToString(specifier, System.Globalization.CultureInfo.GetCultureInfo("en-us")))

---

Il me dis "La résolution de surchage a échoue car aucun Write accessible ne peu etre appelée avec ces arguments"

Ces erreurs son surement du a ma variable drMYL_A5(0)

Merci pour l'aide

Thierry

---

Quel type d'objet te renvoi drMYL_A5(n) ?

Normalement .ToString() te renvoi un objet de type String et donc tu peux faire le replace, mais le message d'erreur indique qu'il renvoi plutôt un char ...

Et idem pour le 2éme message, ToString a une surcharge qui lui autorise d'avoir 2 paramètres.

Sauf si tu as surchargé le ToString() de l'objet que te retourne drMYL_A5(n) je comprend pas pourquoi tu as ces erreurs.

Re,

je m'en suis sortie grâce a vos réponses

Voila ce que j'ai ecris

Code:

---

sw.write(replace(string.format("{000000000000000.00}, drMYL_A5(0), ",", "."))

---

Merci a tous

Thierry