易语言自动打字效果实现

小泽 2020-05-10 00:08 1条评论

image.png

源码:

.版本 2
.支持库 spec

.子程序 _按钮1_被单击
.局部变量 待打字, 字节集
.局部变量 字节集长度, 整数型
.局部变量 n, 整数型

待打字 = 到字节集 (“爱分享资源网,afxzyw.cn|www.afxzyw.cn|12334”)
字节集长度 = 取字节集长度 (待打字)
n = 1
.判断循环首 (n ≤ 字节集长度)
    .如果 (待打字 [n] > 127)
        编辑框1.加入文本 (到文本 (取字节集中间 (待打字, n, 2)))
        ' 你要想高大尚,在这位置加个播放声音,哈哈
        n = n + 2
    .否则
        编辑框1.加入文本 (到文本 (取字节集中间 (待打字, n, 1)))
        n = n + 1
    .如果结束
    延迟 (100)
.判断循环尾 ()
' 你把延迟去掉,就相当于另外一种正则匹配方式
' 我前面发了一张易语言的键盘字符代码表,你看了就知道127是什么意思了
' 我也随便去看了其他人写的,个人觉得我这个代码是最简洁的,也是最容易理解的
本文标签: 易语言自动打字
相关文章
0.0

说点什么吧
  • 全部评论(0