|
发表于 2012-4-5 16:24:25
|
显示全部楼层
山西省大同市
[e].版本 2
.支持库 iext
.子程序 _按钮1_被单击
.局部变量 数组, 文本型, , "0"
.局部变量 帐号密码, 文本型, , "2"
.局部变量 总数, 整数型
.局部变量 a, 整数型
.局部变量 表项索引, 整数型
.局部变量 是否存在, 逻辑型
.局部变量 i, 整数型
通用对话框1.初始目录 = 取运行目录 ()
通用对话框1.打开 ()
数组 = 分割文本 (到文本 (读入文件 (通用对话框1.文件名)), #换行符, )
总数 = 取数组成员数 (数组)
.计次循环首 (总数, a)
帐号密码 = 分割文本 (数组 [a], “----”, )
.如果真 (取数组成员数 (帐号密码) = 2)
.计次循环首 (超级列表框1.取表项数 (), i)
.如果 (超级列表框1.取标题 (i - 1, 1) = 帐号密码 [1])
是否存在 = 真
跳出循环 ()
.否则
是否存在 = 假
.如果结束
.计次循环尾 ()
.如果真 (是否存在 = 假)
表项索引 = 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (表项索引, 0, 到文本 (超级列表框1.取表项数 ()))
超级列表框1.置标题 (表项索引, 1, 帐号密码 [1])
超级列表框1.置标题 (表项索引, 2, 帐号密码 [2])
.如果真结束
.如果真结束
.计次循环尾 ()
[/e] |
评分
-
参与人数 1 | 荣誉 +1 |
收起
理由
|
笨潴
| + 1 |
热心帮助他人,荣誉+1,希望继续努力(*^__^. |
查看全部评分
|