E语言常用代码-导入QQ/密码

.版本 2
.支持库 iext
.子程序 _按钮_导入_被单击
.局部变量 临时文本, 文本型
.局部变量 文件号, 整数型
.局部变量 特征字符, 文本型
.局部变量 临时文本数组, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 QQ号数组, 文本型, , "0"
.局部变量 临时句柄, 整数型
通用对话框1.过滤器 ＝ “文本文件|*.txt”
通用对话框1.打开 ()
特征字符 ＝ “----”
.如果真 (通用对话框1.文件名 ≠ “”)
    文件号 ＝ 打开文件 (通用对话框1.文件名, , )
    临时文本 ＝ 读入文本 (文件号, )
    关闭文件 (文件号)
.如果真结束
.如果 (寻找文本 (临时文本, 特征字符, , 假) ≠ -1)
    临时文本数组 ＝ 分割文本 (临时文本, #换行符, )
    .计次循环首 (取数组成员数 (临时文本数组), i)
        QQ号数组 ＝ 分割文本 (临时文本数组 [i], 特征字符, )
        临时句柄 ＝ 超级列表框1.插入表项 (, QQ号数组 [1], , , , )
        超级列表框1.置标题 (临时句柄, 1, QQ号数组 [2])
    .计次循环尾 ()
.否则
    信息框 (“文本内容格式应为:QQ号----QQ密码”, #信息图标 ＋ #确认钮, “提示”)
.如果结束