Page 1 sur 1

Hexa to Val

Publié : lun. 22/août/2022 0:56
par SPH
Créer une instruction PB pour faire ca rapidement :

Code : Tout sélectionner

texte$="01020345f8c6deffcb"
For i=1 To Len(texte$) Step 2
  a$="$"+Mid(texte$,i,2)
  Debug a$+" = "+Str(Val(a$))
Next

Re: Hexa to Val

Publié : lun. 22/août/2022 18:20
par PAPIPP
Bonjour SPH.
Merci pour avoir débuté cette étude de conversion.
Le pb soulevé ici est un peu plus complexe car un nombre en hexa peut être défini
par 1,2,4,8 ou 16 1/2 octets en ascii ou 4,8,16,32,ou 64 bits.
Exemple ci-dessous.

Code : Tout sélectionner

; Les nombres en hexa peuvent être définis sur 1,2,4,8 ou 16 1/2 octets en ascii ou 4,8,16,32,ou 64 bits
;;;;;   123456789ABCDEF0123456789ABCDEF0 
texte$="01020345f8c6deffcb0F0345f8c6defE"
; Debug mp_h(@texte$,64,222)
longtxt=Len(texte$)
lndecoupe=1
Repeat 
  Debug "************  decoupe par "+Str(lndecoupe)+"  *************"
  i=1
Repeat
  a$="$"+Mid(texte$,i,lndecoupe)
  Debug a$+" = "+Str(Val(a$))
  i+lndecoupe
Until i>longtxt
lndecoupe*2
Until  lndecoupe>16
<a=

Re: Hexa to Val

Publié : jeu. 29/août/2024 21:44
par SPH
@PAPIPP:

+1

Excellent :idea: