after 发表于 2008-3-21 22:44:55

这个触发该怎么做啊?

银行存款:一万零一百十七两黄金二十三两白银四十三文铜板

如何把这个转化成数字啊?10117gold,23sliver,43coin
谁能教教我?
3x

after 发表于 2008-3-22 19:40:52

有没有人会阿?

nervadam 发表于 2008-4-15 15:12:56

干什么用的啊?

after 发表于 2008-4-15 15:55:49

学一下中文数字转阿拉伯数字,很多地方有用!
需要一个zmud版的,mush版的看过了不会改!

whuan 发表于 2008-4-15 16:15:58

mush?zmud?确定了之后我帮你。

after 发表于 2008-4-15 16:38:19

需要zmud版的
mush版的我见识过了,不会改,没法利用!

whuan 发表于 2008-4-15 21:21:43

http://bbs.njupt.edu.cn/cgi-bin/bbstcon?board=Mud&file=M.998498894.A

做了个把中文数字化为阿拉伯数字的机器人
有什么用??
对编机器人可是大有帮助啊

#fu base%if(%1=零,0,%if(%1=一,1,%if(%1=二,2,%if(%1=三,3,%if(%1=四,4,
          %if(%1=五,5,%if(%1=六,6,%if(%1=七,7,%if(%1=八,8,%if(%1=九,9,0)

#fu base2 %if(@base(%1),@base(%1),%if(%pos(十,%1)=1,%eval(10+@base(%remove(
十,%1))),%eval(@base(@d(千,%1))*1000+@base(@d(百,%1))*100+%if(%pos(零十,%1),
10)+@base(@d(十,%1))*10+%if(%right(%1,%eval(%len(%1)-2))<>千 and %right(%1,%
eval(%len(%1)-2))<>百 and %right(%1,%eval(%len(%1)-2))<>十,@base(%right(%1,%
eval(%len(%1)-2))),0))))

#fu base3 %if(%pos(万,%1),%eval(@base2(%word(%1,1,万))*10000+@base2(%word(%
1,2,万))),@base2(%1))

#fu base4 %if(%pos(亿,%1),%eval(@base3(%word(%1,1,亿))*100000000+@base3(%wo
rd(%1,2,亿))),@base3(%1))

#fu d   
%if(%pos(%1,%2),%right(%word(%2,1,%1),%eval(%len(%word(%2,1,%1))-2)),0)

#fu daoxing %eval(%if(%pos(年,%1),@base4(%word(%1,1,年)),0)*1000+%if(%pos(天
,%1),%if(%pos(年,%1),@base2(%word(%word(%1,1,天),2,年)),@base2(%word(%1,1,天
))),0)*4+%if(%pos(时辰,%1),%if(%pos(天,%1),@base2(%word(%word(%1,1,时辰),2,天
)),%if(%pos(年,%1),@base2(%word(%word(%1,1,时辰),2,年)),@base2(%word(%1,1,时
辰)))),0)/3)

在做个trigger

#ac 【道行】:%s(%x)$ {data=%1;dx=@daoxing(@data);dx=%concat(" ",@dx);
                     #sub 道行:%ansi(bold,magenta)@dx}

就会出现数字显示的道行了

其中@base4()函数是把中文数字化为阿拉伯数字的函数
如:dat=@base4(@x)就把中文的@x化为阿拉伯数字放到dat里了
可支持16位


如果觉得#fu 后的过长可以把他直接考到variables下去(菜单view/variables)
其中variable填base..后面长的部分考到value行(注意不要换行)

after 发表于 2008-4-16 17:12:41

太强了,就是没看懂,而且不能实践一下!
能不能给个判断存款的例子的,让我学习一下??
谢谢

whuan 发表于 2008-4-16 17:13:11

我考,给你这样的,自己捉摸一下啊,别这么懒

after 发表于 2008-4-16 17:43:39

琢磨不出来,没法测试阿!
我robot还刚上路阿,多多帮忙啊?
页: [1] 2
查看完整版本: 这个触发该怎么做啊?