[求助]：lisp中如何转换16进制字符到十进制数字

clearlai

rtos处理的对象是数字。不是字符。现在有个16进制的字符
如16进制字符：“2CD21CE”----------------
如何转？

taner

2. 
   
3.   [FONT=courier new]
   
4. ;;; (txt-basetodecimal base val)
   
5. ;;; 将一个字符串按base的做为基数的进制转换为十进制的整数值
   
6. ;;; base:一个代表所要转换的进制(base2、base8等)基数整数。
   
7. ;;; val:一个进行转换的字符串。
   
8. ;;; 返回值
   
9. ;;; 十进制的整数值
   
10. ;;; ------------------------------------------------------------------------
    
11. (defun txt-basetodecimal (base val / pos power result tmp)
    
12.   (setq pos (1+ (strlen val))
    
13.         power -1
    
14.         result 0
    
15.         val (strcase val)
    
16.   )
    
17.   (while (> (setq pos (1- pos))
    
18.             0
    
19.          )
    
20.     (setq result (+ result (* (if (> (setq tmp (ascii (substr val pos 1)))
    
21.                                      64
    
22.                                   )
    
23.                                 (- tmp 55)
    
24.                                 (- tmp 48)
    
25.                               ) (expt base (setq power (1+ power)))
    
26.                            )
    
27.                  )
    
28.     )
    
29.   )
    
30.   result
    
31. )
    
32. ;;; ------------------------------------------------------------------------
    
33. ;;; command:
    
34. ;;; (txt-basetodecimal 16 "fa")
    
35. ;;; 250
    
36. ;;; command:
    
37. ;;; (txt-basetodecimal 16 "efa")
    
38. ;;; 3834
    
39. ;;; command:
    
40. ;;; (txt-basetodecimal 2 "01101010011110")
    
41. ;;; 6814
    
42. ;;; command:
    
43. ;;; (txt-basetodecimal 8 "123654723")
    
44. ;;; 21977555
    
45.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;;; (txt-basetodecimal base val)<br /> ;;; 将一个字符串按base的做为基数的进制转换为十进制的整数值<br /> ;;; base:一个代表所要转换的进制(base2、base8等)基数整数。<br /> ;;; val:一个进行转换的字符串。<br /> ;;; 返回值<br /> ;;; 十进制的整数值<br /> ;;; ------------------------------------------------------------------------<br /> (defun txt-basetodecimal (base val / pos power result tmp)<br />   (setq pos (1+ (strlen val))<br />         power -1<br />         result 0<br />         val (strcase val)<br />   )<br />   (while (> (setq pos (1- pos))<br />             0<br />          )<br />     (setq result (+ result (* (if (> (setq tmp (ascii (substr val pos 1)))<br />                                      64<br />                                   )<br />                                 (- tmp 55)<br />                                 (- tmp 48)<br />                               ) (expt base (setq power (1+ power)))<br />                            )<br />                  )<br />     )<br />   )<br />   result<br /> )<br /> ;;; ------------------------------------------------------------------------<br /> ;;; command:<br /> ;;; (txt-basetodecimal 16 "fa")<br /> ;;; 250<br /> ;;; command:<br /> ;;; (txt-basetodecimal 16 "efa")<br /> ;;; 3834<br /> ;;; command:<br /> ;;; (txt-basetodecimal 2 "01101010011110")<br /> ;;; 6814<br /> ;;; command:<br /> ;;; (txt-basetodecimal 8 "123654723")<br /> ;;; 21977555<br />   [/FONT]<br />

clearlai

原我以为有个函数就可以转了。还是要编出一个局部函数来。
^_^
总之谢谢楼上的。