大写的数字怎么变成数值型

城倾佳人一笑

就是
一 二 三 四 十一 十二 二十三 四十五
这样的变成
1    2   3   4      11   12      23        45


有数值到大写的命令 为什么没有大写到数值

补充内容 (2014-6-28 15:38):
{:soso_e127:} 自己解决了 文本型数组加遍历

ma8803

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1

子程序名	返回值类型	公开	备 注
大写数字到数值	长整数型		目前只允许取5位整数。错误 返回-1
参数名	类 型	参考	可空	数组	备 注
大写数字	文本型
是否为金额	逻辑型				为真：壹、贰、万仟类型。 为假：一 二 三 百 千 类型 默认假

变量名	类 型	静态	数组	备 注
结果	长整数型
temp	文本型
循环变量	整数型
数字	整数型
数	整数型
状态	整数型

如果真 (取文本长度 (大写数字) ＞ 18)
返回 (-1)
变量循环首 (1, 取文本长度 (大写数字), 2, 循环变量)
temp ＝ 取文本中间 (大写数字, 循环变量, 2)
如果 (是否为金额)
数字 ＝ 文本_数字_金额 (temp)
数字 ＝ 文本_数字 (temp)
' 调试输出 (数字, temp)
如果 (状态 ＝ 0)
数 ＝ 数字
状态 ＝ 1
如果 (数 ＝ 0)
数 ＝ 数字
状态 ＝ 1
结果 ＝ 结果 ＋ 数 × 数字
状态 ＝ 0

如果真 (循环变量 ＝ 取文本长度 (大写数字) － 1)
结果 ＝ 结果 ＋ 数字

变量循环尾 ()
返回 (结果)

子程序名	返回值类型	公开	备 注
文本_数字	整数型		一、二、三、百、千
参数名	类 型	参考	可空	数组	备 注
文本	文本型

变量名	类 型	静态	数组	备 注
c	文本型
temp	整数型
d	文本型

c ＝ “零一二三四五六七八九”
d ＝ “十百千万亿”
temp ＝ 寻找文本 (c, 文本, , 假)
如果真 (temp ≠ -1)
返回 (到整数 (temp ＼ 2))
temp ＝ 寻找文本 (d, 文本, , 假)
如果真 (temp ≠ -1)
如果真 (temp ＝ 1)
返回 (10)
如果真 (temp ＝ 3)
返回 (100)
如果真 (temp ＝ 5)
返回 (1000)
如果真 (temp ＝ 7)
返回 (10000)
如果真 (temp ＝ 9)
返回 (100000000)

返回 (1)

子程序名	返回值类型	公开	备 注
文本_数字_金额	整数型		壹、贰、万仟
参数名	类 型	参考	可空	数组	备 注
文本	文本型

变量名	类 型	静态	数组	备 注
c	文本型
temp	整数型
d	文本型

c ＝ “零壹贰叁肆伍陆柒捌玖”
d ＝ “拾佰仟万亿”
temp ＝ 寻找文本 (c, 文本, , 假)
如果真 (temp ≠ -1)
返回 (到整数 (temp ＼ 2))
temp ＝ 寻找文本 (d, 文本, , 假)
如果真 (temp ≠ -1)
如果真 (temp ＝ 1)
返回 (10)
如果真 (temp ＝ 3)
返回 (100)
如果真 (temp ＝ 5)
返回 (1000)
如果真 (temp ＝ 7)
返回 (10000)
如果真 (temp ＝ 9)
返回 (100000000)

返回 (1)

子程序名	返回值类型	公开	备 注
_按钮1_被单击

