请教 如何转换中文数字为阿拉伯数字？

[aatgf]

这么复杂，先收藏了，
学习学习

[esp]

zmud里面有这样的函数？ tran？学习一下

[jack100344]

好好学习下！！！！！！

[suming]

啊啊 为什么我什么为什么为什么
啊啊 为什么我什么为什么为什么

[cjsscn]

收藏了，还是很有用啊，我就碰到了#slow .111 只走一步的情况，看了你的帖子终于知道怎么设置了，要是多些这样的帮助帖就太好了，新手好难啊

[yeyu]

我用的方法比较死板，以转换金创药的数量为例：
#tr {(*)包金创药~(*}
{
yao_num=%trim(%1);
yao_num=%replace(@yao_num,"零","");yao_num=%replace(@yao_num,"一",1);yao_num=%replace(@yao_num,"二",2);yao_num=%replace(@yao_num,"三",3);yao_num=%replace(@yao_num,"四",4);yao_num=%replace(@yao_num,"五",5);yao_num=%replace(@yao_num,"六",6);yao_num=%replace(@yao_num,"七",7);yao_num=%replace(@yao_num,"八",8);yao_num=%replace(@yao_num,"九",9);yao_num=%replace(@yao_num,"百","*100+");yao_num=%replace(@yao_num,"十","*10+");yao_num=%eval(@yao_num)
}
因为我身上的药不会过千，就只转换到了百位，比如“一百一十二”，通过上面的逐一替换，变成1*100+1*10+2，然后用%eval()对表达式求值得出结果，复杂点的只要增加替换的语句就可以了

[asteria]

作者: yeyu

我用的方法比较死板，以转换金创药的数量为例：
#tr {(*)包金创药~(*}
{
yao_num=%trim(%1);
yao_num=%replace(@yao_num,"零","");yao_num=%replace(@yao_num,"一",1);yao_num=%replace(@yao_num,"二",2);yao_num=%replace(@yao_num,"三",3);yao_num=%replace(@yao_num,"四",4);yao_num=%replace(@yao_num,"五",5);yao_num=%replace(@yao_num,"六",6);yao_num=%replace(@yao_num,"七",7);yao_num=%replace(@yao_num,"八",8);yao_num=%replace(@yao_num,"九",9);yao_num=%replace(@yao_num,"百","*100+");yao_num=%replace(@yao_num,"十","*10+");yao_num=%eval(@yao_num)
}
因为我身上的药不会过千，就只转换到了百位，比如“一百一十二”，通过上面的逐一替换，变成1*100+1*10+2，然后用%eval()对表达式求值得出结果，复杂点的只要增加替换的语句就可以了

死板吗？简单明了

[jsflyer]

#tri (%x)支人参
renshen=%1;
renshen=%replace(@renshen,零,0);
renshen=%replace(@renshen,一,1);
renshen=%replace(@renshen,二,2);
renshen=%replace(@renshen,三,3);
renshen=%replace(@renshen,四,4);
renshen=%replace(@renshen,五,5);
renshen=%replace(@renshen,六,6);
renshen=%replace(@renshen,七,7);
renshen=%replace(@renshen,八,8);
renshen=%replace(@renshen,九,9);
renshen=%replace(@renshen,十,*10+);
renshen=%replace( @renshen,百,*100+);
renshen=%replace( @renshen,千,*1000+);
renshen=%replace( @renshen,万,*10000+);
renshen=%replace( @renshen," ","");
#if %pos(%rightback(@renshen,1),+) {renshen=%concat(@renshen,0)};
#if (%begins(@renshen,*)) {renshen=%concat(1,@renshen)};
renshen=%eval(@renshen)

[临时启动]

先赚点梁山币，版主见谅啊。。。