易语言文本格式替换~~~急,在线等!
发布网友
发布时间:2022-05-04 23:37
我来回答
共1个回答
热心网友
时间:2022-06-27 07:04
.版本 2
.子程序 转换, 文本型
.参数 数字文本, 文本型
.局部变量 返回文本, 文本型
.局部变量 a, 整数型
.局部变量 临时文本, 文本型
.计次循环首 (取文本长度 (数字文本), a)
临时文本 = 取文本中间 (数字文本, a, 1)
.如果 (到整数 (临时文本) < 1)
临时文本 = “1” + 临时文本 + “ ”
.否则
临时文本 = “0” + 临时文本 + “ ”
.如果结束
返回文本 = 返回文本 + 临时文本
.计次循环尾 ()
返回 (删尾空 (返回文本))