MODIFICATION DU SÉPARATEUR DÉCIMAL DANS LA BASE DE REGISTRE
cs_BABASSE
Messages postés
41
Date d'inscription
samedi 23 février 2002
Statut
Membre
Dernière intervention
31 juillet 2007
-
22 janv. 2003 à 10:17
CALMELSCHRISTOPHE Messages postés 1 Date d'inscription samedi 16 février 2008 Statut Membre Dernière intervention 20 septembre 2009 - 20 sept. 2009 à 17:53
CALMELSCHRISTOPHE Messages postés 1 Date d'inscription samedi 16 février 2008 Statut Membre Dernière intervention 20 septembre 2009 - 20 sept. 2009 à 17:53
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/5724-modification-du-separateur-decimal-dans-la-base-de-registre
https://codes-sources.commentcamarche.net/source/5724-modification-du-separateur-decimal-dans-la-base-de-registre
20 sept. 2009 à 17:53
Merci encore pour ces quelques lignes claires.
15 nov. 2006 à 15:05
3 nov. 2006 à 13:23
27 déc. 2005 à 10:58
VB.Net en tout cas, on peut lui faire ignorer les paramètres régionaux, j'ai testé avec les 3 lignes suivantes, mon application ne plante plus, preuve qu'elle interpréte bien les nombres avec ".", et mon panneau de config me sort bien le Français avec la "," :
Imports System.Globalization
Imports System.Threading
Thread.CurrentThread.CurrentCulture = New CultureInfo("en-us")
A faire en début de programme (Main ou Load de la première forme). Ici on lui force la culture américaine avec le "." et tous les autres paramètres, mais on peut aussi faire plus subtil en créant une variable CultureInfo et en la modifiant à loisir !
@+
Benoît 'Mutos' ROBIN
http://spacesims.hoshikaze.net
27 déc. 2005 à 10:14
27 déc. 2005 à 05:38
Encore un vieux post (2003 ^-^) sur le problème qui me préoccupe : une appli qui plante sur des constantes en dur et en "." lorsque la machine est en ",". Par hasard, quelqu'un aurait-il un tuyau pour modifier le séparateur dans l'application sans changer celui de la machine ? Ce me semblerait la meilleure solution, mais jusqu'à présent, 4 sujets et pas de réponse dans ce sens...
@+
Benoît 'Mutos' ROBIN
http://hoshikaze.net
3 nov. 2003 à 09:37
Public Function bChangerSeparateurDecimal( _
Optional sSepDecimalImpose$ = ".", _
Optional bRetablir As Boolean = False) As Boolean
Dim sSepDecimal$, lCodePage_LCID&, rNumber!, lRet&
Const lLOCALE_SDECIMAL& = 14 ' Code adresse du séparateur décimal : decimal separator
' Lire le séparateur décimal actuel
rNumber = Val("1.1")
sSepDecimal = Mid(rNumber, 2, 1)
' Conserver le séparateur décimal actuel
Static sPrecedentSepDecimal$
If sPrecedentSepDecimal "" Then sPrecedentSepDecimal sSepDecimal
' Forcer le séparateur décimal (par exemple ".")
If sSepDecimal <> sSepDecimalImpose Then
lCodePage_LCID = GetSystemDefaultLCID() ' Lire le code page actuel
lRet = SetLocaleInfo(lCodePage_LCID, lLOCALE_SDECIMAL, sSepDecimalImpose)
If lRet = False Then Exit Function
End If
' Rétablir le précédent séparateur décimal avant l'appel à cette fonction
If bRetablir And sSepDecimal <> sPrecedentSepDecimal Then
lRet = SetLocaleInfo(lCodePage_LCID, lLOCALE_SDECIMAL, sPrecedentSepDecimal)
If lRet = False Then Exit Function
End If
bChangerSeparateurDecimal = True
End Function
22 janv. 2003 à 10:17
Ceci dis, je cherchais un moyen de connaître le séparateur par défault et cela me donne un indice pour le récupérer.