[源码]数字转为汉字函数、汉字数字互转

tryhi

在明经群讨论了大半天的数字转函数，只有E大贴出了代码，可惜只支持到万，其他的只见装不见源码，代码写得不好，斗胆献上，仅支持到万亿，请拍砖。

• (num2str 5000000030101) =>"五万亿零三万零一百零一"
  

• (num2str 5012500030101) =>"五万零一百二十五亿零三万零一百零一"
  

汉字转数字源码在沙发，如有报错请看回复

2. ;;例子(num2str 5012500030101)
   
3. ;;将数字转换为汉字，仅支持到万亿，只支持整数
   
4. (defun num2str(num / charofcash i n tempa tempstr)
   
5.         (setq s0 '( "零""一""二""三""四""五""六""七""八""九" ))
   
6.         (setq s1 '("""十""百""千""万""十""百""千""亿""十""百""千""万"))  
   
7.         (setq num (rtos num 2 0));转字符串
   
8.         (setq i -1 CharOfCash "")
   
9.         (setq n(strlen num))
   
10.         (repeat n
    
11.                 (setq i(1+ i))
    
12.                 (setq TempStr(substr num (- n i)1))
    
13.                 (setq TempStr (nth (atoi TempStr) s0))
    
14.                 (if (/= "零" TempStr)
    
15.                         (setq TempStr (strcat TempStr (nth i s1)))
    
16.                 )
    
17.                 (setq tempa(substr CharOfCash  1 2))
    
18.                 (if (or (/= TempStr "零")(not(or (wcmatch tempa "零,万,亿")(= tempa ""))))
    
19.                         (setq CharOfCash(strcat TempStr CharOfCash))
    
20.                 )
    
21.         )
    
22.         (setq temp(substr CharOfCash 1 4))
    
23.         (if (= "一十"temp)(substr CharOfCash 3)CharOfCash);去掉一十
    
24. )
    

;;例子(num2str 5012500030101)<br /> ;;将数字转换为汉字，仅支持到万亿，只支持整数<br /> (defun num2str(num / charofcash i n tempa tempstr)<br />         (setq s0 '( "零""一""二""三""四""五""六""七""八""九" ))<br />         (setq s1 '("""十""百""千""万""十""百""千""亿""十""百""千""万"))  <br />         (setq num (rtos num 2 0));转字符串<br />         (setq i -1 CharOfCash "")<br />         (setq n(strlen num))<br />         (repeat n<br />                 (setq i(1+ i))<br />                 (setq TempStr(substr num (- n i)1))<br />                 (setq TempStr (nth (atoi TempStr) s0))<br />                 (if (/= "零" TempStr)<br />                         (setq TempStr (strcat TempStr (nth i s1)))<br />                 )<br />                 (setq tempa(substr CharOfCash  1 2))<br />                 (if (or (/= TempStr "零")(not(or (wcmatch tempa "零,万,亿")(= tempa ""))))<br />                         (setq CharOfCash(strcat TempStr CharOfCash))<br />                 )<br />         )<br />         (setq temp(substr CharOfCash 1 4))<br />         (if (= "一十"temp)(substr CharOfCash 3)CharOfCash);去掉一十<br /> )<br />

(num2str 5012500030101)
;===>"五万零一百二十五亿零三万零一百零一"

llsheng_73

终于可以两次进到明经

15019720309

tryhi 发表于 2024-4-19 10:07
命令: (num2str 10)
"十"

您好，我在两台电脑试了。一台一切正常，另一台在11-19区间会返还“一十一” “一十二”，在10会返还空字符串。代码完全一样

tryhi

15019720309 发表于 2024-4-14 23:30
请问为什么输入10返回nil

命令: (num2str 10)
"十"

不知道你是怎么输的

tryhi

2. (str2num "一千零八十万八千七百六十七")
   
3. ;;汉字转数字
   
4. (defun str2num(str)
   
5. (defun _qian(w1 / i n num strx)
   
6.   (setq w1 (try-StrRegExpReplace w1"零"""))
   
7.   (setq w1 (strcat w1"零"))
   
8.   (setq w1l(try-StrRegExp w1 ".+?[千百十零]"))
   
9.   (setq i -1 n 0)
   
10.   (repeat (length w1l)
    
11.     (setq i(1+ i) strx(nth i w1l))
    
12.     (setq num (strcat(_n2s (substr strx 1 2))(_n2s (substr strx 3 2))))
    
13.     (setq n(+ n (atof num)))
    
14.   )
    
15. )
    
16. (if(="十"(substr str 1 2))(setq str(strcat "一"str)))
    
17. (setq ls(try-StringSplit str "万"))
    
18. (setq w1 (last ls)n 0)
    
19. (if (/= ""w1) (setq n (_qian w1)))
    
20. (if (< 1(length ls))(setq n(+ n(* 10000(_qian(car ls))))))
    
21. (fix n)
    
22. )
    
23. 
    
24. (defun _n2s(num)
    
25.   (cond
    
26.     ((= num "零")"")
    
27.     ((= num "一")"1")
    
28.     ((= num "二")"2")
    
29.     ((= num "两")"2")
    
30.     ((= num "三")"3")
    
31.     ((= num "四")"4")
    
32.     ((= num "五")"5")
    
33.     ((= num "六")"6")
    
34.     ((= num "七")"7")
    
35.     ((= num "八")"8")
    
36.     ((= num "九")"9")
    
37.     ((= num "十")"0")
    
38.     ((= num "百")"00")
    
39.     ((= num "千")"000")
    
40.   )
    
41. )

(str2num "一千零八十万八千七百六十七")<br /> ;;汉字转数字<br /> (defun str2num(str)<br /> (defun _qian(w1 / i n num strx)<br />   (setq w1 (try-StrRegExpReplace w1"零"""))<br />   (setq w1 (strcat w1"零"))<br />   (setq w1l(try-StrRegExp w1 ".+?[千百十零]"))<br />   (setq i -1 n 0)<br />   (repeat (length w1l)<br />     (setq i(1+ i) strx(nth i w1l))<br />     (setq num (strcat(_n2s (substr strx 1 2))(_n2s (substr strx 3 2))))<br />     (setq n(+ n (atof num)))<br />   )<br /> )<br /> (if(="十"(substr str 1 2))(setq str(strcat "一"str)))<br /> (setq ls(try-StringSplit str "万"))<br /> (setq w1 (last ls)n 0)<br /> (if (/= ""w1) (setq n (_qian w1)))<br /> (if (< 1(length ls))(setq n(+ n(* 10000(_qian(car ls))))))<br /> (fix n)<br /> )<br /> <br /> (defun _n2s(num)<br />   (cond <br />     ((= num "零")"")<br />     ((= num "一")"1")<br />     ((= num "二")"2")<br />     ((= num "两")"2")<br />     ((= num "三")"3")<br />     ((= num "四")"4")<br />     ((= num "五")"5")<br />     ((= num "六")"6")<br />     ((= num "七")"7")<br />     ((= num "八")"8")<br />     ((= num "九")"9")<br />     ((= num "十")"0")<br />     ((= num "百")"00")<br />     ((= num "千")"000")<br />   )<br /> )

sunhaijiu

哈哈 哈哈哈哈

冰之绝恋

赞哦~\(≧▽≦)/~

迷不知途

多谢，源码！！学习学习！！！

crtrccrt

_N2BIG
缺少子程序

ynhh

; 错误: no function definition: _N2BIG

tryhi

ynhh 发表于 2015-10-19 09:01
; 错误: no function definition: _N2BIG

2. (defun _N2BIG(num)
   
3.         (cdr (assoc num '(("0" . "零")("1" . "一")("2" . "二")("3" . "三")("4" . "四")("5" . "五")("6" . "六")("7" . "七")("8" . "八")("9" . "九"))))
   
4. )

(defun _N2BIG(num)<br />         (cdr (assoc num '(("0" . "零")("1" . "一")("2" . "二")("3" . "三")("4" . "四")("5" . "五")("6" . "六")("7" . "七")("8" . "八")("9" . "九"))))<br /> )

ynhh

1.(num2str 5012500030101)
; 错误: 参数类型错误: stringp nil

tryhi

ynhh 发表于 2015-10-20 11:26
1.(num2str 5012500030101)
; 错误: 参数类型错误: stringp nil

_N2BIG函数拷贝有误，已经修改_N2BIG函数