调试输出 (大写数字到数值 (数值到大写 (10076, 假), 真))
调试输出 (大写数字到数值 (数值到大写 (98765, 假), 真))
调试输出 (大写数字到数值 (“八万零三十六”, ))

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集1<br /> <br /> .子程序 大写数字到数值, 长整数型, 公开, 目前只允许取5位整数。错误 返回-1<br /> .参数 大写数字, 文本型<br /> .参数 是否为金额, 逻辑型, 可空, 为真：壹、贰、万仟类型。 为假：一 二 三 百 千 类型 默认假<br /> .局部变量 结果, 长整数型<br /> .局部变量 temp, 文本型<br /> .局部变量 循环变量, 整数型<br /> .局部变量 数字, 整数型<br /> .局部变量 数, 整数型<br /> .局部变量 状态, 整数型<br /> <br /> .如果真 (取文本长度 (大写数字) ＞ 18)<br />     返回 (-1)<br /> .如果真结束<br /> .变量循环首 (1, 取文本长度 (大写数字), 2, 循环变量)<br />     temp ＝ 取文本中间 (大写数字, 循环变量, 2)<br />     .如果 (是否为金额)<br />         数字 ＝ 文本_数字_金额 (temp)<br />     .否则<br />         数字 ＝ 文本_数字 (temp)<br />     .如果结束<br />     ' 调试输出 (数字, temp)<br />     .如果 (状态 ＝ 0)<br />         数 ＝ 数字<br />         状态 ＝ 1<br />     .否则<br />         .如果 (数 ＝ 0)<br />             数 ＝ 数字<br />             状态 ＝ 1<br />         .否则<br />             结果 ＝ 结果 ＋ 数 × 数字<br />             状态 ＝ 0<br />         .如果结束<br /> <br />     .如果结束<br />     .如果真 (循环变量 ＝ 取文本长度 (大写数字) － 1)<br />         结果 ＝ 结果 ＋ 数字<br />     .如果真结束<br /> <br /> .变量循环尾 ()<br /> 返回 (结果)<br /> <br /> .子程序 文本_数字, 整数型, 公开, 一、二、三、百、千<br /> .参数 文本, 文本型<br /> .局部变量 c, 文本型<br /> .局部变量 temp, 整数型<br /> .局部变量 d, 文本型<br /> <br /> c ＝ “零一二三四五六七八九”<br /> d ＝ “十百千万亿”<br /> temp ＝ 寻找文本 (c, 文本, , 假)<br /> .如果真 (temp ≠ -1)<br />     返回 (到整数 (temp ＼ 2))<br /> .如果真结束<br /> temp ＝ 寻找文本 (d, 文本, , 假)<br /> .如果真 (temp ≠ -1)<br /> <br />     .如果真 (temp ＝ 1)<br />         返回 (10)<br />     .如果真结束<br />     .如果真 (temp ＝ 3)<br />         返回 (100)<br />     .如果真结束<br />     .如果真 (temp ＝ 5)<br />         返回 (1000)<br />     .如果真结束<br />     .如果真 (temp ＝ 7)<br />         返回 (10000)<br />     .如果真结束<br />     .如果真 (temp ＝ 9)<br />         返回 (100000000)<br />     .如果真结束<br /> <br /> .如果真结束<br /> 返回 (1)<br /> <br /> .子程序 文本_数字_金额, 整数型, 公开, 壹、贰、万仟<br /> .参数 文本, 文本型<br /> .局部变量 c, 文本型<br /> .局部变量 temp, 整数型<br /> .局部变量 d, 文本型<br /> <br /> c ＝ “零壹贰叁肆伍陆柒捌玖”<br /> d ＝ “拾佰仟万亿”<br /> temp ＝ 寻找文本 (c, 文本, , 假)<br /> .如果真 (temp ≠ -1)<br />     返回 (到整数 (temp ＼ 2))<br /> .如果真结束<br /> temp ＝ 寻找文本 (d, 文本, , 假)<br /> .如果真 (temp ≠ -1)<br /> <br />     .如果真 (temp ＝ 1)<br />         返回 (10)<br />     .如果真结束<br />     .如果真 (temp ＝ 3)<br />         返回 (100)<br />     .如果真结束<br />     .如果真 (temp ＝ 5)<br />         返回 (1000)<br />     .如果真结束<br />     .如果真 (temp ＝ 7)<br />         返回 (10000)<br />     .如果真结束<br />     .如果真 (temp ＝ 9)<br />         返回 (100000000)<br />     .如果真结束<br /> <br /> .如果真结束<br /> 返回 (1)<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 调试输出 (大写数字到数值 (数值到大写 (10076, 假), 真))<br /> 调试输出 (大写数字到数值 (数值到大写 (98765, 假), 真))<br /> 调试输出 (大写数字到数值 (“八万零三十六”, ))

目前只写到 5位数字   以后的自行判断了

两种格式 “一二 三”
“壹 贰 叁”

臭臭臭臭臭Bitch

自己写个子程序就不就好了？

牛X的孩子

沙发正解。。

城倾佳人一笑

ˋ物似人非 发表于 2014-6-28 15:22
自己写个子程序就不就好了？

一个一个判断？

492634926

自己写个子程序去判断，

城倾佳人一笑

ma8803 发表于 2014-6-28 16:24

  

[/quote]
[e=1].版本 2

子程序名	返回值类型	公开	备 注
大写数字到数值	整数型
参数名	类 型	参考	可空	数组	备 注
参数	文本型

变量名	类 型	静态	数组	备 注
a	整数型

循环判断首 ()
a ＝ a ＋ 1
循环判断尾 (数值到大写 (a, 真) ≠ 参数)
返回 (a)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec</blockquote></div><br /> [e=1].版本 2<br /> <br /> .子程序 大写数字到数值, 整数型<br /> .参数 参数, 文本型<br /> .局部变量 a, 整数型<br /> <br /> .循环判断首 ()<br /> a ＝ a ＋ 1<br /> .循环判断尾 (数值到大写 (a, 真) ≠ 参数)<br /> 返回 (a)

看你写那么多 我用这个就解决完了

ma8803

城倾佳人一笑 发表于 2014-6-28 17:07
[e=1].版本 2

.子程序 大写数字到数值, 整数型

哈哈  谢谢  又学到了

年少时1

7楼正解，，帮顶

ma8803

效率上来说  7楼的 处理3位一下 速度不多

数据过大后 就会牺牲效率了
因为 如果是 一亿零一  就要循环 1亿次了
各有优缺