Séparateur Décimal URGENT!!!!!

Question

Salut à tous, 
J'utilise VB5 pour développer et Btrieve pour stocker mes données. 
Lors de l'exécution de mon prog, j'ai souvent des Erreur 13 lorsque je lit les fichiers car les utilisateurs ont des séprateurs décimaux différents (. ou , ). si quelqu'un a une idée sur  la façon de gérer ce problème, ca serais vraiment dur sympa!!!!

ThePsychowizard · Answer

Peut être suffirait-il, au tout début du programme de faire une recherche des "," et de les remplacer toutes par un "." ou inversement...

The Psychowizard.

cs_processus · Answer

Fait un 'Val()' de ta variable

==============
Site Web de JDPROG
Présentation de MP3 Index
Logiciel d'indexation de fichier MP3

http://jdprog.fr.st

cs_seblomb · Answer

Salut,

Dans un module tu peux mettre:

Public Declare Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" _
(ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String, _
ByVal cchData As Long) As Long
Public separateur As String

Et dans le code de ta form:

Dim lplcdate As String * 1
Dim result As Long

'symbole décimale?
Const LOCALE_SDECIMAL = &HE

result = GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SDECIMAL, lplcdate, 2)
If result <> 0 Then
separateur = lplcdate
End If

Ainsi, si l'utilisateur a la virgule dans ses paramètres régionaux (et pas le point), on aura:
separateur=","

Bye,
Séb.

Séparateur Décimal URGENT!!!!!

3 réponses

Discussions similaires