Input d'un nombre a virgule...

Question

Salut,

J'ai un programme qui print dans un fichier des nombres (des variables de type currency en fait), certains à vigules, dautres pas.

Quand je veux charger toutes ces données, je fais Input #1, MaVariableCurrency mais le problème c'est que VB interprète les nombres a virgules comme 2 nombres distincts séparés par le séparateur (la virgule). Comment charger le nombre en entier ?

acive · Answer

Salut

éssaie par exemple MaVariableCurrency est: "KJFDK123.456ERT"

alors tu fais: Chiffre = (mid(MaVariableCurrency, 6, 7))
et ton Chiffre est égal a "123,456"

voila...

bubbathemaster · Answer

Merci de la réponse ^^

Ca fait un peu rafistolage, ya pas une méthode directe ? C'est quand même relou cette interprétation de la virgule en séparateur ! Et si je fais Line Input au lieu d'Input il me met "type mismatch" (ca doit etre reservé aux strings)

acive · Answer

il faudrait mettre des points à la place des virgules dans MaVariableCurrency

par exemple 

qs = 123
qs = format(qs, "000.00 ?")
label1.caption = qs

c'est pas la meme chose que:
  
qs = 123
qs = format(qs, "000,00 ?")
label1.caption = qs

Et line input c'est bien un 'string' aussi ca ne résoud pas le probleme...

cs_rene38 · Answer

Bonjour

Dim MaVariableCurrencyStr As String
Line Input #1, MaVariableCurrencyStr
MaVariableCurrency = CDbl(MaVariableCurrencyStr)

ça devrait marcher.

bubbathemaster · Answer

Merci Rene38 effectivement ta technique fonctionne a merveille !

Input d'un nombre a virgule...

5 réponses

Discussions similaires