Hexa to Val

[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

[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=

[SPH]

@PAPIPP:

+1

Excellent