BONJOUR ,voici ce que je fais en vb.net pour ma part :
au lieu d'un controle textbox j'ai en pire un fichier texte pour code fortran ou le separteur decimal est le point bien entendu .
dans un module dedie à la lecture du fichier texte
Option
Explicit
On
Option
Strict
On
Imports
System
Imports
System.Threading
Imports
System.Globalization
Imports
System.IO
Imports
System.Text
Module monModule
Dim CultureCourante As CultureInfo 'utilisateur
Dim CultureExtra As CultureInfo 'pour lire separateur english
Private Sub LectureDonnees
'sauvegarde culture utilisateur(fr)
CultureCourante= CultureInfo.CurrentCulture
'init cultureInfo extra pour lire separateur english
extraCulture =
New CultureInfo("en-US")
'lit les valeurs des champs texte dans les 2 variables
Arcs.NSER = Integer.Parse(nserie, extraCulture )
Arcs.CAPA = Double.Parse(capa, extraCulture )
'restaure culture courante dans le thread actuel
extraCulture = CultureCourante
End Sub
'-----------------------------------------------------------------
je pense que tu peux lire au clavier le point decimal en francais et parser ensuite comme suit:
Option Explicit
On
Option
Strict
On
Imports
System
Imports
System.Threading
Imports
System.Globalization
Imports
System.IO
Imports
System.Text
Private
Private
Sub Lit_Valide()
'Validation en francais(utilisateur)
' TextBox1 traite variable ALPHA
Dim ALPHA
As
Decimal = 0.0
Dim
boolAlpha As
Boolean =
False
If IsNumeric(Val(TextBox1.Text))
Then
'ok
boolAlpha =
True
Else
'FAUX.....reset etc
TextBox1.Text =
""
ALPHA = 0.0
End
If
' TextBox2 traite variable BETA, boolBeta = True
'ETC....
'les variables ALPHA,BETA dans mon cas sont au niveau global(publiques)....
Dim BETA
As
Decimal = 0.0
Dim boolBeta
As
Boolean =
False
'.................
If boolAlpha
And boolAlpha
Then
Call ECRIT()
End
If
'sinon retour à l'appelant (formulaire principal)
End
Sub
'-----------------------------------------------------------------
Private
Sub ECRIT()
'ecriture des variables en english
Dim
CultureCourante As CultureInfo
'utilisateur
Dim CultureExtra
As CultureInfo
'pour ecrire separateur english
'sauvegarde culture utilisateur(fr)
CultureCourante = CultureInfo.CurrentCulture
'init cultureInfo extra pour lire separateur english
CultureExtra =
New CultureInfo("en-US")
Dim ALPHA
As
Decimal = 15.25
Console.WriteLine(
"F: {0}",ALPHA.ToString("F02",
CultureExtra))
' affichera "F: 15.25"
'restaure culture courante dans le thread actuel
CultureExtra = CultureCourante
End
Sub
End
SubEnd
Sub
