怎么像这样 “文字一个一个的显示出来”

莫离

额，代码看不到，我重新写一下吧

.版本 2
.支持库 spec

.子程序 _自动打字_被选择
.局部变量 文件内容, 文本型
.局部变量 准备打字, 文本型
.局部变量 i
.局部变量 找到位置, 整数型
.局部变量 长度, 整数型

写字框.内容 ＝ “”
清除数组 (打字数组)
目前位置 ＝ 0
.如果真 (通用对话框1.打开 () ＝ 真)
    文件内容 ＝ 到文本 (读入文件 (通用对话框1.文件名))
    调试输出 (文件内容)
    长度 ＝ 取文本长度 (文件内容)
    找到位置 ＝ 0
    .判断循环首 (找到位置 ＜ 长度)
        .如果 (取代码 (取文本中间 (文件内容, 找到位置, 1), ) ＜ 0 或 取代码 (取文本中间 (文件内容, 找到位置, 1), ) ＝ 13)
            .如果 (取代码 (取文本中间 (文件内容, 找到位置, 1), ) ＝ 13)
                .如果 (取文本中间 (文件内容, 找到位置, 2) ＝ #换行符)
                    找到位置 ＝ 找到位置 ＋ 1
                .否则
                    找到位置 ＝ 找到位置 ＋ 3
                .如果结束

            .否则
                准备打字 ＝ 准备打字 ＋ 取文本中间 (文件内容, 找到位置, 2) ＋ “|”
                找到位置 ＝ 找到位置 ＋ 2
            .如果结束

        .否则
            .如果 (取代码 (取文本中间 (文件内容, 找到位置, 1), ) ＝ 0)
                找到位置 ＝ 找到位置 ＋ 1
            .否则
                准备打字 ＝ 准备打字 ＋ 取文本中间 (文件内容, 找到位置, 1) ＋ “|”
                找到位置 ＝ 找到位置 ＋ 1
            .如果结束

        .如果结束

    .判断循环尾 ()
    打字数组 ＝ 分割文本 (准备打字, “|”, )
    时钟1.时钟周期 ＝ 100
    开始 ＝ 真
.如果真结束


.子程序 _窗口总在最前_被选择

.如果 (窗口总在最前.选中 ＝ 真)
    窗口总在最前.选中 ＝ 假
.否则
    窗口总在最前.选中 ＝ 真

shi6718298

.版本 2

临时文本 ＝ “易语言生活更精彩！赶快加入精易学习易语言吧！”
.判断循环首 (编辑框1.内容 ≠ 临时文本)
    t ＝ t ＋ 2
    编辑框1.内容 ＝ “”
    编辑框1.加入文本 (取文本左边 (临时文本, t))
    延时 (500)
    处理事件 ()
.判断循环尾 ()

恒华科技

我是来学习的{:3_244:}