果心_数字到中文_新增数字转中文

police0909

2024.4.26 20:07修改调试输出（ 果心_数字到中文 (51500002002)）
* “五百一十五亿二千零二”

  

启动 ＝ 取启动时间 ()
计次循环首 (1, )
结果 ＝ 果心_数字到中文 (51500002002)
计次循环尾 ()
启动 ＝ 取启动时间 () － 启动
调试输出 (启动, 结果)

子程序名	返回值类型	公开	备 注
果心_数字到中文	文本型
参数名	类 型	参考	可空	数组	备 注
数值	长整数型

变量名	类 型	静态	数组	备 注
numArray	文本型		0
chineseDigits	文本型		0
chineseUnits	文本型		0
chineseStr	文本型
len	整数型
i	整数型
ch	文本型		0
chits	整数型
digit	整数型
unit	整数型
零	逻辑型
i0	整数型
数值文本	文本型
its	文本型		0
取右	文本型
chistr	文本型
io
aa	整数型
增值	逻辑型

数值文本 ＝ 到文本 (数值)
len ＝ 取文本长度 (数值文本)
判断循环首 (取文本长度 (数值文本) ＞ 0)
取右 ＝ 取文本右边 (数值文本, 4)
加入成员 (its, 取右)
数值文本 ＝ 取文本左边 (数值文本, len － 4)
len ＝ 取文本长度 (数值文本)
判断循环尾 ()
' 调试输出 (its)
chineseDigits ＝ { “一”, “二”, “三”, “四”, “五”, “六”, “七”, “八”, “九”, “零”, “” }
chineseUnits ＝ { “”, “十”, “百”, “千” }
ch ＝ { “”, “万”, “亿”, “万亿” }
' 调试输出 (len ％ 4)
chits ＝ 取数组成员数 (its)
计次循环首 (chits, i0)
chistr ＝ its [chits － i0 ＋ 1]
len ＝ 文本_逐字分割_汇编 (chistr, numArray)
零 ＝ 假
增值 ＝ 假
计次循环首 (len, i)
digit ＝ 到整数 (numArray [i])
判断 (len ＝ i)
aa ＝ 0


判断 (digit ＝ 0)
判断 (len ＝ i)
跳出循环 ()
判断 (chits ＝ i0 且 len － i ＝ 1)
digit ＝ 10
到循环尾 ()


chineseStr ＝ chineseStr ＋ chineseDigits [digit]
unit ＝ len － i ＋ 1
判断 (digit ≠ 10)
chineseStr ＝ chineseStr ＋ chineseUnits [unit]
零 ＝ 假
判断 (零)
chineseStr ＝ 取文本左边 (chineseStr, 取文本长度 (chineseStr) － 2)
零 ＝ 真
增值 ＝ 真
计次循环尾 ()
判断 (chits ≠ i0)
判断 (取文本右边 (chineseStr, 2) ＝ “零”)
chineseStr ＝ 取文本左边 (chineseStr, 取文本长度 (chineseStr) － 2)





判断 (增值 ＝ 真)
chineseStr ＝ chineseStr ＋ ch [chits － i0 ＋ 1]



计次循环尾 ()
判断 (取文本右边 (chineseStr, 2) ＝ “零”)
chineseStr ＝ 取文本左边 (chineseStr, 取文本长度 (chineseStr) － 2)



返回 (chineseStr)

子程序名	返回值类型	公开	备 注
文本_逐字分割_汇编	整数型		超长文本计算时有优势 调用该命令前请确定内容不为空
参数名	类 型	参考	可空	数组	备 注
参_内容	文本型
参_文本数组	文本型

变量名	类 型	静态	数组	备 注
返回值	文本型

' 例程收录自：[url=https://bbs.125.la/forum.php?mod=viewthread&tid=14228410]https://bbs.125.la/forum.php?mod=viewthread&tid=14228410[/url]
如果真 (参_内容 ＝ “”)
返回 (0)
返回值 ＝ 取空白文本 (取文本长度 (参_内容) × 2)
置入代码 ({ 139, 69, 8, 139, 48, 139, 125, 252, 172, 168, 128, 117, 26, 60, 32, 116, 247, 60, 9, 116, 243, 60, 13, 116, 239, 60, 10, 116, 235, 132, 192, 116, 28, 170, 176, 9, 170, 235, 225, 60, 161, 117, 10, 134, 224, 172, 60, 161, 116, 214, 134, 224, 78, 170, 172, 170, 176, 9, 170, 235, 203, 49, 192, 170 })
参_文本数组 ＝ 分割文本 (返回值, 到文本 ({ 9 }), )
返回 (取数组成员数 (参_文本数组))

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

