.版本 2
.支持库 iext
.支持库 spec
.子程序 _按钮_导入_被单击
.局部变量 原始文本, 文本型
.局部变量 文本数组, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 账号内容, 文本型, , "0"
.局部变量 索引, 整数型
_启动窗口.超级列表框1.全部删除 ()
原始文本 = 读入文本 (打开文件 (取运行目录 () + “/账号/” + 组合框_账号名.内容 + “.txt”, #读入, ), )
调试输出 (原始文本)
文本数组 = 分割文本 (原始文本, #换行符, )
调试输出 (文本数组)
.计次循环首 (取数组成员数 (文本数组), i)
账号内容 = 分割文本 (文本数组 [i], “|”, )
索引 = _启动窗口.超级列表框1.插入表项 (, , , , , )
_启动窗口.超级列表框1.置标题 (索引, 0, 到文本 (索引 + 1))
_启动窗口.超级列表框1.置标题 (索引, 1, 账号内容 [1])
_启动窗口.超级列表框1.置标题 (索引, 2, 账号内容 [2])
_启动窗口.超级列表框1.置标题 (索引, 5, 账号内容 [4])
' _启动窗口.超级列表框1.置状态图片 (i - 1, 选择 (_启动窗口.超级列表框1.取当前状态图片 (i - 1) = 0, 1, 0))
_启动窗口.超级列表框1.置状态图片 (i - 1, 1) ' 1为默认选中
_启动窗口.超级列表框1.置标题 (索引, 3, 账号内容 [3])
.如果真 (取数组成员数 (账号内容) > 4)
_启动窗口.超级列表框1.置标题 (索引, 6, 账号内容 [5])
.如果真结束
.计次循环尾 ()
清除数组 (文本数组)
|