整数到中文

易语言 2021-08-02 13:07:11

.判断循环首 (num > 0)
section = num % 10000 ' //得到最后面的小节
.如果真 (setZero) ' //判断上一小节的千位是否为零,是就设置零
chinese = nums [1] + chinese
.如果真结束
chinese_section = sectionTrans (section)
.如果真 (section ≠ 0) ' //判断是都加节权位
chinese_section = chinese_section + weight_units [weigth]
.如果真结束
chinese = chinese_section + chinese
chinese_section = “”
setZero = section < 1000 且 section > 0
num = num ÷ 10000
weigth = weigth + 1
.如果真 (取文本长度 (chinese) = 2 或 取文本长度 (chinese) = 3 且 寻找文本 (chinese, “一十”, , 假) > 0)
chinese = 取文本中间 (chinese, 1, 取文本长度 (chinese))
.如果真结束
.如果真 (indexOf (chinese, “一十”) = 0)
chinese = 子文本替换 (chinese, “一十”, “十”, , 1, 真)
.如果真结束

.判断循环尾 ()