[TB-LISP函数]：TBC:Hz->Num 汉字数值转化为数字

tengteb

  ;汉字数值转化为数字。bStr：T--结果用字符串表示，否则超过21亿的数会转化为实数
(defun TBC:Hz->Num (txt bStr / Format Func ws v1 v2 v4 v8)

  (defun Format (txt v)
    (setq v (itoa v))
    (and
      (/= "" txt)
      (repeat (- 8 (strlen v)) (setq v (strcat "0" v)))
      (setq v (strcat txt v))
    ) ;and
    v
  ) ;defun
  (defun Func (w / i)
    (setq i (vl-position w ws))
    (and (> i 14) (setq i (- i 14)))
    (cond
      ((not i)) ;忽略无效汉字
      ((< i 10) (setq v1 i))
      ((< i 13)
       (and (= i 10) (= v1 0) (setq v1 1))
       (setq v2        (+ v2 (* v1 (expt 10 (- i 9))))
             v1        0
       )
      )
      ((= i 13)
       (setq v4        (* (+ v2 v1) 10000)
             v2        0
             v1        0
       )
      )
      ((= i 14)
       (if bStr
         (setq v8 (Format v8 (+ v4 v2 v1)))
         (setq v8 (+ v8 v4 v2 v1)
               v8 (* v8 (TBC:IIf (> v8 20) 1.0 1) 100000000) ;整数最大值2147483647
         )
       ) ;if
       (setq v4        0
             v2        0
             v1        0
       )
      )
    ) ;cond
  ) ;defun
  (setq        ws "零一二三四五六七**十百千万亿壹贰叁肆伍陆柒捌玖拾佰仟"
        ws (TBC:Split ws 2)
        v1 0
        v2 0
        v4 0
        v8 (TBC:IIf bStr "" 0)
  )
  (mapcar 'Func (TBC:Split txt 2))
  (if bStr
    (Format v8 (+ v4 v2 v1))
    (+ v8 v4 v2 v1)
  ) ;if
)

zizhumeizhilian

zizhumeizhilian邀请您访问晓东CAD家园-论坛
http://bbs.xdcad.net/?fromuid=776841

zizhumeizhilian

zizhumeizhilian邀请您访问晓东CAD家园-论坛 http://bbs.xdcad.net/?fromuid=776841

guosheyang2

你好！   差的函数能否不上   谢谢！

guosheyang2

guosheyang2 发表于 2022-12-6 21:16
你好！   差的函数能否不上   谢谢！

已经收到 差了的函数   感谢楼主共享函数！

guosheyang2

测试了下
(setq txt "四千零六十九")
(TBC:Hz->Num txt T)      返回"409"
(setq txt "四千一百六十九")
(TBC:Hz->Num txt T)   返回 "419"      
(setq txt "肆仟壹佰陆拾玖")
(TBC:Hz->Num txt T)     返回"30000000018"   
    请问tengteb朋友   是我哪里没弄对头吗     谢谢!