.版本 2<br /> .支持库 spec<br /> <br /> 启动 ＝ 取启动时间 ()<br /> .计次循环首 (1, )<br />     结果 ＝ 果心_数字到中文 (51500002002)<br /> .计次循环尾 ()<br /> 启动 ＝ 取启动时间 () － 启动<br /> 调试输出 (启动, 结果)<br /> <br /> .子程序 果心_数字到中文, 文本型, 公开<br /> .参数 数值, 长整数型<br /> .局部变量 numArray, 文本型, , "0"<br /> .局部变量 chineseDigits, 文本型, , "0"<br /> .局部变量 chineseUnits, 文本型, , "0"<br /> .局部变量 chineseStr, 文本型<br /> .局部变量 len, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 ch, 文本型, , "0"<br /> .局部变量 chits, 整数型<br /> .局部变量 digit, 整数型<br /> .局部变量 unit, 整数型<br /> .局部变量 零, 逻辑型<br /> .局部变量 i0, 整数型<br /> .局部变量 数值文本, 文本型<br /> .局部变量 its, 文本型, , "0"<br /> .局部变量 取右, 文本型<br /> .局部变量 chistr, 文本型<br /> .局部变量 io<br /> .局部变量 aa, 整数型<br /> .局部变量 增值, 逻辑型<br /> <br /> 数值文本 ＝ 到文本 (数值)<br /> len ＝ 取文本长度 (数值文本)<br /> .判断循环首 (取文本长度 (数值文本) ＞ 0)<br />     取右 ＝ 取文本右边 (数值文本, 4)<br />     加入成员 (its, 取右)<br />     数值文本 ＝ 取文本左边 (数值文本, len － 4)<br />     len ＝ 取文本长度 (数值文本)<br /> .判断循环尾 ()<br /> ' 调试输出 (its)<br /> chineseDigits ＝ { “一”, “二”, “三”, “四”, “五”, “六”, “七”, “八”, “九”, “零”, “” }<br /> chineseUnits ＝ { “”, “十”, “百”, “千” }<br /> ch ＝ { “”, “万”, “亿”, “万亿” }<br /> ' 调试输出 (len ％ 4)<br /> chits ＝ 取数组成员数 (its)<br /> .计次循环首 (chits, i0)<br />     chistr ＝ its [chits － i0 ＋ 1]<br />     len ＝ 文本_逐字分割_汇编 (chistr, numArray)<br />     零 ＝ 假<br />     增值 ＝ 假<br />     .计次循环首 (len, i)<br />         digit ＝ 到整数 (numArray <i>)<br />         .判断开始 (len ＝ i)<br />             aa ＝ 0<br />         .默认<br /> <br />         .判断结束<br />         .判断开始 (digit ＝ 0)<br />             .判断开始 (len ＝ i)<br /> <br />                 跳出循环 ()<br />             .判断 (chits ＝ i0 且 len － i ＝ 1)<br />                 digit ＝ 10<br />             .默认<br />                 到循环尾 ()<br />             .判断结束<br /> <br />         .默认<br /> <br />         .判断结束<br />         chineseStr ＝ chineseStr ＋ chineseDigits [digit]<br />         unit ＝ len － i ＋ 1<br />         .判断开始 (digit ≠ 10)<br />             chineseStr ＝ chineseStr ＋ chineseUnits [unit]<br />             零 ＝ 假<br />         .判断 (零)<br />             chineseStr ＝ 取文本左边 (chineseStr, 取文本长度 (chineseStr) － 2)<br />         .默认<br />             零 ＝ 真<br />         .判断结束<br />         增值 ＝ 真<br /> <br />     .计次循环尾 ()<br /> <br />     .判断开始 (chits ≠ i0)<br />         .判断开始 (取文本右边 (chineseStr, 2) ＝ “零”)<br />             chineseStr ＝ 取文本左边 (chineseStr, 取文本长度 (chineseStr) － 2)<br />         .默认<br /> <br />         .判断结束<br /> <br />     .默认<br /> <br />     .判断结束<br />     .判断开始 (增值 ＝ 真)<br />         chineseStr ＝ chineseStr ＋ ch [chits － i0 ＋ 1]<br />     .默认<br /> <br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> <br /> .判断开始 (取文本右边 (chineseStr, 2) ＝ “零”)<br />     chineseStr ＝ 取文本左边 (chineseStr, 取文本长度 (chineseStr) － 2)<br /> .默认<br /> <br /> .判断结束<br /> <br /> <br /> 返回 (chineseStr)<br /> <br /> .子程序 文本_逐字分割_汇编, 整数型, 公开, 超长文本计算时有优势 调用该命令前请确定内容不为空<br /> .参数 参_内容, 文本型<br /> .参数 参_文本数组, 文本型, 数组<br /> .局部变量 返回值, 文本型<br /> <br /> ' 例程收录自：<a href="https://bbs.125.la/forum.php?mod=viewthread&tid=14228410" target="_blank">https://bbs.125.la/forum.php?mod=viewthread&tid=14228410</a><br /> .如果真 (参_内容 ＝ “”)<br />     返回 (0)<br /> .如果真结束<br /> 返回值 ＝ 取空白文本 (取文本长度 (参_内容) × 2)<br /> 置入代码 ({ 139, 69, 8, 139, 48, 139, 125, 252, 172, 168, 128, 117, 26, 60, 32, 116, 247, 60, 9, 116, 243, 60, 13, 116, 239, 60, 10, 116, 235, 132, 192, 116, 28, 170, 176, 9, 170, 235, 225, 60, 161, 117, 10, 134, 224, 172, 60, 161, 116, 214, 134, 224, 78, 170, 172, 170, 176, 9, 170, 235, 203, 49, 192, 170 })<br /> 参_文本数组 ＝ 分割文本 (返回值, 到文本 ({ 9 }), )<br /> 返回 (取数组成员数 (参_文本数组))

  

