继续-中文大写数字转换回阿拉伯数字

chencong5025

目前不支持小数  其他没问题

  

子程序名	返回值类型	公开	备 注
转换数值	长整数型
参数名	类 型	参考	可空	数组	备 注
cnnumber	文本型

变量名	类 型	静态	数组	备 注
chars	文本型		0
result	长整数型
strs	文本型		0

逐字分割 (cnnumber, chars)
strs ＝ 分割文本 (cnnumber, “亿”, )
result ＝ ConverToDigit (strs [1])
如果真 (取数组成员数 (strs) ＞ 1)
result ＝ result × 100000000
result ＝ result ＋ ConverToDigit (strs [2])
返回 (result)

子程序名	返回值类型	公开	备 注
ToDigit	整数型
参数名	类 型	参考	可空	数组	备 注
cn	文本型

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

判断 (cn ＝ “壹” 或 cn ＝ “一”)
num ＝ 1
判断 (cn ＝ “贰” 或 cn ＝ “两” 或 cn ＝ “二”)
num ＝ 2
判断 (cn ＝ “叁” 或 cn ＝ “三”)
num ＝ 3
判断 (cn ＝ “肆” 或 cn ＝ “四”)
num ＝ 4
判断 (cn ＝ “伍” 或 cn ＝ “五”)
num ＝ 5
判断 (cn ＝ “陆” 或 cn ＝ “六”)
num ＝ 6
判断 (cn ＝ “柒” 或 cn ＝ “七”)
num ＝ 7
判断 (cn ＝ “捌” 或 cn ＝ “八”)
num ＝ 8
判断 (cn ＝ “玖” 或 cn ＝ “九”)
num ＝ 9
判断 (cn ＝ “拾” 或 cn ＝ “十”)
num ＝ 10
判断 (cn ＝ “佰” 或 cn ＝ “百”)
num ＝ 100
判断 (cn ＝ “仟” 或 cn ＝ “千”)
num ＝ 1000
判断 (cn ＝ “萬” 或 cn ＝ “万”)
num ＝ 10000
判断 (cn ＝ “零”)
num ＝ 0
num ＝ 0
返回 (num)

子程序名	返回值类型	公开	备 注
ConverToDigit	整数型
参数名	类 型	参考	可空	数组	备 注
cnnumber	文本型

变量名	类 型	静态	数组	备 注
result	整数型
temp	整数型
chars	文本型		0
len	整数型
i	整数型
tp1	整数型

逐字分割 (cnnumber, chars)
len ＝ 取数组成员数 (chars)
计次循环首 (len, i)
tp1 ＝ ToDigit (chars [i])
判断 (tp1 ＝ 10000)
result ＝ result ＋ temp
result ＝ result × 10000
temp ＝ 0
判断 (tp1 ＞ 9)
如果真 (tp1 ＝ 10 且 temp ＝ 0)
temp ＝ 1
result ＝ result ＋ temp × tp1
temp ＝ 0
temp ＝ tp1

计次循环尾 ()
result ＝ result ＋ temp
' 调试输出 (result)
返回 (result)

子程序名	返回值类型	公开	备 注
逐字分割
参数名	类 型	参考	可空	数组	备 注
数据	文本型
result	文本型

变量名	类 型	静态	数组	备 注
文本	文本型
n	整数型
代码	整数型
临时	文本型
分割后文本	文本型		0
i	整数型
最终文本	文本型
len	整数型

n ＝ 1
文本 ＝ 数据
判断循环首 (n ≤ 取文本长度 (文本))
临时 ＝ 取文本中间 (文本, n, 1)
如果真 (取代码 (临时, ) ＜ 0)
临时 ＝ 取文本中间 (文本, n, 2)
n ＝ n ＋ 1
加入成员 (分割后文本, 临时)
n ＝ n ＋ 1
判断循环尾 ()
len ＝ 取数组成员数 (分割后文本)
计次循环首 (len, i)
判断 (i ≠ len)
最终文本 ＝ 最终文本 ＋ 分割后文本 [i] ＋ “ ”
最终文本 ＝ 最终文本 ＋ 分割后文本 [i]

计次循环尾 ()
result ＝ 分割文本 (最终文本, “ ”, )

