.支持庫 iext
.支持庫 spec
.子程序 載入賬號, 邏輯型
.局部變量 文件名, 文本型, , , 文件名是中文 就要用文本型
.局部變量 文件號, 整數型, , , 文件號是數值 就用整數型
.局部變量 文本行, 文本型, , , 文本行就是text文件每行的內容當然用文本型
.局部變量 賬號信息, 文本型, , "2", 賬號可能是中文 也可能是英文 就用文本型
.局部變量 當前行, 整數型, , , 行號當然是整數型
.局部變量 i
.局部變量 x
.局部變量 b
.局部變量 a, 文本型
.局部變量 c
.局部變量 e
通用對話框1.類型 ＝ 0
通用對話框1.過濾器 ＝ “文本文件(*.txt)|*.txt|所有文件(*.*)|*.*”
通用對話框1.初始目錄 ＝ 取運行目錄 () ＋ “\賬號”
.如果真 (通用對話框1.打開 () ＝ 假)
返回 (假)
.如果真結束
超級列表框2.全部刪除 () ' 清空超級列表框 不想清空就刪除這句
文件名 ＝ 通用對話框1.文件名
b ＝ 倒找文本 (文件名, “\”, , 假)
a ＝ 文件名
c ＝ 取文本長度 (a)
.判斷循環首 (b ≠ -1)
b ＝ 倒找文本 (a, “\”, , 假)
c ＝ 取文本長度 (a)
a ＝ 取文本右邊 (a, c － b)
調試輸出 (a)
.判斷循環尾 ()
b ＝ 倒找文本 (a, “.”, , 假)
a ＝ 取文本左邊 (a, b － 1)
調試輸出 (a)
寫配置項 (取運行目錄 () ＋ “\配置文件.ini”, “上次賬號”, “1”, a)
文件號 ＝ 打開文件 (文件名, #讀入, ) ' 讀取賬號密碼信息
.循環判斷首 ()
文本行 ＝ 讀入壹行 (文件號)
文本行 ＝ 子文本替換 (文本行, “，”, “,”, , , 真)
文本行 ＝ 子文本替換 (文本行, “=”, “,”, , , 真)
文本行 ＝ 子文本替換 (文本行, “*”, “,”, , , 真)
文本行 ＝ 子文本替換 (文本行, “ ”, “”, , , 真)
賬號信息 ＝ 分割文本 (文本行, “,”, ) ' 賬號TEXT格式為 賬號+4個空格 如（ 1 2）
x ＝ 取數組成員數 (賬號信息)
.如果真 (文本行 ≠ “” 且 x ＝ 2)
.如果真 (取數組成員數 (賬號信息) ≠ 2)
信息框 (“賬號密碼請用英文逗號隔開”, 0, “賬號密碼格式錯誤”)
返回 (假)
.如果真結束
i ＝ i ＋ 1
當前行 ＝ 超級列表框2.插入表項 (, 到文本 (i), , , , )
超級列表框2.置標題 (i － 1, 0, 刪首尾空 (賬號信息 [1])) ' 0代表超級列表框1第壹列， 1超級列表框1代表第1行第1列 註意 易語言默認第1列是0
超級列表框2.置標題 (i － 1, 1, 刪首尾空 (賬號信息 [2])) ' 1代超級列表框1表第2列 2代表超級列表框1第第1行2列 註意 易語言默認第1列是0
.如果真結束
.循環判斷尾 (是否在文件尾 (文件號, ) ＝ 假)
關閉文件 (文件號)
返回 (真)