【tintin++】中文数字转阿拉伯数字

edf

1. #class texttofigur open;
   
2. 
   
3. #var texttofigur_1 0;
   
4. #var texttofigur_2 0;
   
5. #function texttofigur {
   
6.     #var texttofigur_1 = %1;
   
7.     #var texttofigur_2 0;
   
8.     #regexp $texttofigur_1 {九百} {#math texttofigur_2 $texttofigur_2+900;#REPLACE texttofigur_1 {九百} {}};
   
9.     #regexp $texttofigur_1 {八百} {#math texttofigur_2 $texttofigur_2+800;#REPLACE texttofigur_1 {八百} {}};
   
10.     #regexp $texttofigur_1 {七百} {#math texttofigur_2 $texttofigur_2+700;#REPLACE texttofigur_1 {七百} {}};
    
11.     #regexp $texttofigur_1 {六百} {#math texttofigur_2 $texttofigur_2+600;#REPLACE texttofigur_1 {六百} {}};
    
12.     #regexp $texttofigur_1 {五百} {#math texttofigur_2 $texttofigur_2+500;#REPLACE texttofigur_1 {五百} {}};
    
13.     #regexp $texttofigur_1 {四百} {#math texttofigur_2 $texttofigur_2+400;#REPLACE texttofigur_1 {四百} {}};
    
14.     #regexp $texttofigur_1 {三百} {#math texttofigur_2 $texttofigur_2+300;#REPLACE texttofigur_1 {三百} {}};
    
15.     #regexp $texttofigur_1 {二百} {#math texttofigur_2 $texttofigur_2+200;#REPLACE texttofigur_1 {二百} {}};
    
16.     #regexp $texttofigur_1 {一百} {#math texttofigur_2 $texttofigur_2+100;#REPLACE texttofigur_1 {一百} {}};
    
17.     #regexp $texttofigur_1 {九十} {#math texttofigur_2 $texttofigur_2+90;#REPLACE texttofigur_1 {九十} {}};
    
18.     #regexp $texttofigur_1 {八十} {#math texttofigur_2 $texttofigur_2+80;#REPLACE texttofigur_1 {八十} {}};
    
19.     #regexp $texttofigur_1 {七十} {#math texttofigur_2 $texttofigur_2+70;#REPLACE texttofigur_1 {七十} {}};
    
20.     #regexp $texttofigur_1 {六十} {#math texttofigur_2 $texttofigur_2+60;#REPLACE texttofigur_1 {六十} {}};
    
21.     #regexp $texttofigur_1 {五十} {#math texttofigur_2 $texttofigur_2+50;#REPLACE texttofigur_1 {五十} {}};
    
22.     #regexp $texttofigur_1 {四十} {#math texttofigur_2 $texttofigur_2+40;#REPLACE texttofigur_1 {四十} {}};
    
23.     #regexp $texttofigur_1 {三十} {#math texttofigur_2 $texttofigur_2+30;#REPLACE texttofigur_1 {三十} {}};
    
24.     #regexp $texttofigur_1 {二十} {#math texttofigur_2 $texttofigur_2+20;#REPLACE texttofigur_1 {二十} {}};
    
25.     #regexp $texttofigur_1 {一十} {#math texttofigur_2 $texttofigur_2+10;#REPLACE texttofigur_1 {一十} {}};
    
26.     #regexp $texttofigur_1 {十} {#math texttofigur_2 $texttofigur_2+10;#REPLACE texttofigur_1 {十} {}};
    
27.     #regexp $texttofigur_1 {九} {#math texttofigur_2 $texttofigur_2+9;#REPLACE texttofigur_1 {九} {}};
    
28.     #regexp $texttofigur_1 {八} {#math texttofigur_2 $texttofigur_2+8;#REPLACE texttofigur_1 {八} {}};
    
29.     #regexp $texttofigur_1 {七} {#math texttofigur_2 $texttofigur_2+7;#REPLACE texttofigur_1 {七} {}};
    
30.     #regexp $texttofigur_1 {六} {#math texttofigur_2 $texttofigur_2+6;#REPLACE texttofigur_1 {六} {}};
    
31.     #regexp $texttofigur_1 {五} {#math texttofigur_2 $texttofigur_2+5;#REPLACE texttofigur_1 {五} {}};
    
32.     #regexp $texttofigur_1 {四} {#math texttofigur_2 $texttofigur_2+4;#REPLACE texttofigur_1 {四} {}};
    
33.     #regexp $texttofigur_1 {三} {#math texttofigur_2 $texttofigur_2+3;#REPLACE texttofigur_1 {三} {}};
    
34.     #regexp $texttofigur_1 {二} {#math texttofigur_2 $texttofigur_2+2;#REPLACE texttofigur_1 {二} {}};
    
35.     #regexp $texttofigur_1 {一} {#math texttofigur_2 $texttofigur_2+1;#REPLACE texttofigur_1 {一} {}};
    
36.    
    
37. 
    
38.     #nop 最低一件。
    
39.     #if {"$texttofigur_2"=="0"} {#var texttofigur_2 1};
    
40.     #RETURN {$texttofigur_2};
    
41. }
    
42. 
    
43. 
    
44. 
    
45. 
    
46. #class texttofigur close;

复制代码

转换范围是九百九十九以内，没有输入默认返回1
虽然是无意为之，但这个函数的好处是自动忽略“件”、“枚”之类的量词，只返回阿拉伯数字

应该有更好写法但我大脑过载懒得动了