大写汉字转小写阿拉伯

jiangtian

转到10亿后出错了，不知道为什么，有需要的朋友可以拿去，有大佬修复一下最好，
网上也有一些大写转小写的，但是都有问题，就连精易模块的那条命令都有，大部分十位数（十九）无法转就出错了，
汉字转整数.e (794.94 KB, 下载次数: 36)

2019-11-17 17:43 上传

点击文件名下载附件

a1372704087

何不试试长整型

帅怨

骗子用不了

帅怨

谢谢分享

真爱你的我

aoesir 发表于 2019-11-17 18:32
一百零二亿  1610065408?

老哥Q多少哦，我加下你

网络注册会员

很好玩的哦

外星星人

感谢分享。。。

wgpgw

感谢分享!!!!!!!!!!!!!!

易小妞

厉害了我的歌

jiangtian

一万兆后还是会出错@a1372704087

1. .版本 2
   
2. .支持库 spec
   
3. 
   
4. .程序集 程序集1
   
5. 
   
6. .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行
   
7. 
   
8. 
   
9. ' 猫扑IM - q949842430
   
10. 
    
11. 调试输出 (大写转整数 (“一”), 大写转整数 (“二”), 大写转整数 (“三”), 大写转整数 (“四”), 大写转整数 (“五”), 大写转整数 (“六”), 大写转整数 (“七”), 大写转整数 (“八”), 大写转整数 (“九”), 大写转整数 (“十”))
    
12. 
    
13. 调试输出 (大写转整数 (“一”), 大写转整数 (“一十”), 大写转整数 (“十一”), 大写转整数 (“一十一”), 大写转整数 (“一百零一”), 大写转整数 (“一百一十”), 大写转整数 (“一百一十一”))
    
14. 
    
15. 调试输出 (大写转整数 (“一万”), 大写转整数 (“一万零一”), 大写转整数 (“一万零一十”), 大写转整数 (“一万一百”), 大写转整数 (“一万一百零一”), 大写转整数 (“一万一百一十”), 大写转整数 (“一万一百一十一”), 大写转整数 (“一万三千”), 大写转整数 (“一万三千六百”), 大写转整数 (“一万三千六百零九”), 大写转整数 (“一万三千六百九十”))
    
16. 
    
17. 调试输出 (大写转整数 (“九十”), 大写转整数 (“九十九”), 大写转整数 (“九百九十九”))
    
18. 
    
19. 调试输出 (大写转整数 (“十万零三千六百零九”))
    
20. 调试输出 (大写转整数 (“一百二十三万四千五百六十七”))
    
21. 调试输出 (大写转整数 (“一千一百二十三万四千五百六十七”))
    
22. 调试输出 (大写转整数 (“一亿一千一百二十三万四千五百六十七”))
    
23. 
    
24. 调试输出 (大写转整数 (“十亿”))
    
25. 调试输出 (大写转整数 (“一百亿”))
    
26. 调试输出 (大写转整数 (“一兆”))
    
27. 调试输出 (大写转整数 (“一百兆”))
    
28. 调试输出 (大写转整数 (“一千兆”))
    
29. 调试输出 (大写转整数 (“一万兆”))
    
30. 
    
31. 返回 (0)  ' 可以根据您的需要返回任意数值
    
32. 
    
33. .子程序 大写转整数, 长整数型
    
34. .参数 局_大写, 文本型
    
35. .局部变量 局_数字, 文本型, , "0"
    
36. .局部变量 局_单位, 文本型, , "0"
    
37. .局部变量 局_分割, 文本型, , "0"
    
38. .局部变量 局_换算, 长整数型
    
39. .局部变量 局_计次, 整数型
    
40. .局部变量 子_计次, 整数型
    
41. .局部变量 局_运算, 长整数型
    
42. .局部变量 局_小写, 长整数型, , "0"
    
43. .局部变量 局_临时, 文本型
    
44. 
    
45. 
    
46. 局_大写 ＝ 文本_颠倒 (局_大写, 真)
    
47. 
    
