[其他]：二进制、八进制、十六进制

eachy

1. 
   
2. <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="700" id="AutoNumber1" height="498">
   
3.   <tr>
   
4.     <td width="100%" height="489">
   
5.       <iframe name="I1" width="100%" height="100%" src="http://www.bcbschool.com/newls/ls06.htm#6.2.7">
   
6. 浏览器不支持嵌入式框架或配置为不显示嵌入式框架
   
7.       </iframe>
   
8.     </td>
   
9.   </tr>
   
10. </table>
    

复制代码

16进制字串转10进制数

2. 
   
3. (defun $hex->num (str / $texta m n c)
   
4.   (defun $testa        (s)
   
5.     (cond
   
6.       ((= (strcase s) "A") 10)
   
7.       ((= (strcase s) "B") 11)
   
8.       ((= (strcase s) "C") 12)
   
9.       ((= (strcase s) "D") 13)
   
10.       ((= (strcase s) "E") 14)
    
11.       ((= (strcase s) "F") 15)
    
12.       (t (read s))
    
13.     )
    
14.   )
    
15.   (setq        n (strlen str)
    
16.         m n
    
17.         c 0
    
18.   )
    
19.   (repeat n
    
20.     (setq c (+ c (* ($testa (substr str 1 1)) (expt 16 (1- m)))))
    
21.     (setq str (substr str 2))
    
22.     (setq m (1- m))
    
23.   )
    
24.   c
    
25. )

<br /> (defun $hex->num (str / $texta m n c)<br />   (defun $testa        (s)<br />     (cond<br />       ((= (strcase s) "A") 10)<br />       ((= (strcase s) "B") 11)<br />       ((= (strcase s) "C") 12)<br />       ((= (strcase s) "D") 13)<br />       ((= (strcase s) "E") 14)<br />       ((= (strcase s) "F") 15)<br />       (t (read s))<br />     )<br />   )<br />   (setq        n (strlen str)<br />         m n<br />         c 0<br />   )<br />   (repeat n<br />     (setq c (+ c (* ($testa (substr str 1 1)) (expt 16 (1- m)))))<br />     (setq str (substr str 2))<br />     (setq m (1- m))<br />   )<br />   c<br /> )

aeo

十进-->其他

2. 
   
3. (defun BASE (bas int / ret yyy zot)
   
4.   (defun zot (i1 i2 / xxx)
   
5.     (if (> (setq xxx (rem i2 i1))
   
6.            9
   
7.         )
   
8.       (chr (+ 55 xxx))
   
9.       (itoa xxx)
   
10.     )
    
11.   )
    
12.   (setq ret (zot bas int)
    
13.         yyy (/ int bas)
    
14.   )
    
15.   (while (>= yyy bas)
    
16.     (setq ret (strcat (zot bas yyy) ret))
    
17.     (setq yyy (/ yyy bas))
    
18.   )
    
19.   (strcat (zot bas yyy) ret)
    
20. )
    

<br /> (defun BASE (bas int / ret yyy zot)<br />   (defun zot (i1 i2 / xxx)<br />     (if (> (setq xxx (rem i2 i1))<br />            9<br />         )<br />       (chr (+ 55 xxx))<br />       (itoa xxx)<br />     )<br />   )<br />   (setq ret (zot bas int)<br />         yyy (/ int bas)<br />   )<br />   (while (>= yyy bas)<br />     (setq ret (strcat (zot bas yyy) ret))<br />     (setq yyy (/ yyy bas))<br />   )<br />   (strcat (zot bas yyy) ret)<br /> )<br />

(base 16 14)
"0E"

(base 16 10)
"0A"

(base 2 17)
"10001"

(base 2 30)
"11110"

闲云

如果一个十六进制数减一，如123A-1，一定要把123A转成十进制数才可以吗？

eachy

最初由 闲云 发布
[B]如果一个十六进制数减一，如123A-1，一定要把123A转成十进制数才可以吗？ [/B]

Lisp中要转换，计算器中不用:)

闲云

那比如我要得到前一个图元名的话，需转成十进制数后减一，再转成十六进制数，是这样吗？

eachy

最初由 闲云 发布
[B]那比如我要得到前一个图元名的话，需转成十进制数后减一，再转成十六进制数，是这样吗？ [/B]

你说的要用句柄而不是图元名。

闲云

用Lisp来完成这事也挺烦