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

fylinwater

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

;;一般我只用它来处理图框的中英文数字加减，
;;谁有兴趣做个范围更大的？
;;
;;

2. 
   
3. (defun cn2arab-dd (  string / arabia-cnlst-dd i n sstr kstr knum snum num )
   
4. 
   
5. (setq arabia-cnlst-dd '((  "零" . 0)  ("一" . 1 ) ( "二" . 2) ( "三" . 3) ( "四" . 4) ( "五" . 5 )   ( "六" . 6 )  ( "七" . 7) ("八" . 8) ("九" . 9) ( "十" . 10) ("百" . 100) ( "千" . 1000)  ("万" . 10000))
   
6. )
   
7. 
   
8. (if (= "十" (substr string 1 2)) (setq string (strcat "一" string)))
   
9. (setq num 0)
   
10. (setq i 1)
    
11. (setq kstr "零")
    
12. (setq n (1+ (/ (strlen string) 4)))
    
13. (while (/= kstr "")
    
14.   (setq sstr (substr string i 2))
    
15. (if (/= "" sstr) (setq snum (cdr (assoc sstr arabia-cnlst-dd))) (setq snum 0))
    
16.   (setq kstr (substr string (+ i 2) 2))
    
17. (if (/= "" kstr) (setq knum (cdr (assoc kstr arabia-cnlst-dd))) (setq knum 1))
    
18. (if  (= sstr "零")
    
19.      (if (= "十" kstr) (setq num (+ num  knum)) (setq  i (-  i 2 )))
    
20.      (setq num (+ num (* snum knum)))
    
21.   )
    
22. (setq i (+ 4 i ))
    
23. )
    
24. num
    
25. )
    
26. ;
    

<br /> (defun cn2arab-dd (  string / arabia-cnlst-dd i n sstr kstr knum snum num )<br /> <br /> (setq arabia-cnlst-dd '((  "零" . 0)  ("一" . 1 ) ( "二" . 2) ( "三" . 3) ( "四" . 4) ( "五" . 5 )   ( "六" . 6 )  ( "七" . 7) ("八" . 8) ("九" . 9) ( "十" . 10) ("百" . 100) ( "千" . 1000)  ("万" . 10000))<br /> )<br /> <br /> (if (= "十" (substr string 1 2)) (setq string (strcat "一" string)))<br /> (setq num 0)<br /> (setq i 1)<br /> (setq kstr "零")<br /> (setq n (1+ (/ (strlen string) 4)))<br /> (while (/= kstr "")<br />   (setq sstr (substr string i 2))<br /> (if (/= "" sstr) (setq snum (cdr (assoc sstr arabia-cnlst-dd))) (setq snum 0))<br />   (setq kstr (substr string (+ i 2) 2))<br /> (if (/= "" kstr) (setq knum (cdr (assoc kstr arabia-cnlst-dd))) (setq knum 1))<br /> (if  (= sstr "零") <br />      (if (= "十" kstr) (setq num (+ num  knum)) (setq  i (-  i 2 )))<br />      (setq num (+ num (* snum knum)))<br />   )<br /> (setq i (+ 4 i ))<br /> )<br /> num<br /> )<br /> ;<br />