yasya 发表于 2009-1-30 16:36:44

zmud汉字转数字

刚才翻的时候看到zmud的汉字转数字太麻烦了,把我用的发一下。递归作的,用法@convert(一万零八千)#func convert %eval(%if(%pos(万,%1)>0,@convert(@getleft(%1,万))*10000+@convert(@getright(%1,万)),%if(%pos(千,%1)>0,@convert(@getleft(%1,千))*1000+@convert(@getright(%1,千)),%if(%pos(百,%1)>0,@convert(@getleft(%1,百))*100+@convert(@getright(%1,百)),%if(%pos(十,%1)>0,@convert(%if(@getleft(%1,十)="",一,@getleft(%1,十)))*10+@convert(@getright(%1,十)),(%pos(%1,"一二三四五六七八九")+1)/2)))))#func getleft %if(%pos(%2,%1)>0,%left(%1,%pos(%2,%1)-1),"")#func getright %delete(%1,1,%len(@getleft(%1,%2))+2)

xxxcc 发表于 2009-1-30 17:49:33

我手头的更方便,等回去了发。
页: [1]
查看完整版本: zmud汉字转数字