易语言 到整数 到文本

.版本 2

.子程序 到整数_从文本, 整数型, 公开
.参数 内容, 文本型
.局部变量 文本长度, 整数型
.局部变量 临时计次, 整数型
.局部变量 取出的字符, 整数型
.局部变量 结果内容, 整数型
.局部变量 单位, 整数型


文本长度 ＝ 取文本长度 (内容)

.计次循环首 (文本长度, 临时计次)
    单位 ＝ 1
    取出的字符 ＝ 取代码 (内容, 临时计次)
    取出的字符 ＝ 取出的字符 － 48
    .计次循环首 (文本长度 － 临时计次, )
        单位 ＝ 单位 × 10
    .计次循环尾 ()
    结果内容 ＝ 结果内容 ＋ 取出的字符 × 单位

.计次循环尾 ()

返回 (结果内容)


.子程序 到文本_从整数, 文本型, 公开
.参数 数据, 整数型
.局部变量 文本长度, 整数型
.局部变量 临时数据, 整数型
.局部变量 结果, 文本型
.局部变量 临时计次, 整数型
.局部变量 单位, 整数型


' 第一步, 先计算一下是多少位的
临时数据 ＝ 数据
.判断循环首 (临时数据 ≠ 0)
    文本长度 ＝ 文本长度 ＋ 1
    临时数据 ＝ 临时数据 ÷ 10
.判断循环尾 ()
临时数据 ＝ 数据
.计次循环首 (文本长度, 临时计次)
    单位 ＝ 1
    .计次循环首 (文本长度 － 临时计次, )
        单位 ＝ 单位 × 10
    .计次循环尾 ()

    结果 ＝ 结果 ＋ 字符 (临时数据 ÷ 单位 ＋ 48)

    临时数据 ＝ 临时数据 ％ 单位

.计次循环尾 ()




返回 (结果)