|
楼主 |
发表于 2017-10-29 14:40:03
|
显示全部楼层
广东省中山市
.版本 2
.支持库 shell
.支持库 iext
.程序集 窗口程序集_启动窗口
.子程序 _按钮_导入账号_被单击
.局部变量 int, 整数型
.局部变量 文本, 文本型, , , 文本str
.局部变量 strs, 文本型, , "0"
.局部变量 账号, 文本型
.局部变量 密码, 文本型
.局部变量 索引, 整数型, , , 索引o
.局部变量 Cookie, 文本型
.局部变量 计次, 整数型
_启动窗口.通用对话框1.初始目录 = 取特定目录 (3) ' 3=系统桌面
_启动窗口.通用对话框1.标题 = “请选择欲导入的文本”
.如果真 (_启动窗口.通用对话框1.打开 () = 假)
返回 ()
.如果真结束
_启动窗口.按钮_导入账号.禁止 = 真
int = 打开文件 (_启动窗口.通用对话框1.文件名, 1, )
.如果真 (int = 0)
_启动窗口.按钮_导入账号.禁止 = 假
返回 ()
.如果真结束
.判断循环首 (是否在文件尾 (int, ) = 假)
文本 = 读入一行 (int)
' 文本 = 删全部空 (文本)
文本 = 删首尾空 (文本)
strs = 分割文本 (文本, “----”, )
.如果真 (取数组成员数 (strs) ≥ 2)
账号 = 删全部空 (strs [1])
密码 = 删全部空 (strs [2])
.如果真 (账号 ≠ “” 且 密码 ≠ “”)
索引 = _启动窗口.超级列表框1.插入表项 (, , , 0, , )
_启动窗口.超级列表框1.置标题 (索引, 0, 到文本 (索引 + 1))
_启动窗口.超级列表框1.置标题 (索引, 1, 账号)
_启动窗口.超级列表框1.置标题 (索引, 2, 密码)
处理事件 ()
.如果真结束
.如果真结束
.判断循环尾 ()
关闭文件 (int)
_启动窗口.按钮_导入账号.禁止 = 假
.子程序 _按钮_导出账号_被单击
|
|