[试用]：将阿拉伯数字转化为中文数字

fylinwater

将阿拉伯数字转化为中文数字(只可以处理小于亿的数字)

2. 
   
3. [FONT=courier new]
   
4. ;{start
   
5. ;;变量：
   
6. ;;
   
7. (setq cn-arablist-dd '((0 . "零")  (1 . "一") (2 . "二") (3 . "三") (4 . "四")
   
8.                        ( 5 . "五")   (6 . "六" )  (7 . "七") (8 . "八") (9 . "九")
   
9.                      (10 . "十") (100 . "百") (1000 . "千")  (10000 . "万"))
   
10. )
    
11. 
    
12. 
    
13. (defun arab2cn-dd   ( n / cncha)
    
14. (setq cncha "")
    
15. ;;;;;;;;;;;个位
    
16. (setq gw (rem n 10))
    
17. (if (/= gw 0) (setq cncha (cdr (assoc gw cn-arablist-dd))))
    
18. ;;;;;;;;;;;十位
    
19. (if (>= n 10)
    
20. (progn
    
21.    (setq sw (fix (/ (- (rem n 100) gw) 10) ))
    
22.      (cond
    
23.         ((= sw 0) (if  (/= cncha "") (setq cncha (strcat "零" cncha))))
    
24.         ((= sw 1) (setq cncha (strcat "十" cncha)))
    
25.         (t       (setq cncha (strcat (cdr (assoc sw cn-arablist-dd)) "十" cncha)))
    
26.      )
    
27. )
    
28. )
    
29. ;;;;;;;;;;;;百位
    
30. (if (>= n 100)
    
31. (progn
    
32.    (setq bw (fix (/ (- (rem n 1000) sw gw) 100) ))
    
33.      (cond
    
34.         ((= bw 0) (if (and (/= "零" (substr cncha 1 2)) (/= cncha "")) (setq cncha (strcat "零" cncha))))
    
35.         (t       (setq cncha (strcat (cdr (assoc bw cn-arablist-dd)) "百" cncha)))
    
36.      )
    
37. )
    
38. )
    
39. ;;;;;;;;;;;;千位
    
40. (if (>= n 1000)
    
41. (progn
    
42.    (setq qw (fix (/ (- (rem n 10000) bw sw gw) 1000) ))
    
43.      (cond
    
44.         ((= qw 0) (if (and (/= "零" (substr cncha 1 2)) (/= cncha "")) (setq cncha (strcat "零" cncha))))
    
45.         (t       (setq cncha (strcat (cdr (assoc qw cn-arablist-dd)) "千" cncha)))
    
46.      )
    
47. )
    
48. )
    
49. ;;;;;;;;;;;;万位
    
50. (if  (>= n 10000)
    
51. (progn
    
52.    (setq ww (fix (/ (- (rem n 100000) qw bw sw gw) 10000) ))
    
53.      (cond
    
54.         ((= ww 0) (if (not (or (= cncha "" ) (= (substr cncha 1 2) "零" ))) (setq cncha (strcat "零" cncha))))
    
55.         (t       (setq cncha (strcat (cdr (assoc ww cn-arablist-dd)) "万" cncha)))
    
56.      )
    
57. )
    
58. )
    
59. ;;;;;;;;;;;;大于万的
    
60. (if (>= n 100000)
    
61. (progn
    
62.    (setq n (fix (/ n 10000)))
    
63.   (if (= ww 0)    (setq cncha (strcat "万" cncha)) (setq cncha (substr cncha 3)))
    
64. ;;;(print (arab2cn-dd n))
    
65.    (setq cncha (strcat (arab2cn-dd n) cncha))
    
66.   )
    
67. )
    
68. ;;;;;;;;;;;;没处理大于亿的
    
69. 
    
70. 
    
71. )
    
72. ;
    
73. ;end}
    
74. [/FONT]