子程序名	返回值类型	公开	备 注
果心_中文到数字	长整数型
参数名	类 型	参考	可空	数组	备 注
中文	文本型

变量名	类 型	静态	数组	备 注
局部_数字	长整数型
局部_亿文本数组	文本型		0
局部_亿计次	整数型
局部_万文本数组	文本型		0
局部_万计次	整数型
局部_参数	长整数型
局部_变量	长整数型
局部_文本	文本型
局部_万	长整数型

局部_亿文本数组 ＝ 分割文本 (中文, “亿”, )
计次循环首 (取数组成员数 (局部_亿文本数组), 局部_亿计次)
局部_万文本数组 ＝ 分割文本 (局部_亿文本数组 [局部_亿计次], “万”, )
局部_万 ＝ 0
计次循环首 (取数组成员数 (局部_万文本数组), 局部_万计次)
局部_变量 ＝ 0
局部_参数 ＝ 寻找文本 (局部_万文本数组 [局部_万计次], “千”, , 假)
如果真 (局部_参数 ≠ -1)
局部_变量 ＝ 到数字 (取文本左边 (局部_万文本数组 [局部_万计次], 2)) × 1000
局部_参数 ＝ 寻找文本 (局部_万文本数组 [局部_万计次], “百”, , 假)
如果真 (局部_参数 ≠ -1)
局部_变量 ＝ 局部_变量 ＋ 到数字 (取文本右边 (取文本左边 (局部_万文本数组 [局部_万计次], 局部_参数 － 1), 2)) × 100
局部_参数 ＝ 寻找文本 (局部_万文本数组 [局部_万计次], “十”, , 假)
如果真 (局部_参数 ≠ -1)
局部_文本 ＝ 取文本右边 (取文本左边 (局部_万文本数组 [局部_万计次], 局部_参数 － 1), 2)
如果 (局部_文本 ＝ “”)
局部_变量 ＝ 局部_变量 ＋ 10
局部_变量 ＝ 局部_变量 ＋ 到数字 (局部_文本) × 10

局部_文本 ＝ 取文本右边 (局部_万文本数组 [局部_万计次], 2)
如果真 (局部_文本 ≠ “千” 且 局部_文本 ≠ “百” 且 局部_文本 ≠ “十”)
局部_变量 ＝ 局部_变量 ＋ 到数字 (局部_文本)
如果真 (寻找文本 (局部_亿文本数组 [局部_亿计次], “万”, , 假) ≠ -1 且 局部_万计次 ＝ 1)
局部_变量 ＝ 局部_变量 × 10000
局部_万 ＝ 局部_万 ＋ 局部_变量
计次循环尾 ()
局部_数字 ＝ 局部_数字 ＋ 局部_万
如果真 (寻找文本 (中文, “亿”, , 假) ≠ -1 且 局部_亿计次 ＝ 1)
局部_数字 ＝ 局部_变量 × 100000000

计次循环尾 ()
返回 (局部_数字)

子程序名	返回值类型	公开	备 注
到数字	整数型		成功返回对应数字，失败返回0
参数名	类 型	参考	可空	数组	备 注
文本	文本型

判断 (文本 ＝ “一”)
返回 (1)
判断 (文本 ＝ “二”)
返回 (2)
判断 (文本 ＝ “三”)
返回 (3)
判断 (文本 ＝ “四”)
返回 (4)
判断 (文本 ＝ “五”)
返回 (5)
判断 (文本 ＝ “六”)
返回 (6)
判断 (文本 ＝ “七”)
返回 (7)
判断 (文本 ＝ “八”)
返回 (8)
判断 (文本 ＝ “九”)
返回 (9)
返回 (0)

