怎样将一个字符串的十六进制数转化为十进制整形数

sihan

怎样将一个字符串的十六进制数转化为十进制整形数，例如“F”——15，“10”——16


“FF”——

LONGXIN

将一个字符串按BASE做为基数的进制转换为十进制的整数值
(defun baseToDecimal (base val / pos power result tmp)
(setqpos (1+ (strlen val))
power -1
result 0
val (strcase val)
)
(while (> (setq pos (1- pos)) 0)
(setq result
(+
result
(*(if (> (setq tmp (ascii (substr val pos 1))) 64)
(- tmp 55)
(- tmp 48)
)
(expt base (setq power (1+ power)))
)
)
)
)
result
)
功能
将一个字符串按BASE做为基数的进制转换为十进制的整数值
语法
(baseToDecimal base val )
参数
base:一个代表所要转换的进制(BASE2、BASE8、BASE16等)基数整数。
val:一个进行转换的字符串。
返回值
十进制的整数值
样例
(baseToDecimal 16 "FA") (baseToDecimal 2 "101") (baseToDecimal 8 "34")