<br /> [FONT=courier new]<br /> ;{start<br /> ;;变量：<br /> ;;<br /> (setq cn-arablist-dd '((0 . "零")  (1 . "一") (2 . "二") (3 . "三") (4 . "四") <br />                        ( 5 . "五")   (6 . "六" )  (7 . "七") (8 . "八") (9 . "九") <br />                      (10 . "十") (100 . "百") (1000 . "千")  (10000 . "万"))<br /> )<br /> <br /> <br /> (defun arab2cn-dd   ( n / cncha)<br /> (setq cncha "")<br /> ;;;;;;;;;;;个位<br /> (setq gw (rem n 10))<br /> (if (/= gw 0) (setq cncha (cdr (assoc gw cn-arablist-dd))))<br /> ;;;;;;;;;;;十位<br /> (if (>= n 10)<br /> (progn<br />    (setq sw (fix (/ (- (rem n 100) gw) 10) ))<br />      (cond<br />         ((= sw 0) (if  (/= cncha "") (setq cncha (strcat "零" cncha))))<br />         ((= sw 1) (setq cncha (strcat "十" cncha)))<br />         (t       (setq cncha (strcat (cdr (assoc sw cn-arablist-dd)) "十" cncha)))<br />      )<br /> )<br /> )<br /> ;;;;;;;;;;;;百位<br /> (if (>= n 100)<br /> (progn<br />    (setq bw (fix (/ (- (rem n 1000) sw gw) 100) ))<br />      (cond<br />         ((= bw 0) (if (and (/= "零" (substr cncha 1 2)) (/= cncha "")) (setq cncha (strcat "零" cncha))))<br />         (t       (setq cncha (strcat (cdr (assoc bw cn-arablist-dd)) "百" cncha)))<br />      )<br /> )<br /> )<br /> ;;;;;;;;;;;;千位<br /> (if (>= n 1000) <br /> (progn<br />    (setq qw (fix (/ (- (rem n 10000) bw sw gw) 1000) ))<br />      (cond<br />         ((= qw 0) (if (and (/= "零" (substr cncha 1 2)) (/= cncha "")) (setq cncha (strcat "零" cncha))))<br />         (t       (setq cncha (strcat (cdr (assoc qw cn-arablist-dd)) "千" cncha)))<br />      )<br /> )<br /> )<br /> ;;;;;;;;;;;;万位<br /> (if  (>= n 10000) <br /> (progn<br />    (setq ww (fix (/ (- (rem n 100000) qw bw sw gw) 10000) ))<br />      (cond<br />         ((= ww 0) (if (not (or (= cncha "" ) (= (substr cncha 1 2) "零" ))) (setq cncha (strcat "零" cncha))))<br />         (t       (setq cncha (strcat (cdr (assoc ww cn-arablist-dd)) "万" cncha)))<br />      )<br /> )<br /> )<br /> ;;;;;;;;;;;;大于万的<br /> (if (>= n 100000)<br /> (progn<br />    (setq n (fix (/ n 10000)))<br />   (if (= ww 0)    (setq cncha (strcat "万" cncha)) (setq cncha (substr cncha 3)))<br /> ;;;(print (arab2cn-dd n))<br />    (setq cncha (strcat (arab2cn-dd n) cncha))<br />   )<br /> )<br /> ;;;;;;;;;;;;没处理大于亿的<br /> <br /> <br /> )<br /> ;<br /> ;end}<br /> [/FONT]

谁有更好的，或者将它更为完善

XDSoft

谢谢，以后贴代码，能用下VB代码，把代码格式化下吗？每次都是我替你编辑：）

格式化代码方法，去看论坛置顶的帖子。

fylinwater

原来[CODE]的用处是格式化LISP程序啊
现在会用了

在代码最后少了返回值CNCHA

Qlin

小数点呢?

fylinwater

本来是用来处理图框编号的，只是整数
贴上来的就是希望有人完善