@lisp Editor string:hannumber2number

用法

建议

(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))

统计信息

上传记录

统计信息

上传记录 刷新

上传记录