>I need to convert a binary number to Hex, and vice-versa. It's been a long time since I've done this. Does anyone have some code that will do this for me?
>
>The binary number will look something like: 1100001111010001 (It will be as much as 16 digits)
>
>Craig
Hi Craig,
I'd suggest a two step approach, the first being to convert the binary string to an integer, then covert the integer to hex. I recently saw a routine to do the latter conversion, so here's the first part:
FUNCTION BStr2Int
LPARAMETER pc_bstr
LOCAL lnresult, lni, lnj, lnlast
lnlast = LEN(pc_bstr)
lnj = -1
lnresult = 0
FOR lni = lnlast TO 1 STEP -1
lnj = lnj + 1
lnresult = lnresult + (VAL(SUBSTR(pc_bstr, lni, 1)) * (2 ^ lnj))
NEXT
RETURN lnresult
Regards,
George
George
Ubi caritas et amor, deus ibi est