易语言_导入账号常用

.版本 2
.支持库 iext

.子程序 _导入账号_被选择
.局部变量 文本, 文本型
.局部变量 文本分割, 文本型, , "0"
.局部变量 x, 整数型
.局部变量 二次分割, 文本型, , "0"
.局部变量 tmp, 整数型

通用对话框1.过滤器 ＝ “文本文档|*.txt”
通用对话框1.打开 ()
文本 ＝ 到文本 (读入文件 (通用对话框1.文件名))
文本分割 ＝ 分割文本 (文本, #换行符, )
.计次循环首 (取数组成员数 (文本分割), x)
    二次分割 ＝ 分割文本 (文本分割 [x], “|”, )
    .如果真 (取数组成员数 (二次分割) ≥ 3)
        tmp ＝ 账号列表框.插入表项 (, , , , , )
        账号列表框.置标题 (tmp, 0, 到文本 (账号列表框.取表项数 ()))
        账号列表框.置标题 (tmp, 3, 二次分割 [1])
        账号列表框.置标题 (tmp, 2, 二次分割 [2])
        账号列表框.置标题 (tmp, 1, 二次分割 [3])
        .如果 (账号列表框.取表项数 () ＜ 到整数 (编辑框_账号位置.内容))
            账号列表框.置标题 (tmp, 4, “使用”)
        .否则
            账号列表框.置标题 (tmp, 4, “”)
        .如果结束

    .如果真结束

.计次循环尾 ()