zmud汉字转数字

疯无痕(sammiy@ts)

递归作的
用法@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)

疯无痕(sammiy@ts)

#TRI {^??(%*)两白银~(Silver~)} {count=%replace(%replace(%replace(%concat(零,%1),零十,零一十),零,),百十,百一十);
#9 count=%replace(@count,%word(@numlist,%i),%i);
#4 count=%replace(@count,%word(@numlist,%i+9),*1%repeat(0,%i)+0);
count=%eval(@count)}
#AL numlist {一 二 三 四 五 六 七 八 九 十 百 千 万}

支持表达范围：零~九万九千九百九十九