易语言读取TXT文件内容到编辑框
.版本 2
.支持库 eAPI
.支持库 shellEx
.程序集 窗口程序集1
.程序集变量 文本, 文本型, , "4"
.程序集变量 文本组, 文本型, , "0"
.程序集变量 字符串, 文本型, , "8"
.程序集变量 注册键, 整数型, , "8"
.程序集变量 计次, 整数型
.程序集变量 计数, 整数型
.子程序 __启动窗口_创建完毕
编辑框1.是否允许多行 ＝ 真
编辑框2.是否允许多行 ＝ 真
编辑框3.是否允许多行 ＝ 真
编辑框1.滚动条 ＝ 2
字符串 ＝ { “A”, “S”, “D”, “W”, “J”, “K”, “U”, “I” }
注册键值 ()
时钟1.时钟周期 ＝ 1000
.子程序 _时钟1_周期事件
文本 [1] ＝ 到文本 (读入文件 (取运行目录 () ＋ “\123.txt”))
.如果真 (文本 [1] ≠ 文本 [2])
时钟1.时钟周期 ＝ 0
文本处理 ()
.如果真结束
.子程序 文本处理
文本组 ＝ 分割文本 (文本 [1], #换行符, )
文本 [4] ＝ “”
.变量循环首 (取数组成员数 (文本组), 取数组成员数 (文本组) － 1, -1, 计次)
.如果 (计次 ＝ 取数组成员数 (文本组))
文本 [2] ＝ 文本组 [计次]
.否则
文本 [3] ＝ 文本组 [计次]
.如果结束
文本 [4] ＝ 文本组 [计次] ＋ #换行符 ＋ 文本 [4]
.变量循环尾 ()
编辑框1.加入文本 (#换行符, 文本 [4])
计次 ＝ 倒找文本 (文本 [3], “ ”, , 假) ＋ 1
编辑框2.加入文本 (取文本左边 (文本 [3], 计次), #换行符)
.计次循环首 (取文本长度 (文本 [2]), 计次)
.计次循环首 (8, 计数)
.如果真 (到大写 (取文本中间 (文本 [2], 计次, 1)) ＝ 字符串 [计数])
_启动窗口.获取焦点 ()
模拟按键 (取代码 (字符串 [计数], 1), , )
跳出循环 ()
.如果真结束
.计次循环尾 ()
.计次循环尾 ()
文本 [2] ＝ 文本 [1]
编辑框3.加入文本 (#换行符)
时钟1.时钟周期 ＝ 1000
.子程序 注册键值
注册键 [1] ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #A键)
注册键 [2] ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #S键)
注册键 [3] ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #D键)
注册键 [4] ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #W键)
注册键 [5] ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #J键)
注册键 [6] ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #K键)
注册键 [7] ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #U键)
注册键 [8] ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #I键)
.子程序 _标签1_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型
.计次循环首 (8, 计次)
.如果真 (参数一 ＝ 注册键 [计次])
编辑框3.加入文本 (字符串 [计次])
.如果真结束
.计次循环尾 ()
--------------------------
有一点小问题,就是123.txt是只取最后连续的两行.第三行是取不到的,如:
AAAAA 2015-09-04 20:40:33
S
FFFFFF 2015-09-04 19:33:47
D
.版本 2
.子程序 _按钮1_被单击
编辑框1.内容 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\你要指定文件名.txt”)) ''''“ 你要指定的文件名”要存放在这个易语言文件同一文件夹内
.支持库 DialogEx.子程序 _按钮1_被单击
.局部变量 文件路径, 文本型
.局部变量 文件号, 整数型编辑框1.是否允许多行 ＝ 真
文件路径 ＝ 打开扩展对话框 (“打开”, “txt”, “所有文件(*.*)|*.*”, 0, “”, 假, 假, 假)
文件号 ＝ 打开文件 (文件路径, , )
编辑框1.内容 ＝ 读入文本 (文件号, )
