易语言阿拉伯数字转中文简体源码

你不丑

  

子程序名	返回值类型	公开	备 注
数字_转中文简体	文本型		阿拉伯数字转中文简体 例如(123转换为一二三)
参数名	类 型	参考	可空	数组	备 注
欲转换的数字	文本型				欲转换的阿拉伯数字,只转换阿拉伯数字.传入其他字符无效 例如(123abc易语言,只会返回一二三)

变量名	类 型	静态	数组	备 注
局_字节集	字节集
局_长度	整数型
局_文本	文本型
局_计次	整数型

局_字节集 ＝ 到字节集 (欲转换的数字)
局_长度 ＝ 取字节集长度 (局_字节集)
计次循环首 (局_长度, 局_计次)
如果真 (局_字节集 [局_计次] ＝ 48)
局_文本 ＝ 局_文本 ＋ “零”
如果真 (局_字节集 [局_计次] ＝ 49)
局_文本 ＝ 局_文本 ＋ “一”
如果真 (局_字节集 [局_计次] ＝ 50)
局_文本 ＝ 局_文本 ＋ “二”
如果真 (局_字节集 [局_计次] ＝ 51)
局_文本 ＝ 局_文本 ＋ “三”
如果真 (局_字节集 [局_计次] ＝ 52)
局_文本 ＝ 局_文本 ＋ “四”
如果真 (局_字节集 [局_计次] ＝ 53)
局_文本 ＝ 局_文本 ＋ “五”
如果真 (局_字节集 [局_计次] ＝ 54)
局_文本 ＝ 局_文本 ＋ “六”
如果真 (局_字节集 [局_计次] ＝ 55)
局_文本 ＝ 局_文本 ＋ “七”
如果真 (局_字节集 [局_计次] ＝ 56)
局_文本 ＝ 局_文本 ＋ “八”
如果真 (局_字节集 [局_计次] ＝ 57)
局_文本 ＝ 局_文本 ＋ “九”

计次循环尾 ()
返回 (局_文本)

子程序名	返回值类型	公开	备 注
数字_转中文简体1	文本型		阿拉伯数字转中文简体 例如(123转换为一二三)
参数名	类 型	参考	可空	数组	备 注
欲转换的数字	字节集				欲转换的阿拉伯数字,只转换阿拉伯数字.禁止传入除数字以外的任何字符

变量名	类 型	静态	数组	备 注
局_计次	整数型
局_字节集长度	整数型
局_原始长度	整数型
局_字节集	字节集
局_位置	整数型
局_文本	文本型

局_原始长度 ＝ 取字节集长度 (欲转换的数字)
局_字节集 ＝ { 48, 49, 50, 51, 52, 53, 54, 55, 56, 57 }
局_字节集长度 ＝ 取字节集长度 (局_字节集)
计次循环首 (局_原始长度, 局_计次)
局_位置 ＝ 寻找字节集 (局_字节集, 到字节集 (欲转换的数字 [局_计次]), )
局_文本 ＝ 局_文本 ＋ 多项选择 (局_位置, “零”, “一”, “二”, “三”, “四”, “五”, “六”, “七”, “八”, “九”)
计次循环尾 ()
返回 (局_文本)

.版本 2<br /> <br /> .子程序 数字_转中文简体, 文本型, , 阿拉伯数字转中文简体 例如(123转换为一二三) <br /> .参数 欲转换的数字, 文本型, , 欲转换的阿拉伯数字,只转换阿拉伯数字.传入其他字符无效 例如(123abc易语言,只会返回一二三)<br /> .局部变量 局_字节集, 字节集<br /> .局部变量 局_长度, 整数型<br /> .局部变量 局_文本, 文本型<br /> .局部变量 局_计次, 整数型<br /> <br /> 局_字节集 ＝ 到字节集 (欲转换的数字)<br /> 局_长度 ＝ 取字节集长度 (局_字节集)<br /> .计次循环首 (局_长度, 局_计次)<br />     .如果真 (局_字节集 [局_计次] ＝ 48)<br />         局_文本 ＝ 局_文本 ＋ “零”<br />     .如果真结束<br />     .如果真 (局_字节集 [局_计次] ＝ 49)<br />         局_文本 ＝ 局_文本 ＋ “一”<br />     .如果真结束<br />     .如果真 (局_字节集 [局_计次] ＝ 50)<br />         局_文本 ＝ 局_文本 ＋ “二”<br />     .如果真结束<br />     .如果真 (局_字节集 [局_计次] ＝ 51)<br />         局_文本 ＝ 局_文本 ＋ “三”<br />     .如果真结束<br />     .如果真 (局_字节集 [局_计次] ＝ 52)<br />         局_文本 ＝ 局_文本 ＋ “四”<br />     .如果真结束<br />     .如果真 (局_字节集 [局_计次] ＝ 53)<br />         局_文本 ＝ 局_文本 ＋ “五”<br />     .如果真结束<br />     .如果真 (局_字节集 [局_计次] ＝ 54)<br />         局_文本 ＝ 局_文本 ＋ “六”<br />     .如果真结束<br />     .如果真 (局_字节集 [局_计次] ＝ 55)<br />         局_文本 ＝ 局_文本 ＋ “七”<br />     .如果真结束<br />     .如果真 (局_字节集 [局_计次] ＝ 56)<br />         局_文本 ＝ 局_文本 ＋ “八”<br />     .如果真结束<br />     .如果真 (局_字节集 [局_计次] ＝ 57)<br />         局_文本 ＝ 局_文本 ＋ “九”<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (局_文本)<br /> <br /> .子程序 数字_转中文简体1, 文本型, , 阿拉伯数字转中文简体 例如(123转换为一二三) <br /> .参数 欲转换的数字, 字节集, , 欲转换的阿拉伯数字,只转换阿拉伯数字.禁止传入除数字以外的任何字符<br /> .局部变量 局_计次, 整数型<br /> .局部变量 局_字节集长度, 整数型<br /> .局部变量 局_原始长度, 整数型<br /> .局部变量 局_字节集, 字节集<br /> .局部变量 局_位置, 整数型<br /> .局部变量 局_文本, 文本型<br /> <br /> 局_原始长度 ＝ 取字节集长度 (欲转换的数字)<br /> 局_字节集 ＝ { 48, 49, 50, 51, 52, 53, 54, 55, 56, 57 }<br /> 局_字节集长度 ＝ 取字节集长度 (局_字节集)<br /> .计次循环首 (局_原始长度, 局_计次)<br />     局_位置 ＝ 寻找字节集 (局_字节集, 到字节集 (欲转换的数字 [局_计次]), )<br />     局_文本 ＝ 局_文本 ＋ 多项选择 (局_位置, “零”, “一”, “二”, “三”, “四”, “五”, “六”, “七”, “八”, “九”)<br /> <br /> .计次循环尾 ()<br /> 返回 (局_文本)

需要的拿去吧,

lhn0925

学习一下

网络注册会员

学习了学习了

ctry78985

感谢分享

ebhb

谢谢楼主分享。

南絮

感谢感谢

wgqxj

谢谢分享

mu396

支持开源~！感谢分享

丰哥哥

支持一下

jackhow

哈哈，我一般不用这么复杂，只需要取整，然后调到数值到大写，就可以转换成一二三，或者壹贰叁