convertir une string "spéciale" en doubleRésolu

Question

Bonjour, je travaille sur un petit projet en VB6. Je dois r&#233;cup&#233;rer les donn&#233;es du fichier texte ci-joint.

A l'emplacement 135 et ce sur 8 caracteres ( 64 bits ), il doit y avoir un double &#224; virgule. A la place, je trouve une string de caracteres speciaux.

J'ai essay&#233; de convertir cette string en hexa ou en binaire avant de la caster double, mais rien n'y fait. Il trouve un entier &#224; &#233;norme exposant.
J'ai v&#233;rifier les doubles des enregistrements grace &#224; Hew WorkShop. Le double du 1er enregistrement est : 3,13. Je cherche maintenant un automatisme car il y a beaucoup d'enregistrements.

Donc je cherche un algo me permettant de convertir directement en double.
Merci de m'aider.

Gobillot · Accepted Answer

pour open en binary:

    Get/Put num&#233;rofichier, position, variable

    &#231;a lit/&#233;crit dans le fichier, &#224; la position donn&#233;e, les caract&#232;res contenus dans la variable

    position par d&#233;faut = position courante.

pour CopyMemory, il vaut mieux passer par un tableau de Bytes.




Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)



    Dim var   As Double

    ReDim B(7) As Byte

    Open Nomfichier For Binary As #1

         Get #1, , B

         Close #1

    CopyMemory var, B(0), 8

    MsgBox var


Daniel

kirby18 · Answer

ah excusez moi je pensais qu'on pouvait rajouter une pi&#232;ce jointe mais non en fait :p

malhivertman1 · Answer

Essaye avec CDbl(tavariable)

kirby18 · Answer

&#231;a ne marche pas ! :(

malhivertman1 · Answer

Dim var as double
var = CDbl(tavariable)  peut etre

kirby18 · Answer

euh ... non

Polack77 · Answer

Tente asc(carac)
Cette fonction te renvoie le code ASCII du 1&#233;r carac de la chaine passer en param&#232;tre 

 D'oh! Nuts!
 Mmmmm...
 DONUTS

Polack77 · Answer

Heeee oups c'est un bouble que tu veut, et je ne sait pas command reconaitre la virgule.
A tu tenter d'ouvrir ton fichier en binary (je dit &#231;a m&#234;me si je ne me souvien plus de la diferance) mais la donn&#233;e de ton double doit &#233;tre enregistrer en don&#233;e brut, soit on ecrit la valeur des octect, et un carac c'est un octect, donc 8 carac = 8 octect et un double fait 8 octect (ca me paraiterai logique)

 D'oh! Nuts!
 Mmmmm...
 DONUTS

Polack77 · Answer

Command lit tu ton fichier avec :
input #x, NomVariable
Ou tu recup toute le ligne de texte et tu extrait les don&#233;e ensuite? (avec "Line Input #x,NomVarString")

 D'oh! Nuts!
 Mmmmm...
 DONUTS

kirby18 · Answer

Effectivement. Les 8 octets valent les 64 bits que je mentionnais.

En ce qui concerne l'ouverture de fichier en binary, je l'ai fait m&#234;me si je ne vois pas trop la diff&#233;rence ( en tout cas, quand je r&#233;cup&#232;re d'autres donn&#233;es ).

J'ai trouv&#233; ce morceau de code sur le net mais je ne le comprends pas et j'ai peur qu'il ne soit pas complet. Pourriez vous m'aider ?

dim dNumber as double 
   open {somefile} for binary as #Handle 
     get #Handle,,dNumber 
   close #Handle

PCPT · Answer

salut,
c'est quoi la question? :$

tu veux convertir "3,13" (string) en 3,13 (double) ?

Dim dConv As Double
dConv = CDbl(Val(Replace("3,13", ",", ".")))

kirby18 · Answer

je r&#233;cup&#232;re tout dans une string avant de traiter :s

euh c'est peut etre pas clair en haut mais j'essaie de r&#233;cup&#233;rer un double affich&#233; sous forme de caract&#232;res sp&#233;ciaux dans un fichier, mais le cdbl ne marche pas

PCPT · Answer

on a pas ton fichier texte, ni tes m&#233;thodes d'acc&#232;s (fonctions). en plus tu parles de VB6 et de WorkSop, donc VBA?
plus tu seras flou et plus tu risques de le rester ;)

Polack77 · Answer

Qelqu'un connais une fonction pour converir une valeur numeric en un string mais binaire soit
2 -> "10"
5 -> "101"
Je pense que c jouable en convertisant une &#224; une les carac sp&#233;ciau en valeur, puis en binaire, concat&#233;ner tout cas et reconvertire en double.
Voillez ce que je veut dire?

 D'oh! Nuts!
 Mmmmm...
 DONUTS

Gobillot · Answer

Salut,

si c'est du binaire, faut que tu le lise en binaire directement dans un Double,

sinon tu le lit en cha&#238;ne et tu le copie dans un Double avec copymemory.


Daniel

Polack77 · Answer

copymemory?????? Je trouve pas dans l'aide (je suis en VBA sur Word avec Office 2003, et Win XP Sp2) et losque j'execute "Sub ou Fonction non d&#233;fini"
CA A L'AIRE VACHEMENT BIEN COMME FONCTION!!!
Command &#231;a marche????

 D'oh! Nuts!
 Mmmmm...
 DONUTS

kirby18 · Answer

PCPT > D&#233;sol&#233; mais j'arrive pas &#224; mettre des pi&#232;ces jointes
Ensuite ma fonction d'acc&#232;s : Open strNom For Binary Access Read As #lngFileNum pris sur le code source xedit trouv&#233; sur ce site.

Apr&#232;s je parle de Hex Workshop, &#233;diteur hexa qui n'a rien &#224; voir avec vb6. Il me servait juste &#224; v&#233;rifier que le double existe vraiment. Donc je suis bien sur VB6

Est ce que &#231;a ira ...?

Polack77 > non justement j'ai essay&#233; de convertir directement le binaire de 64 bits ( valant la string de 8 caracteres ) en un double mais &#231;a ne marche pas.
Imposssible de convertir les caracteres en hexa puis en binaire &#233;galement car il y a "overflow" surement d&#251; au traitement de 64 bits.

Gobillot · Answer

bon je fais un essai,

&#233;criture d'un Double = 3.13

visu avec un &#233;diteur hexa:   0A D7 A3 70 3D 0A 09 40

            


Daniel

kirby18 · Answer

exactement &#231;a !
la fonction copymemory marche si je prends comme 2e argument ( la source ) la string qui a copi&#233; toutes les donn&#233;es du fichier ?

je suis en train de chercher la dll pour copymemory. j'essaye et je te dis &#231;a !

Gobillot · Answer

tu peux lire directement dans un Double:

    Dim var        As Double

    Open Nomfichier For Binary As #1

         Get #1, , var

         Close #1


Daniel

Convertir une string "spéciale" en double

23 réponses

Discussions similaires