一个包括进制任意转换的函数

狂刀lxx

进制转换函数大家看得很多了吧，这个有什么特别呢？
所有常用进制的转换都写在了“一个函数”里！ 你再也不必写 2to8， 8to16, 16to2.....这么多的函数了

2. 
   
3. ;; 进制转换函数--专辑
   
4. ;| (x!2n num from) = from 进制数值转十进制----by lxx.2005.5 ok!
   
5. 参数:
   
6.       num =  要转换的数值
   
7.       from =　数值,表示要转换的数值的进制类型. 取值:2,8,16
   
8. 返回: 转换进制后的字符串/数值.
   
9. 说明: 1. 支持 类型自动识别,返回结果类型同要转换的数值类型,注意num前面要加'.
   
10.       2. 支持非标准进制!
    
11. 测试: (x!2n "9e" 16);;-> "158"
    
12.       (x!2n '9e 16)  -> 158
    
13.       (x!2n '9E 16)  -> 158
    
14.       (x!2n 9E 16)  -> 6197 (错误，数值前需加')
    
15.       (x!2n "64" 8);; -> "52"
    
16.       (x!2n '64 8)  -> 52
    
17.       (x!2n "100101" 2);;-> "37"
    
18.       (x!2n '100101 2);;-> 37
    
19.       (x!2n 100101 2) -> 37
    
20. |;
    
21. (defun x!2n  (num from / $key lst i end)
    
22.   (if (not(= 'STR (type num)))
    
23.     (setq num (vl-princ-to-string num) $key T)
    
24.     (setq $key nil)
    
25.   )
    
26.   (setq lst (mapcar '(lambda (x)(if (< x 58)(- x 48)(- x 55)))
    
27.       (vl-string->list (strcase num)))
    
28.         i -1)
    
29.   (setq end (apply '+ (mapcar '(lambda (x) (* x (expt from (setq i (1+ i)))))(reverse lst))))
    
30.   (if $key end (itoa end) )
    
31. )
    
32. 
    
33. ;| (x!n2 num to) ＝ 十进制转bas进制 -v2.0-----------by lxx.2005.10 ok!
    
34. 参数:
    
35.       num =  要转换的数值
    
36.       to  =　数值,表示要转换成的数值的进制类型. 如:2,8,16
    
37. 返回: 转换进制后的字符串/数值.
    
38. 说明: 1. 支持 类型自动识别,返回结果类型同要转换的数值类型.
    
39.       2. 支持非标准进制!
    
40. 测试:
    
41. ;; 支持 类型自动识别. 字符串类型转换结果为字符串，符号or数字类型结果为符号or数字.
    
42. (x!n2 "45" 16) -> "2D"
    
43. (x!n2 '45 16) -> 2D
    
44. (x!n2 45 16) -> 2D
    
45. (x!n2 "19" 2) -> "2011"
    
46. (x!n2 '19 2)  -> 2011
    
47. (x!n2 "29" 8)  ;->"35"
    
48. ;; 支持非标准进制!
    
49. (x!n2 29 7)  ;->41
    
50. |;
    
51. (defun x!n2 (num to / lst $key end)
    
52.   (if (= 'STR (type num))
    
53.     (setq num (atoi num) $key T)
    
54.   )
    
55.   (while (and (setq lst (cons (rem num to) lst))
    
56.               (> (setq num (fix (/ num to))) to)))
    
57.   (setq lst (cons num lst)
    
58. lst (mapcar '(lambda(x)(if (<= x 9)(chr(+ 48 x))(chr(+ 55 x)))) lst))
    
59.   (setq end (apply 'strcat lst))
    
60.   (if $key end (read end))
    
61. )
    
62. ;| (x!x num from to) = 进制任意转换---ok!---by lxx.2005.10
    
63. 参数:
    
64.       num =  要转换的数值
    
65.       from =　数值,表示要转换的数值的进制类型. 如:2,8,16
    
66.       to   =　数值,表示要转换成的数值的进制类型. 如:2,8,16
    
67. 返回: 转换进制后的字符串/数值.
    
68. 说明: 1. 支持 类型自动识别,返回结果类型同要转换的数值类型.
    
69.       2. 支持非标准进制!
    
70.       3. 合并以上两个函数而成.
    
71. 测试:
    
72. (x!x "3a" 16 2) -> "111010"
    
73. (x!x '3a 16 2) -> 111010
    
74. (x!x '3a 16 12) ->4A ;;16进制转12进制.
    
75. (x!x '33 4 7) -> 21 ;; 4进制转7进制. [url=mailto:33@4=15@10=21@7]33@4=15@10=21@7[/url].
    
76. |;
    
77. (defun x!x (num from to)
    
78.   (cond
    
79.     ((and (= 10 from)(= 10 to))num)
    
80.     ((= 10 from)(x!n2 num to))
    
81.     ((= 10 to)(x!2n num from))
    
82.     (T (x!n2 (x!2n num from) to))
    
83.   )
    
84. )
    

<br /> ;; 进制转换函数--专辑<br /> ;| (x!2n num from) = from 进制数值转十进制----by lxx.2005.5 ok!<br /> 参数:<br />       num =  要转换的数值<br />       from =　数值,表示要转换的数值的进制类型. 取值:2,8,16<br /> 返回: 转换进制后的字符串/数值.<br /> 说明: 1. 支持 类型自动识别,返回结果类型同要转换的数值类型,注意num前面要加'.<br />       2. 支持非标准进制!<br /> 测试: (x!2n "9e" 16);;-> "158"<br />       (x!2n '9e 16)  -> 158<br />       (x!2n '9E 16)  -> 158<br />       (x!2n 9E 16)  -> 6197 (错误，数值前需加')<br />       (x!2n "64" 8);; -> "52"<br />       (x!2n '64 8)  -> 52<br />       (x!2n "100101" 2);;-> "37"<br />       (x!2n '100101 2);;-> 37<br />       (x!2n 100101 2) -> 37<br /> |;<br /> (defun x!2n  (num from / $key lst i end)<br />   (if (not(= 'STR (type num)))<br />     (setq num (vl-princ-to-string num) $key T)<br />     (setq $key nil)<br />   )<br />   (setq lst (mapcar '(lambda (x)(if (< x 58)(- x 48)(- x 55)))<br />       (vl-string->list (strcase num)))<br />         i -1)<br />   (setq end (apply '+ (mapcar '(lambda (x) (* x (expt from (setq i (1+ i)))))(reverse lst))))<br />   (if $key end (itoa end) )<br /> )<br /> <br /> ;| (x!n2 num to) ＝ 十进制转bas进制 -v2.0-----------by lxx.2005.10 ok!<br /> 参数: <br />       num =  要转换的数值<br />       to  =　数值,表示要转换成的数值的进制类型. 如:2,8,16<br /> 返回: 转换进制后的字符串/数值.<br /> 说明: 1. 支持 类型自动识别,返回结果类型同要转换的数值类型.<br />       2. 支持非标准进制!<br /> 测试:<br /> ;; 支持 类型自动识别. 字符串类型转换结果为字符串，符号or数字类型结果为符号or数字.<br /> (x!n2 "45" 16) -> "2D"<br /> (x!n2 '45 16) -> 2D<br /> (x!n2 45 16) -> 2D<br /> (x!n2 "19" 2) -> "2011" <br /> (x!n2 '19 2)  -> 2011<br /> (x!n2 "29" 8)  ;->"35"<br /> ;; 支持非标准进制!<br /> (x!n2 29 7)  ;->41<br /> |;<br /> (defun x!n2 (num to / lst $key end)<br />   (if (= 'STR (type num))<br />     (setq num (atoi num) $key T)<br />   )<br />   (while (and (setq lst (cons (rem num to) lst))<br />               (> (setq num (fix (/ num to))) to)))<br />   (setq lst (cons num lst)<br /> lst (mapcar '(lambda(x)(if (<= x 9)(chr(+ 48 x))(chr(+ 55 x)))) lst))<br />   (setq end (apply 'strcat lst))<br />   (if $key end (read end))<br /> )<br /> ;| (x!x num from to) = 进制任意转换---ok!---by lxx.2005.10<br /> 参数: <br />       num =  要转换的数值<br />       from =　数值,表示要转换的数值的进制类型. 如:2,8,16<br />       to   =　数值,表示要转换成的数值的进制类型. 如:2,8,16<br /> 返回: 转换进制后的字符串/数值.<br /> 说明: 1. 支持 类型自动识别,返回结果类型同要转换的数值类型.<br />       2. 支持非标准进制!<br />       3. 合并以上两个函数而成.<br /> 测试:<br /> (x!x "3a" 16 2) -> "111010"<br /> (x!x '3a 16 2) -> 111010<br /> (x!x '3a 16 12) ->4A ;;16进制转12进制.<br /> (x!x '33 4 7) -> 21 ;; 4进制转7进制. [url=mailto:33@4=15@10=21@7]33@4=15@10=21@7[/url].<br /> |;<br /> (defun x!x (num from to)<br />   (cond<br />     ((and (= 10 from)(= 10 to))num)<br />     ((= 10 from)(x!n2 num to))<br />     ((= 10 to)(x!2n num from))<br />     (T (x!n2 (x!2n num from) to))<br />   )<br /> )<br />

cnks

支持一下刀

zhulei

研究研究。

zhongys

461045462

谢谢楼主的分享
收藏了,下来学习领会
谢谢

saiko008

pslstar

好东西，谢谢分享啊

yxp

狂刀兄的程序不错，美中不足还有点bug
(x!x 1250 10 16)  返回 400.0
(x!x 1251 10 16)  返回 4000.0
(x!x "1250" 10 16) 返回 "4E2"
(x!x "1251" 10 16) 返回 "4E3"

另外如果转换的数据量太大，会出现“8进制读取错误”的提示，再运行一次，却又好了，所以程序运行有些不稳定。

lanjqka

楼主太好了 正在找这个
$(x!N2 158 2)
$2011110
条件 (> (setq num (fix (/ num to))) to))) 改成 (>= (setq num (fix (/ num to))) to)))
$(x!N2 158 2)
$10011110

lanjqka

不足一位的转换要先判断num为0
(if (not (zerop num)) (setq lst (cons num lst))