易语言教学答案-导入文本源码
.版本 2 .支持库 iext .子程序 _导入文本按钮_被单击 .局部变量 文件名, 文本型 .局部变量 文本一, 文本型, , "0" .局部变量 文本二, 文本型, , "0" .局部变量 索引, 整数型 .局部变量 i, 整数型 编辑框6.内容 = “开始导入” + #换行符 通用对话框1.类型 = 0 通用对话框1.过滤器 = “文本文档(*.txt)|*.txt” .如果真 (通用对话框1.打开 ()) 文件名 = 到文本 (读入文件 (通用对话框1.文件名)) 文本一 = 分割文本 (文件名, #换行符, ) 超级列表框1.全部删除 () .计次循环首 (取数组成员数 (文本一), i) 文本二 = 分割文本 (文本一 [i], “----”, ) ' 这里的 ---- 是文本分隔符 帐号文本的分隔符是“帐号----密码” .如果真 (取数组成员数 (文本二) > 1) 索引 = 超级列表框1.插入表项 (, , , , , ) 超级列表框1.置标题 (索引, 0, 到文本 (i)) 超级列表框1.置标题 (索引, 1, 文本二 [1]) 超级列表框1.置标题 (索引, 2, 文本二 [2]) 处理事件 () .如果真结束 .计次循环尾 () .如果真结束 编辑框6.加入文本 (“导入完毕” + #换行符)