如何通过编程,将中文数字转换成英文数字?

jaminth

如何将中文数字转换成英文数字??如三十二变成32,十四变成14............

phoenixdjq

文字多吗？

排到多少了，几百还是几千？？

jaminth

排至156!!!

lazybug

<br/>;九百九十九-&gt;999<br/>;&lt;1000<br/>(defun c:zz ()<br/>    (setq txt "九十")<br/>    (setq txt (vl-string-subst "0" "零" txt))<br/>    (while (wcmatch txt "*一*")<br/> (setq txt (vl-string-subst "1" "一" txt))<br/>    )<br/>    (while (wcmatch txt "*二*")<br/> (setq txt (vl-string-subst "2" "二" txt))<br/>    )<br/>    (while (wcmatch txt "*三*")<br/> (setq txt (vl-string-subst "3" "三" txt))<br/>    )<br/>    (while (wcmatch txt "*四*")<br/> (setq txt (vl-string-subst "4" "四" txt))<br/>    )<br/>    (while (wcmatch txt "*五*")<br/> (setq txt (vl-string-subst "5" "五" txt))<br/>    )<br/>    (while (wcmatch txt "*六*")<br/> (setq txt (vl-string-subst "6" "六" txt))<br/>    )<br/>    (while (wcmatch txt "*七*")<br/> (setq txt (vl-string-subst "7" "七" txt))<br/>    )<br/>    (while (wcmatch txt "*八*")<br/> (setq txt (vl-string-subst "8" "八" txt))<br/>    )<br/>    (while (wcmatch txt "*九*")<br/> (setq txt (vl-string-subst "9" "九" txt))<br/>    )<br/>    (setq n (vl-string-elt txt (1- (strlen txt))))<br/>    (setq txt (vl-string-subst "" "十" txt))<br/>    (setq txt (vl-string-subst "" "百" txt))<br/>    (if (= n 174) (setq txt (strcat txt "0")))<br/>    (if (= n 217) (setq txt (strcat txt "00")))<br/>    txt<br/>)

jaminth

谢谢谢谢

664571221

jaminth 发表于 2007-7-12 13:26
谢谢谢谢

怎么用啊？？

baitang36

(defun c:zz ()      
(setq txt "九十")      
(setq txt (vl-string-subst "0" "零" txt))
(while (wcmatch txt "*一*")   (setq txt (vl-string-subst "1" "一" txt))      )      
(while (wcmatch txt "*二*")   (setq txt (vl-string-subst "2" "二" txt))      )      
(while (wcmatch txt "*三*")   (setq txt (vl-string-subst "3" "三" txt))      )      
(while (wcmatch txt "*四*")   (setq txt (vl-string-subst "4" "四" txt))      )      
(while (wcmatch txt "*五*")   (setq txt (vl-string-subst "5" "五" txt))      )      
(while (wcmatch txt "*六*")   (setq txt (vl-string-subst "6" "六" txt))      )      
(while (wcmatch txt "*七*")   (setq txt (vl-string-subst "7" "七" txt))      )      
(while (wcmatch txt "*八*")   (setq txt (vl-string-subst "8" "八" txt))      )      
(while (wcmatch txt "*九*")   (setq txt (vl-string-subst "9" "九" txt))      )      
(setq n (vl-string-elt txt (1- (strlen txt))))      
(setq txt (vl-string-subst "" "十" txt))      
(setq txt (vl-string-subst "" "百" txt))      
(if (= n 174) (setq txt (strcat txt "0")))      
(if (= n 217) (setq txt (strcat txt "00")))      
txt  )