易语言,超级列表框,如何自动导入c盘 账号.txt?注意,是运行的时候,软件自动读取文本到超级列表
账号----密码
账号----密码
账号----密码 展开
.版本 2
.支持库 iext
.支持库 spec
.程序集 窗口程序集1
.子程序 _按钮1_被单击被单击
.局部变量 文本数组, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 账密数组, 文本型, , "0"
’附件这里加了一个清空,这样每次点击的时候就不会有其他的内容。这里没写
.文本数组 = 分割文本(读入文本 (打开文件 (“c:\账号.txt”, , ), ),#hhf,)
.计次循环首 (取数组成员数 (文本数组), i)
如果真(文本数组 [i], = “”)
跳出循环
如果真结束
账密数组 = 分割文本 (文本数组 [i], “----”, )
超级列表框1.插入表项 (, , , , )
超级列表框1.置标题 (i, 0, 帐密数组 [1])
超级列表框1.置标题 (i, 1, 帐密数组 [2])
.计次循环尾 ()
关闭所有文件 ()
.版本 2
.支持库 iext
.支持库 spec
.程序集 窗口程序集1
.子程序 _按钮_浏览_被单击
.局部变量 文件号, 整数型
.局部变量 临时文本, 文本型
.局部变量 文本数组, 文本型, , "0"
.局部变量 帐号数组, 文本型, , "0"
.局部变量 索引, 整数型
.局部变量 i, 整数型
通用对话框1.过滤器 = “文本文件|*.txt”
通用对话框1.打开 ()
.如果 (通用对话框1.文件名 ≠ “”)
文件号 = 打开文件 (通用对话框1.文件名, , )
临时文本 = 读入文本 (文件号, )
关闭文件 (文件号)
.否则
返回 ()
.如果结束
.如果 (寻找文本 (临时文本, “|”, , 假) ≠ -1)
文本数组 = 分割文本 (临时文本, #换行符, )
.计次循环首 (取数组成员数 (文本数组), i)
帐号数组 = 分割文本 (文本数组 [i], “|”, )
索引 = 超级列表框1.插入表项 (, 到文本 (i), , , , )
超级列表框1.置标题 (索引, 1, 帐号数组 [1])
超级列表框1.置标题 (索引, 2, 帐号数组 [2])
延迟 (50)
.计次循环尾 ()
.否则
信息框 (“格式应为:帐号|密码” + #换行符 + “例 如:1234|1234”, #信息图标 + #确认钮, “提示”)
.如果结束
我的文件如何实现自动读取,并且导出进列表框呢?
在哪里添加文本路径呢?
我的账号,和密码,位于1.2和1.3
麻烦说的详细些,不是太明白
另外给你再写一个导入导出历程,希望你先看懂。。这个都没弄懂,怎么看懂自动读取。。。