用法
评论
建议
取 消
确 定
(defun string:hannumber2number (str / numlst alst1 alst2 num lnum1 lnum2 fstr a) "中文数字转为数字类型" "number" (setq numlst (quote (("零" . 0) ("一" . 1) ("二" . 2) ("三" . 3) ("四" . 4) ("五" . 5) ("六" . 6) ("七" . 7) ("八" . 8) ("九" . 9))) alst1 (quote (("十" . 10) ("百" . 100) ("千" . 1000.0))) alst2 (quote (("万" . 10000.0) ("亿" . 1.0e+08))) num 0 lnum1 0 lnum2 0) (foreach word (mapcar (quote (lambda (x) (string:l2s-ansi (list x)))) (string:s2l-ansi str)) (cond ((setq a (assoc word alst2)) (setq num (+ num (* (+ lnum1 lnum2) (cdr a))) lnum1 0 lnum2 0)) ((setq a (assoc word alst1)) (if (and (zerop lnum2) (zerop num)) (setq num (cdr a)) (setq lnum1 (+ lnum1 (* lnum2 (cdr a))) lnum2 0))) ((setq a (assoc word numlst)) (setq lnum2 (cdr a))) (t nil))) (+ num lnum1 lnum2))
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 747 个
函数库类别: 52 种
上传记录
刷新