数字大写转小写

kentfung

借用大佬的两个子程序重新写了一下，虽然方法笨了点，但至少支持小数点，原贴地址：https://bbs.125.la/thread-14736740-1-1.html

  

子程序名	返回值类型	公开	备 注
大写转小写	双精度小数型
参数名	类 型	参考	可空	数组	备 注
大写	文本型

变量名	类 型	静态	数组	备 注
带小数点	逻辑型
数组	文本型		0
i	整数型
基数	长整数型
基数2	长整数型
结果	双精度小数型

逐字分割 (大写, 数组)
基数2 ＝ 1
变量循环首 (取数组成员数 (数组), 1, -1, i)
如果真 (数组 [i] ＝ “整” 或 数组 [i] ＝ “正”)
到循环尾 ()
如果真 (数组 [i] ＝ “分”)
基数 ＝ 1
到循环尾 ()
如果真 (数组 [i] ＝ “角”)
基数 ＝ 10
到循环尾 ()
如果真 (数组 [i] ＝ “元”)
基数 ＝ 100 × 基数2
到循环尾 ()
如果真 (数组 [i] ＝ “拾” 或 数组 [i] ＝ “十”)
基数 ＝ 1000 × 基数2
到循环尾 ()
如果真 (数组 [i] ＝ “佰” 或 数组 [i] ＝ “百”)
基数 ＝ 10000 × 基数2
到循环尾 ()
如果真 (数组 [i] ＝ “仟” 或 数组 [i] ＝ “千”)
基数 ＝ 100000 × 基数2
到循环尾 ()
如果真 (数组 [i] ＝ “万” 或 数组 [i] ＝ “萬”)
基数 ＝ 1000000 × 基数2
基数2 ＝ 基数 ÷ 100
到循环尾 ()
如果真 (数组 [i] ＝ “亿”)
基数 ＝ 1000000 × 基数2
基数2 ＝ 基数 ÷ 100
到循环尾 ()
结果 ＝ 结果 ＋ ToDigit (数组 [i]) × 基数
变量循环尾 ()
返回 (结果 ÷ 100)

子程序名	返回值类型	公开	备 注
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)

子程序名	返回值类型	公开	备 注
逐字分割
参数名	类 型	参考	可空	数组	备 注
数据	文本型
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 /> .参数 大写, 文本型<br /> .局部变量 带小数点, 逻辑型<br /> .局部变量 数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 基数, 长整数型<br /> .局部变量 基数2, 长整数型<br /> .局部变量 结果, 双精度小数型<br /> <br /> 逐字分割 (大写, 数组)<br /> 基数2 ＝ 1<br /> .变量循环首 (取数组成员数 (数组), 1, -1, i)<br />     .如果真 (数组 <i> ＝ “整” 或 数组 <i> ＝ “正”)<br />         到循环尾 ()<br />     .如果真结束<br />     .如果真 (数组 <i> ＝ “分”)<br />         基数 ＝ 1<br />         到循环尾 ()<br />     .如果真结束<br />     .如果真 (数组 <i> ＝ “角”)<br />         基数 ＝ 10<br />         到循环尾 ()<br />     .如果真结束<br />     .如果真 (数组 <i> ＝ “元”)<br />         基数 ＝ 100 × 基数2<br />         到循环尾 ()<br />     .如果真结束<br />     .如果真 (数组 <i> ＝ “拾” 或 数组 <i> ＝ “十”)<br />         基数 ＝ 1000 × 基数2<br />         到循环尾 ()<br />     .如果真结束<br />     .如果真 (数组 <i> ＝ “佰” 或 数组 <i> ＝ “百”)<br />         基数 ＝ 10000 × 基数2<br />         到循环尾 ()<br />     .如果真结束<br />     .如果真 (数组 <i> ＝ “仟” 或 数组 <i> ＝ “千”)<br />         基数 ＝ 100000 × 基数2<br />         到循环尾 ()<br />     .如果真结束<br />     .如果真 (数组 <i> ＝ “万” 或 数组 <i> ＝ “萬”)<br />         基数 ＝ 1000000 × 基数2<br />         基数2 ＝ 基数 ÷ 100<br />         到循环尾 ()<br />     .如果真结束<br />     .如果真 (数组 <i> ＝ “亿”)<br />         基数 ＝ 1000000 × 基数2<br />         基数2 ＝ 基数 ÷ 100<br />         到循环尾 ()<br />     .如果真结束<br />     结果 ＝ 结果 ＋ ToDigit (数组 <i>) × 基数<br /> .变量循环尾 ()<br /> 返回 (结果 ÷ 100)<br /> <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 /> .子程序 逐字分割<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 ＝ 分割文本 (最终文本, “ ”, )

薛之谦荆

a3960382663

        新技能已get√

xuhui713

学习学习

kentfung

xinling99 发表于 2022-7-10 19:19
最好再搞个小写转大写

https://bbs.125.la/forum.php?mod=viewthread&tid=14736496

xinling99

最好再搞个小写转大写

alanwoo

谢谢，学习ing

applepear

谢谢，学习下~~~~

李泽勇2

感谢分享，很实用。

FUYUEPC

谢谢分享