设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › 数字转中文（整数)
返回列表 发新帖
查看: 2096|回复: 8

[原创] 数字转中文（整数)

[复制链接]
aeo

已领礼包: 488个

财富等级: 日进斗金
发表于 2014-1-22 15:56:41 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要 登录 才可以下载或查看，没有账号？立即注册

×
本帖最后由 aeo 于 2014-1-22 16:58 编辑

只支持0到千亿的整数

  3. ;;;参数可以是数字或字符，大整数请用字符
  4. (defun chinese-num(j / k kkkk r s shu sz x y qian)
  5. (defun qian(shu /  k  s  x y)
  6.   (setq shu(vl-string->list shu)
  7.         shu(mapcar 'chr shu)
  8.   )
  9.   (setq shu(mapcar '(lambda(x y)
  10.                       (setq k(atoi x))
  11.                       (if (= k 0) "零"
  12.                           (strcat (nth k sz) y)
  13.                       )
  14.                     ) shu kkkk
  15.           ))
  16.   (setq shu(mapcar '(lambda(x)(if(= x "一十")"十"x))shu))
  17.   (while(= (car shu) "零")(setq shu (cdr shu))) ;前0
  18.   (setq shu(reverse shu))
  19.   (while(= (car shu) "零")(setq shu (cdr shu))) ;后0
  20.   (setq shu(reverse shu))
  21.   (setq s 0)
  22.   (setq shu(vl-remove-if '(lambda(x)  ;中间 多0
  23.              (if(= x "零")(setq s(1+ s))(setq s 0))(> s 1))
  24.               shu)
  25.   )
  26.   (apply 'strcat shu)
  27. )
  28.   (if(numberp j)(setq j(itoa j)))
  29.   (setq kkkk '("千""百" "十"""))
  30.   (setq sz '("零""一""二""三""四""五""六""七""八""九"))
  31.   (setq shu (strcat "000000000000" j ))
  32.   (while(> (strlen shu)12)(setq shu(substr shu 2)))
  33.   (if(= j "0") "零"   
  34.     (apply 'strcat
  35.       (mapcar '(lambda(x y)(if(/= "" x)(strcat x y)""))
  36.               (list(qian (substr shu 1 4))
  37.                    (qian (substr shu 5 4))
  38.                    (qian (substr shu 9 4))
  39.               )
  40.               '("亿""万""")
  41.       )
  42.     )
  43.   )
  44. )



命令: (chinese-num "234567")
"二十三万四千五百六十七"

命令: (chinese-num 78903)
"七万八千九百零三"
=======================================
还不对 ，我再改改 {:soso_e145:}{:soso_e146:}





====================================================
下面的对了

  3. ;;参数可以是数字或字符，大整数请用字符
  4. (defun chinese-num(j / k kkkk r s q shu sz x y qian)
  5. (defun qian(shu /  k  s  x y)
  6.   (setq kkkk '("千""百" "十"""))
  7.   (setq sz '("零""一""二""三""四""五""六""七""八""九"))
  8.   (setq shu(vl-string->list shu)
  9.         shu(mapcar 'chr shu)
  10.   )
  11.   (setq shu(mapcar '(lambda(x y)
  12.                       (setq k(atoi x))
  13.                       (if (= k 0) "零"
  14.                           (strcat (nth k sz) y)
  15.                       )
  16.                     ) shu kkkk
  17.           ))
  18.   (setq shu(mapcar '(lambda(x)(if(= x "一十")"十"x))shu))
  19.   (setq shu(reverse shu))
  20.   (while(= (car shu) "零")(setq shu (cdr shu))) ;后0
  21.   (setq shu(reverse shu))
  22. )
  23.   ;;;      
  24.   (if(numberp j)(setq j(itoa j)))
  25.   (setq shu (strcat "000000000000" j ))
  26.   (while(> (strlen shu)12)(setq shu(substr shu 2)))
  27.   (if(= j "0") "零"
  28.     (progn   
  29.      (setq shu
  30.       (append (if(setq q (qian (substr shu 1 4)))
  31.                    (append q '("亿")) nil
  32.               )
  33.               (if(setq q (qian (substr shu 5 4)))
  34.                    (append q '("万")) nil
  35.               )
  36.               (qian (substr shu 9 4))
  37.       )
  38.      )
  39.      (while(= (car shu) "零")(setq shu (cdr shu))) ;前0
  40.      (setq s 0)
  41.      (setq shu(vl-remove-if '(lambda(x)  ;中间 多0
  42.                  (if(= x "零")(setq s(1+ s))(setq s 0))(> s 1))
  43.                   shu)
  44.      )
  45.      (apply 'strcat shu)                    
  46.     )
  47.   )
  48. )



命令: (CHINESE-NUM "200645000010")
"二千零六亿四千五百万零十"

命令: (CHINESE-NUM "2000")
"二千"

命令: (CHINESE-NUM "2001")
"二千零一"

命令: (CHINESE-NUM "20000000000")
"二百亿"

命令: (CHINESE-NUM "2000000500")
"二十亿零五百"

命令: (CHINESE-NUM "0")
"零"

命令: (CHINESE-NUM "23")
"二十三"

命令: (CHINESE-NUM "23000")
"二万三千"

命令: (CHINESE-NUM "23009000")
"二千三百万九千"


评分

参与人数 1D豆 +5 收起 理由
xshrimp + 5 很给力!经验；技术要点；资料分享奖！

查看全部评分

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

st788796

已领礼包: 1268个

财富等级: 财源广进
发表于 2014-1-22 17:49:47 | 显示全部楼层
再写个逆向的:D

点评

/db_自贡黄明儒_
相同看法，顶！  详情 回复 发表于 2014-1-22 19:57
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

/db_自贡黄明儒_

已领礼包: 604个

财富等级: 财运亨通
发表于 2014-1-22 19:57:35 来自手机 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
st788796 发表于 2014-1-22 17:49
再写个逆向的

相同看法，顶！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

sicky111

已领礼包: 6468个

财富等级: 富甲天下
发表于 2014-1-23 22:30:32 | 显示全部楼层
有点意思。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

sicky111

已领礼包: 6468个

财富等级: 富甲天下
发表于 2014-1-23 22:33:44 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
第二个函数正确，第一个我也看着挺别扭的。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

清风明月10
发表于 2014-1-26 18:40:17 | 显示全部楼层
谢谢楼主代码分享！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

77077
发表于 2014-2-24 12:41:57 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
(CHINESE-NUM "23009000.05")
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

XDnpu349

已领礼包: 55个

财富等级: 招财进宝
发表于 2014-3-3 13:20:40 | 显示全部楼层
8错 还是比较实用。。多谢
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

nijiea123
发表于 2019-5-4 18:36:12 来自手机 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
正在找这个，学习了
来自: 微社区
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-11-14 20:15 , Processed in 0.186375 second(s), 44 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表