易语言怎么写一个导入txt文本然后在进行分割的源码
.版本 2.支持库 iext
.程序集 窗口程序集1
.子程序 _按钮1_被单击
通用对话框1.过滤器 ＝ “记录文件(*.txt)|*.txt”
通用对话框1.标题 ＝ “打开”
通用对话框1.打开 ()
编辑框.内容 ＝ 通用对话框1.文件名
延时 (300)
句柄 ＝ 打开文件 (编辑框.内容, #读写, #无限制)
.如果真 (0 ≠ 句柄)
超级列表框1.全部删除 ()
移到文件首 (句柄)
.判断循环首 (假 ＝ 是否在文件尾 (句柄, 真))
结果数组 ＝ 分割文本 (读入一行 (句柄), “----”, )
.如果真 (1 ＜ 取数组成员数 (结果数组))
表项索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (表项索引, 0, 结果数组 [1])
超级列表框1.置标题 (表项索引, 1, 结果数组 [2])
.如果真结束
.判断循环尾 ()
关闭文件 (句柄)
.如果真结束
超级列表框1.现行选中项 ＝ 0
i ＝ 超级列表框1.现行选中项
h ＝ 超级列表框1.取列数 ()
编辑框1.内容 ＝ 超级列表框1.取标题 (i, 0)
编辑框2.内容 ＝ 超级列表框1.取标题 (i, 1)
.子程序 _按钮2_被单击
.如果 (i ＞ h － 1)
信息框 (“载入资料完”, 0, “提示”)
返回 ()
.否则
i ＝ i ＋ 1
编辑框1.内容 ＝ 超级列表框1.取标题 (i, 0)
编辑框2.内容 ＝ 超级列表框1.取标题 (i, 1)
.如果结束
.版本 2
.全局变量 句柄, 整数型
.全局变量 表项索引, 整数型
.全局变量 结果数组, 文本型, , "0"
.全局变量 i, 整数型
.全局变量 h, 整数型
