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

tryhi · 发表于 2015-10-18 21:43

本帖最后由 tryhi 于 2023-5-9 17:14 编辑

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

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

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

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

;;例子(num2str 5012500030101)
;;将数字转换为汉字，仅支持到万亿，只支持整数
(defun num2str(num / charofcash i n tempa tempstr)
;(setq num 123)
(setq num (rtos num 2 0));转字符串
(setq i -1 CharOfCash "")
(setq n(strlen num))
(repeat n
(setq i(1+ i))
(setq TempStr(substr num (- n i)1))
(setq TempStr (_n2big TempStr))
(cond
((= i 0)
(if (= "零" TempStr)
(setq TempStr "")
)
)
((= i 1)
(if (/= "零" TempStr)
(setq TempStr (strcat TempStr "十"))
)
)
((= i 2)
(if (/= "零" TempStr)
(setq TempStr (strcat TempStr "百"))
)
)
((= i 3)
(if (/= "零" TempStr)
(setq TempStr (strcat TempStr "千"))
)
)
((= i 4)
(if (= "零" TempStr)
(setq TempStr "万")
(setq TempStr (strcat TempStr "万"))
)
)
((= i 5)
(if (/= "零" TempStr)
(setq TempStr (strcat TempStr "十"))
)
)
((= i 6)
(if (/= "零" TempStr)
(setq TempStr (strcat TempStr "百"))
)
)
((= i 7)
(if (/= "零" TempStr)
(setq TempStr (strcat TempStr "千"))
)
)
((= i 8)
(if (= "零" TempStr)
(setq TempStr "亿")
(setq TempStr (strcat TempStr "亿"))
)
)
((= i 9)
(if (/= "零" TempStr)
(setq TempStr (strcat TempStr "十"))
)
)
((= i 10)
(if (/= "零" TempStr)
(setq TempStr (strcat TempStr "百"))
)
)
((= i 11)
(if (/= "零" TempStr)
(setq TempStr (strcat TempStr "千"))
)
)
((= i 12)
(if (/= "零" TempStr)
(setq TempStr (strcat TempStr "万"))
)
)
)
(setq tempa(substr CharOfCash 1 2))
(setq CharOfCash(if (= TempStr "零")
(cond
((= tempa "零")CharOfCash)
((= tempa "")CharOfCash)
((= tempa "万")CharOfCash)
((= tempa "亿")CharOfCash)
(t (strcat TempStr CharOfCash))
)
(strcat TempStr CharOfCash)
))
)
;(try-substr CharOfCash 1(-(try-strlen CharOfCash)1))
(setq temp(substr CharOfCash 1 4))
(if (= "一十"temp)(substr CharOfCash 3)CharOfCash);去掉一十
)

;;例子(num2str 5012500030101) 
;;将数字转换为汉字，仅支持到万亿，只支持整数 
(defun num2str(num / charofcash i n tempa tempstr) 
        ;(setq num 123) 
        (setq num (rtos num 2 0));转字符串 
        (setq i -1 CharOfCash "") 
        (setq n(strlen num)) 
        (repeat n 
                (setq i(1+ i)) 
                (setq TempStr(substr num (- n i)1)) 
                
                (setq TempStr (_n2big TempStr)) 
                (cond 
                        ((= i 0) 
                                (if (= "零" TempStr) 
                                        (setq TempStr "") 
                                ) 
                        ) 
                        ((= i 1) 
                                (if (/= "零" TempStr) 
                                        (setq TempStr (strcat TempStr "十")) 
                                ) 
                        ) 
                        ((= i 2) 
                                (if (/= "零" TempStr) 
                                        (setq TempStr (strcat TempStr "百")) 
                                ) 
                        )                         
                        ((= i 3) 
                                (if (/= "零" TempStr) 
                                        (setq TempStr (strcat TempStr "千")) 
                                ) 
                        )                
                        ((= i 4) 
                                (if (= "零" TempStr) 
                                        (setq TempStr  "万") 
                                        (setq TempStr (strcat TempStr "万")) 
                                ) 
                        )                
                        ((= i 5) 
                                (if (/= "零" TempStr) 
                                        (setq TempStr (strcat TempStr "十")) 
                                ) 
                        )         
                        ((= i 6) 
                                (if (/= "零" TempStr) 
                                        (setq TempStr (strcat TempStr "百")) 
                                ) 
                        ) 
                        ((= i 7) 
                                (if (/= "零" TempStr) 
                                        (setq TempStr (strcat TempStr "千")) 
                                ) 
                        ) 
                        ((= i 8) 
                                (if (= "零" TempStr) 
                                        (setq TempStr  "亿") 
                                        (setq TempStr (strcat TempStr "亿")) 
                                ) 
                        ) 
                        ((= i 9) 
                                (if (/= "零" TempStr) 
                                        (setq TempStr (strcat TempStr "十")) 
                                ) 
                        ) 
                        ((= i 10) 
                                (if (/= "零" TempStr) 
                                        (setq TempStr (strcat TempStr "百")) 
                                ) 
                        ) 
                        ((= i 11) 
                                (if (/= "零" TempStr) 
                                        (setq TempStr (strcat TempStr "千")) 
                                ) 
                        ) 
                        ((= i 12) 
                                (if (/= "零" TempStr) 
                                        (setq TempStr (strcat TempStr "万")) 
                                ) 
                        ) 
                         
                ) 
                (setq tempa(substr CharOfCash  1 2)) 
                (setq CharOfCash(if (= TempStr "零") 
                                (cond 
                                        ((= tempa "零")CharOfCash) 
                                        ((= tempa "")CharOfCash) 
                                        ((= tempa "万")CharOfCash) 
                                        ((= tempa "亿")CharOfCash) 
                                        (t (strcat TempStr CharOfCash)) 
                                ) 
                        (strcat TempStr CharOfCash) 
                )) 
        ) 
        ;(try-substr CharOfCash 1(-(try-strlen CharOfCash)1)) 
        (setq temp(substr CharOfCash 1 4)) 
        (if (= "一十"temp)(substr CharOfCash 3)CharOfCash);去掉一十 
)

llsheng_73 · 发表于 2017-7-26 13:17

终于可以两次进到明经

15019720309 · 发表于 2024-4-20 23:22

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

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

tryhi · 发表于 2024-4-19 10:07

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

命令: (num2str 10)
"十"

不知道你是怎么输的

tryhi · 发表于 2015-10-18 21:46

本帖最后由 tryhi 于 2016-3-23 15:08 编辑

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

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

sunhaijiu · 发表于 2015-10-18 21:46

哈哈哈哈哈哈

冰之绝恋 · 发表于 2015-10-18 21:58

赞哦~\(≧▽≦)/~

迷不知途 · 发表于 2015-10-19 00:16

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

crtrccrt · 发表于 2015-10-19 07:48

_N2BIG
缺少子程序

ynhh · 发表于 2015-10-19 09:01

; 错误: no function definition: _N2BIG

tryhi · 发表于 2015-10-19 22:54

本帖最后由 tryhi 于 2015-10-22 19:39 编辑

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

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

ynhh · 发表于 2015-10-20 11:26

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

tryhi · 发表于 2015-10-20 12:46

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

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

账号		自动登录	找回密码
密码			注册

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

评分

本帖被以下淘专辑推荐:

相关帖子