易语言，超级列表框，如何自动导入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”, #信息图标 ＋ #确认钮, “提示”)

.如果结束