#ALIAS trans_fire {#var shu_fire 0;#var num_fire %1;num_fire=%replace(@num_fire,"零十","10|");num_fire=%remove("零",@num_fire);num_fire=%replace(@num_fire,"一","1");num_fire=%replace(@num_fire,"二","2");num_fire=%replace(@num_fire,"三","3");num_fire=%replace(@num_fire,"四","4");num_fire=%replace(@num_fire,"五","5");num_fire=%replace(@num_fire,"六","6");num_fire=%replace(@num_fire,"七","7");num_fire=%replace(@num_fire,"八","8");num_fire=%replace(@num_fire,"九","9");#if (%pos("十",@num_fire) == 1) {num_fire=%replace(@num_fire,"十","10|");} {num_fire=%replace(@num_fire,"十","0|")};num_fire=%replace(@num_fire,"百","00|");num_fire=%replace(@num_fire,"千","000|");num_fire=%replace(@num_fire,"万","0000|");#forall @num_fire {add=%number(%i);#math shu_fire @shu_fire+@add}}
#ALIAS trans {#var shu 0;#var num %1;num=%replace(@num,"零十","10|");num=%remove("零",@num);num=%replace(@num,"一","1");num=%replace(@num,"二","2");num=%replace(@num,"三","3");num=%replace(@num,"四","4");num=%replace(@num,"五","5");num=%replace(@num,"六","6");num=%replace(@num,"七","7");num=%replace(@num,"八","8");num=%replace(@num,"九","9");#if (%pos("十",@num) == 1) {num=%replace(@num,"十","10|");} {num=%replace(@num,"十","0|")};num=%replace(@num,"百","00|");num=%replace(@num,"千","000|");num=%replace(@num,"万","0000|");#forall @num {add=%number(%i);#math shu @shu+@add}} |