易语言怎么实现自动编辑网易博客的日志
发布网友
发布时间：2023-07-28 15:02
共1个回答
热心网友
时间：2024-11-15 03:15
.程序集 窗口程序集1
.程序集变量 文本组, 文本型, , "0"
.程序集变量 i, 整数型
.程序集变量 当前文本, 文本型
.程序集变量 类型, 文本型
.程序集变量 字数, 整数型
.子程序 __启动窗口_创建完毕
文本组 ＝ { “易语言实现编辑框内自动打字效果”, “可以利用时钟来简单实现”, “易语言最适合初学编程者学习” }
类型 ＝ “打字”
字数 ＝ 0
i ＝ 1
时钟1.时钟周期 ＝ 50
.子程序 _时钟1_周期事件
当前文本 ＝ 文本组 [i]
.判断开始 (字数 ≤ 取文本长度 (当前文本))
.判断开始 (类型 ＝ “打字”)
编辑框1.内容 ＝ 取文本左边 (当前文本, 字数)
.默认
编辑框1.内容 ＝ 取文本左边 (当前文本, 取文本长度 (当前文本) － 字数)
.判断结束
字数 ＝ 字数 ＋ 1
.默认
字数 ＝ 0
.判断开始 (类型 ＝ “打字”)
类型 ＝ “删除”
.默认
类型 ＝ “打字”
.判断开始 (i ＜ 取数组成员数 (文本组))
i ＝ i ＋ 1
.默认
i ＝ 1
.判断结束
.判断结束
.判断结束
