[Implemented] Val function to work with hexadecimal strings

[AngelSoul]

Example:
a$ = "$10"
debug Val(a$)

;would be cool if it returns 16 instead of 0

[PB]

In the meantime, try this:

Code: Select all

Procedure hex2dec(h$)
  h$=Trim(UCase(h$)) : If Left(h$,1)="$" : h$=Mid(h$,2,999) : EndIf
  For r=1 To Len(h$)
    d<<4 : a$=Mid(h$,r,1)
    If Asc(a$)>60
      d+Asc(a$)-55
    Else
      d+Asc(a$)-48
    EndIf
  Next
  ProcedureReturn d
EndProcedure

a$="$10"
Debug hex2dec(a$)

[PB]

@Fred: Please make a native hex2dec command soon. Please.

[Kaeru Gaman]

I can understand that the native Val() only supports decimal.
it's for all the performance reasons we love PureBasic for...
same like why we have not only Str() but also StrF() and StrQ() and StrD()...

but I agree, a native ValHex(Hex$) would be fine.

[#NULL]

i would make use of a native one too.
sometimes i even used a..
val.l = valBin(binStr.s)
..but mostly for debugging or testing stuff.

[nco2k]

yes fred, please add a Hex2Dec() soon, its been a looooong time now.

c ya,
nco2k

[Thalius]

maybe useful in the meantime:
http://www.purebasic.fr/english/viewtopic.php?p=229827