Discussion :

[megamario]

Bonjour à tous,

J'ai un petit souci avec un logiciel qui crée et utilise des fichiers formaté en csv afin de visualisé des courbes.

Mon souci c'est qu'il se peut que le logiciel qui enregistre les csv soit avec un OS anglais. Du coup les données dans le csv sont avec des points au lieu de virgule: 15.5 au lieu de 15,5.

Donc lorsque je veux visualiser les courbes sur un autre PC qui est en français j'ai une exception qui se crée lors de la conversion de string en double.

Y a t'il un moyen d'automatiser cette détection pour que la conversion fonctionne qu'elle que soit le type de caractéristique régional sur lequel le logiciel tourne. Conversion qui marche aussi bien avec les points que les virgules

[The_badger_man]

Il faut que le logiciel qui crée le fichier CSV le fasse toujours avec la même culture (anglais par exemple) et décode toujours avec la même.

Code :

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

1
2
3
value.ToString(CultureInfo.CreateSpecificCulture("en-GB"))
 
double number = Double.Parse(value, CultureInfo.CreateSpecificCulture("en-GB"));

[megamario]

Merci, je connaissait pas, par contre le logiciel est en 2 parties, la 1ère est un logiciel adapté et modifié pour récupérer les données et les enregistrés en csv, il est crée en VB6. La 2éme partie et en .net pour l'utilisation de zedgraph.

Par contre avec cette méthode, je vois pas comment affecter les doubles à mes paramètres, car par exemple Zedgraph attend des doubles pour les points, il faut qu'il est le bon format. Je me trompe peut être, et même surement, mais si je force la création d'un double en format US, zedgraph lui tournant sur un PC FR il va le prendre comment le double avec le point?

Dans un 1er temps j'ai crée une rustine mais personnelement je trouve pas sa beau car j'aime pas utilisé les exceptions pour faire mon programme.

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
 
Private Function ConvertStringToDouble(ByVal ln As String) As Double
        Dim Point As Boolean
        Try
            If InStr(ln, ".") > 0 Then
                Point = True
            Else
                Point = False
            End If
            ConvertStringToDouble = Convert.ToDouble(ln)
        Catch ex As Exception
            If Point Then
                ln = Replace(ln, ".", ",")
            Else
                ln = Replace(ln, ",", ".")
            End If
            ConvertStringToDouble = Convert.ToDouble(ln)
        End Try
    End Function

Je vais voir si je peut modifier le VB6 dans pour être sur de la localisation.