.版本 2<br /> <br /> .子程序 转换数值, 长整数型<br /> .参数 cnnumber, 文本型<br /> .局部变量 chars, 文本型, , "0"<br /> .局部变量 result, 长整数型<br /> .局部变量 strs, 文本型, , "0"<br /> <br /> 逐字分割 (cnnumber, chars)<br /> strs ＝ 分割文本 (cnnumber, “亿”, )<br /> result ＝ ConverToDigit (strs [1])<br /> .如果真 (取数组成员数 (strs) ＞ 1)<br />     result ＝ result × 100000000<br />     result ＝ result ＋ ConverToDigit (strs [2])<br /> .如果真结束<br /> 返回 (result)<br /> <br /> .子程序 ToDigit, 整数型<br /> .参数 cn, 文本型<br /> .局部变量 num, 整数型<br /> <br /> .判断开始 (cn ＝ “壹” 或 cn ＝ “一”)<br />     num ＝ 1<br /> .判断 (cn ＝ “贰” 或 cn ＝ “两” 或 cn ＝ “二”)<br />     num ＝ 2<br /> .判断 (cn ＝ “叁” 或 cn ＝ “三”)<br />     num ＝ 3<br /> .判断 (cn ＝ “肆” 或 cn ＝ “四”)<br />     num ＝ 4<br /> .判断 (cn ＝ “伍” 或 cn ＝ “五”)<br />     num ＝ 5<br /> .判断 (cn ＝ “陆” 或 cn ＝ “六”)<br />     num ＝ 6<br /> .判断 (cn ＝ “柒” 或 cn ＝ “七”)<br />     num ＝ 7<br /> .判断 (cn ＝ “捌” 或 cn ＝ “八”)<br />     num ＝ 8<br /> .判断 (cn ＝ “玖” 或 cn ＝ “九”)<br />     num ＝ 9<br /> .判断 (cn ＝ “拾” 或 cn ＝ “十”)<br />     num ＝ 10<br /> .判断 (cn ＝ “佰” 或 cn ＝ “百”)<br />     num ＝ 100<br /> .判断 (cn ＝ “仟” 或 cn ＝ “千”)<br />     num ＝ 1000<br /> .判断 (cn ＝ “萬” 或 cn ＝ “万”)<br />     num ＝ 10000<br /> .判断 (cn ＝ “零”)<br />     num ＝ 0<br /> .默认<br />     num ＝ 0<br /> .判断结束<br /> 返回 (num)<br /> <br /> .子程序 ConverToDigit, 整数型<br /> .参数 cnnumber, 文本型<br /> .局部变量 result, 整数型<br /> .局部变量 temp, 整数型<br /> .局部变量 chars, 文本型, , "0"<br /> .局部变量 len, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 tp1, 整数型<br /> <br /> 逐字分割 (cnnumber, chars)<br /> len ＝ 取数组成员数 (chars)<br /> <br /> .计次循环首 (len, i)<br />     tp1 ＝ ToDigit (chars <i>)<br />     .判断开始 (tp1 ＝ 10000)<br />         result ＝ result ＋ temp<br />         result ＝ result × 10000<br />         temp ＝ 0<br />     .判断 (tp1 ＞ 9)<br />         .如果真 (tp1 ＝ 10 且 temp ＝ 0)<br />             temp ＝ 1<br />         .如果真结束<br />         result ＝ result ＋ temp × tp1<br />         temp ＝ 0<br />     .默认<br />         temp ＝ tp1<br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> <br /> <br /> result ＝ result ＋ temp<br /> ' 调试输出 (result)<br /> 返回 (result)<br /> <br /> <br /> .子程序 逐字分割<br /> .参数 数据, 文本型<br /> .参数 result, 文本型, 参考 数组<br /> .局部变量 文本, 文本型<br /> .局部变量 n, 整数型<br /> .局部变量 代码, 整数型<br /> .局部变量 临时, 文本型<br /> .局部变量 分割后文本, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 最终文本, 文本型<br /> .局部变量 len, 整数型<br /> <br /> n ＝ 1<br /> 文本 ＝ 数据<br /> .判断循环首 (n ≤ 取文本长度 (文本))<br />     临时 ＝ 取文本中间 (文本, n, 1)<br />     .如果真 (取代码 (临时, ) ＜ 0)<br />         临时 ＝ 取文本中间 (文本, n, 2)<br />         n ＝ n ＋ 1<br />     .如果真结束<br />     加入成员 (分割后文本, 临时)<br />     n ＝ n ＋ 1<br /> .判断循环尾 ()<br /> <br /> len ＝ 取数组成员数 (分割后文本)<br /> .计次循环首 (len, i)<br /> <br />     .判断开始 (i ≠ len)<br />         最终文本 ＝ 最终文本 ＋ 分割后文本 <i> ＋ “ ”<br />     .默认<br />         最终文本 ＝ 最终文本 ＋ 分割后文本 <i><br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> result ＝ 分割文本 (最终文本, “ ”, )

qinwyin

谢谢分享...

xiaowenzhi

支持开源~！感谢分享

帅怨

谢谢分享

qqmqqg

566666666666444444444

小小小小123

支持开源~！感谢分享

ferrisy

#在这里快速回复# 感谢分享

xuhui713

looklook!!!

yzl666

厉害大佬给力

cfvgbhnj

支持开源~！感谢分享