.版本 2<br /> <br /> .子程序 果心_中文到数字, 长整数型, 公开<br /> .参数 中文, 文本型<br /> .局部变量 局部_数字, 长整数型<br /> .局部变量 局部_亿文本数组, 文本型, , "0"<br /> .局部变量 局部_亿计次, 整数型<br /> .局部变量 局部_万文本数组, 文本型, , "0"<br /> .局部变量 局部_万计次, 整数型<br /> .局部变量 局部_参数, 长整数型<br /> .局部变量 局部_变量, 长整数型<br /> .局部变量 局部_文本, 文本型<br /> .局部变量 局部_万, 长整数型<br /> <br /> 局部_亿文本数组 ＝ 分割文本 (中文, “亿”, )<br /> .计次循环首 (取数组成员数 (局部_亿文本数组), 局部_亿计次)<br />     局部_万文本数组 ＝ 分割文本 (局部_亿文本数组 [局部_亿计次], “万”, )<br />     局部_万 ＝ 0<br />     .计次循环首 (取数组成员数 (局部_万文本数组), 局部_万计次)<br />         局部_变量 ＝ 0<br />         局部_参数 ＝ 寻找文本 (局部_万文本数组 [局部_万计次], “千”, , 假)<br />         .如果真 (局部_参数 ≠ -1)<br />             局部_变量 ＝ 到数字 (取文本左边 (局部_万文本数组 [局部_万计次], 2)) × 1000<br />         .如果真结束<br />         局部_参数 ＝ 寻找文本 (局部_万文本数组 [局部_万计次], “百”, , 假)<br />         .如果真 (局部_参数 ≠ -1)<br />             局部_变量 ＝ 局部_变量 ＋ 到数字 (取文本右边 (取文本左边 (局部_万文本数组 [局部_万计次], 局部_参数 － 1), 2)) × 100<br />         .如果真结束<br />         局部_参数 ＝ 寻找文本 (局部_万文本数组 [局部_万计次], “十”, , 假)<br />         .如果真 (局部_参数 ≠ -1)<br />             局部_文本 ＝ 取文本右边 (取文本左边 (局部_万文本数组 [局部_万计次], 局部_参数 － 1), 2)<br />             .如果 (局部_文本 ＝ “”)<br />                 局部_变量 ＝ 局部_变量 ＋ 10<br />             .否则<br />                 局部_变量 ＝ 局部_变量 ＋ 到数字 (局部_文本) × 10<br />             .如果结束<br /> <br />         .如果真结束<br />         局部_文本 ＝ 取文本右边 (局部_万文本数组 [局部_万计次], 2)<br />         .如果真 (局部_文本 ≠ “千” 且 局部_文本 ≠ “百” 且 局部_文本 ≠ “十”)<br />             局部_变量 ＝ 局部_变量 ＋ 到数字 (局部_文本)<br />         .如果真结束<br />         .如果真 (寻找文本 (局部_亿文本数组 [局部_亿计次], “万”, , 假) ≠ -1 且 局部_万计次 ＝ 1)<br />             局部_变量 ＝ 局部_变量 × 10000<br />         .如果真结束<br />         局部_万 ＝ 局部_万 ＋ 局部_变量<br />     .计次循环尾 ()<br />     局部_数字 ＝ 局部_数字 ＋ 局部_万<br />     .如果真 (寻找文本 (中文, “亿”, , 假) ≠ -1 且 局部_亿计次 ＝ 1)<br />         局部_数字 ＝ 局部_变量 × 100000000<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (局部_数字)<br /> <br /> .子程序 到数字, 整数型, , 成功返回对应数字，失败返回0<br /> .参数 文本, 文本型<br /> <br /> .判断开始 (文本 ＝ “一”)<br />     返回 (1)<br /> .判断 (文本 ＝ “二”)<br />     返回 (2)<br /> .判断 (文本 ＝ “三”)<br />     返回 (3)<br /> .判断 (文本 ＝ “四”)<br />     返回 (4)<br /> .判断 (文本 ＝ “五”)<br />     返回 (5)<br /> .判断 (文本 ＝ “六”)<br />     返回 (6)<br /> .判断 (文本 ＝ “七”)<br />     返回 (7)<br /> .判断 (文本 ＝ “八”)<br />     返回 (8)<br /> .判断 (文本 ＝ “九”)<br />     返回 (9)<br /> .默认<br />     返回 (0)<br /> .判断结束

薇沐啊

感谢分享

来一次吧

谢谢分享

kyo9766

学习一下怎么互相转换，感谢分享

小磊88

很实用，就喜欢这样的资料。

豆豆灰常开心

已经顶贴，感谢您对论坛的支持！

查过

感谢楼主分享！

杨明煜

学习学习！........

豆豆灰常开心

下个学习一下

查过

已经顶贴，感谢您对论坛的支持！

shuya1

新技能已get√