48. 局_数字 ＝ { “〇”, “0”, “一”, “1”, “二”, “2”, “三”, “3”, “四”, “4”, “五”, “5”, “六”, “6”, “七”, “7”, “八”, “8”, “九”, “9”, “零”, “0”, “壹”, “1”, “贰”, “2”, “叁”, “3”, “肆”, “4”, “伍”, “5”, “陆”, “6”, “柒”, “7”, “捌”, “8”, “玖”, “9”, “貮”, “2”, “两”, “2” }
    
49. 重定义数组 (局_数字, 真, 22, 2)
    
50. 
    
51. 局_单位 ＝ { “十”, “10”, “拾”, “10”, “百”, “100”, “佰”, “100”, “千”, “1000”, “仟”, “1000”, “万”, “10000”, “萬”, “10000”, “亿”, “100000000”, “億”, “100000000”, “兆”, “1000000000000” }
    
52. 重定义数组 (局_单位, 真, 11, 2)
    
53. 
    
54. .计次循环首 (文本_逐字分割 (局_大写, 局_分割), 局_计次)
    
55. 
    
56.     .如果 (单位数组 (局_单位, 局_分割 [局_计次], 子_计次))
    
57. 
    
58.         局_换算 ＝ 到长整数 (局_单位 [子_计次] [2])
    
59. 
    
60.         .如果真 (局_换算 ＝ 10000 或 局_换算 ≥ 100000000)
    
61.             加入成员 (局_小写, 局_换算)
    
62.             局_换算 ＝ 1
    
63.         .如果真结束
    
64. 
    
65. 
    
66.     .否则
    
67. 
    
68.         局_运算 ＝ 数字数组 (局_数字, 局_分割 [局_计次])
    
69. 
    
70.         .如果真 (局_换算 ＞ 0)
    
71.             局_运算 ＝ 局_运算 × 局_换算
    
72.             局_换算 ＝ 0
    
73.         .如果真结束
    
74. 
    
75.         加入成员 (局_小写, 局_运算)
    
76.     .如果结束
    
77. 
    
78. .计次循环尾 ()
    
79. 
    
80. .如果真 (局_换算 ＝ 10)
    
81.     加入成员 (局_小写, 10)
    
82. .如果真结束
    
83. 
    
84. 连续赋值 (0, 局_运算, 局_换算)
    
85. 
    
86. .变量循环首 (取数组成员数 (局_小写), 1, -1, 局_计次)
    
87. 
    
88.     .如果 (局_小写 [局_计次] ＝ 10000 或 局_小写 [局_计次] ≥ 100000000)
    
89.         局_运算 ＝ 局_运算 ＋ 局_换算 × 局_小写 [局_计次]
    
90.         局_换算 ＝ 0
    
91.     .否则
    
92.         局_换算 ＝ 局_换算 ＋ 局_小写 [局_计次]
    
93.     .如果结束
    
94. 
    
95. .变量循环尾 ()
    
96. 
    
97. 局_运算 ＝ 局_运算 ＋ 局_换算
    
98. 返回 (局_运算)
    
99. 
    
100. .子程序 单位数组, 逻辑型
     
101. .参数 局_数组, 文本型, 数组
     
102. .参数 局_对比, 文本型
     
103. .参数 局_计次, 整数型, 参考
     
104. 
     
105. 
     
106. .计次循环首 (11, 局_计次)
     
107. 
     
108.     .如果真 (局_对比 ＝ 局_数组 [局_计次] [1])
     
109.         返回 (真)
     
110.     .如果真结束
     
111. 
     
112. .计次循环尾 ()
     
113. 
     
114. 返回 (假)
     
115. 
     
116. .子程序 数字数组, 整数型
     
117. .参数 局_数组, 文本型, 数组
     
118. .参数 局_对比, 文本型
     
119. .局部变量 局_计次, 整数型
     
120. 
     
121. 
     
122. .计次循环首 (22, 局_计次)
     
123. 
     
124.     .如果真 (局_对比 ＝ 局_数组 [局_计次] [1])
     
125.         返回 (到长整数 (局_数组 [局_计次] [2]))
     
126.     .如果真结束
     
127. 
     
128. .计次循环尾 ()
     
129. 
     
130. 返回 (0)
     
131. 
     

复制代码

jiangtian

aoesir 发表于 2019-11-17 18:32
一百零二亿  1610065408?

易语言整数型不支持100亿，上面仁兄的建议改成长整数