如何将数字转换成汉字

shmily1023 · 发表于 2006-2-16 20:42:00

请问各位高手有没有较好的方法将数字转换成对应的汉字

例如将17 转换成一十七

hoprich123 · 发表于 2006-2-17 14:09:00

本帖最后由作者于 2006-2-17 15:31:24 编辑

我抽了点时间写了一个，可能有BUG，试试吧。

附程序：

ljpnb · 发表于 2006-2-17 15:05:00

TO 2楼，你还有几个自定义函数没有上传上来啊

shmily1023 · 发表于 2006-2-17 20:09:00

   (setq small '("0" "1" "2" "3" "4" "5" "6" "7" "8" "9"))
   (setq big '("箂" "滁" "禠" "把" "竩" "ヮ" "嘲" "珐" "" "╤"))
   (setq lay '("珺" "ㄕ" "" "窾" "珺" "ㄕ" "" "货" "珺" "ㄕ" "" "") endstr "")

这些汉字是什么？不懂耶

ljpnb · 发表于 2006-2-17 20:24:00

(setq small '("0" "1" "2" "3" "4" "5" "6" "7" "8" "9"))
(setq big '("零" "壹" "贰" "参" "肆" "伍" "陆" "柒" "捌" "玖"))
(setq lay '("拾" "佰" "仟" "万" "拾" "佰" "仟" "亿" "拾" "佰" "仟" "兆") endstr "")

点一下上面的“繁体版”转换一下

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

如何将数字转换成汉字

本帖子中包含更多资源