（XD::Math:HEX2DEC）十六进制转十进制

marting

1. (defun XD::Math:Hex2Dec (hex / tmp i n dec)
   
2.   (if (and
   
3.         (= (type hex) 'STR)
   
4.         (xd::string:regexps "^(0x|0X)?(-)?([a-fA-F0-9]+$)" hex "")
   
5.         (setq hex (xd::string:regexpr "^[0x|0X]" hex "" ""))
   
6.       )
   
7.     (progn
   
8.       (if (= "-" (substr hex 1 1))
   
9.         (setq fh "-"
   
10.               hex (substr hex 2)
    
11.         )
    
12.       )
    
13.       (setq hex (strcase hex)
    
14.             n (strlen hex)
    
15.             i 1
    
16.             dec 0
    
17.       )
    
18.       (while (<= i n)
    
19.         (setq tmp (ascii (substr hex i 1))
    
20.               i (1+ i)
    
21.               tmp (if (>= tmp 65)
    
22.                     (- tmp 55)
    
23.                     (- tmp 48)
    
24.                   )
    
25.               dec (+ tmp (* 16 dec))
    
26.         )
    
27.       )
    
28.       (if (= fh "-")
    
29.         (setq dec (- dec))
    
30.       )
    
31.     )
    
32.   )
    
33.   dec
    
34. )
    

(defun XD::Math:Hex2Dec (hex / tmp i n dec)<br />   (if (and<br />         (= (type hex) 'STR)<br />         (xd::string:regexps "^(0x|0X)?(-)?([a-fA-F0-9]+$)" hex "")<br />         (setq hex (xd::string:regexpr "^[0x|0X]" hex "" ""))<br />       )<br />     (progn<br />       (if (= "-" (substr hex 1 1))<br />         (setq fh "-"<br />               hex (substr hex 2)<br />         )<br />       )<br />       (setq hex (strcase hex)<br />             n (strlen hex)<br />             i 1<br />             dec 0<br />       )<br />       (while (<= i n)<br />         (setq tmp (ascii (substr hex i 1))<br />               i (1+ i)<br />               tmp (if (>= tmp 65)<br />                     (- tmp 55)<br />                     (- tmp 48)<br />                   )<br />               dec (+ tmp (* 16 dec))<br />         )<br />       )<br />       (if (= fh "-")<br />         (setq dec (- dec))<br />       )<br />     )<br />   )<br />   dec<br /> )<br />

/db_自贡黄明儒_

"改向滚筒\U+03C6320"怎么转换成 ”改向滚筒φ320“