|
楼主 |
发表于 2013-10-8 18:00:37
|
显示全部楼层
北京市北京市
- .版本 2
- .支持库 iext2
- .子程序 载入列表
- .局部变量 列表次数, 文本型, , "0"
- .局部变量 配置文件, 文本型
- .局部变量 循环次数, 整数型
- .局部变量 分组名, 文本型
- .局部变量 分组句柄, 整数型
- .局部变量 项目数据, QQ项目数据
- .局部变量 项目名称, 文本型
- .局部变量 备注, 文本型
- .局部变量 头像图片, 字节集
- .局部变量 图标索引, 整数型
- .局部变量 图片, 字节集
- .局部变量 个性签名, 文本型
- .局部变量 后缀名称, 文本型
- .局部变量 文本注册项, 文本型
- .局部变量 注册项图标, 文本型
- .局部变量 注册项图标位置, 整数型
- .局部变量 J, 文本型, , "2"
- 配置文件 = 取运行目录 () + “\config\set.ini”
- 列表次数 = 取配置节名 (配置文件)
- 图片 = #图片组
- .计次循环首 (取数组成员数 (列表次数), 循环次数)
- 分组名 = 读配置项 (配置文件, 到文本 (循环次数), “fl”, )
- 分组句柄 = 列表框.查找分组 (分组名)
- .如果真 (分组句柄 = 0)
- 分组句柄 = 列表框.添加分组 (分组名)
- .如果真结束
- 项目名称 = 读配置项 (配置文件, 到文本 (循环次数), “name”, )
- 备注 = 读配置项 (配置文件, 到文本 (循环次数), “path”, )
- .如果 (取文件内图标数 (备注) = 0)
- 头像图片 = 取图片组图片 (#图片组, 1, )
- .判断开始 (取文本左边 (备注, 4) = “http”) ' 网址
- 头像图片 = 取图片组图片 (#图片组, 0, )
- .默认
- .如果真 (位与 (取文件属性 (备注), 16) = 16) ' 文件夹
- 头像图片 = 取图片组图片 (#图片组, 2, )
- .如果真结束
- 后缀名称 = 取文本右边 (备注, 取文本长度 (备注) - 倒找文本 (备注, “.”, , 假))
- 文本注册项 = 取文本注册项 (#根类, “.” + 后缀名称 + “\”, )
- .如果真 (文本注册项 ≠ “”)
- 注册项图标 = 取文本注册项 (#根类, 文本注册项 + “\DefaultIcon\”, )
- 注册项图标 = 子文本替换 (注册项图标, #引号, , , , 真)
- 注册项图标位置 = 倒找文本 (注册项图标, “,”, , 假)
- .如果真 (注册项图标位置 ≠ -1)
- J [1] = 取文本左边 (注册项图标, 注册项图标位置 - 1)
- J [2] = 取文本右边 (注册项图标, 取文本长度 (注册项图标) - 注册项图标位置)
- .如果真 (文件是否存在 (J [1]) = 假)
- .如果真结束
- .如果真 (取文件内图标数 (J [1]) ≠ 0)
- 图标索引 = 提取加入图片 (图片, J [1], 到整数 (J [2]), )
- 头像图片 = 取图片组图片 (图片, 图标索引, )
- .如果真结束
- .如果真结束
- .如果真结束
- .判断结束
- .否则
- 图标索引 = 提取加入图片 (图片, 备注, , )
- 头像图片 = 取图片组图片 (图片, 图标索引, )
- .如果结束
- 个性签名 = 读配置项 (配置文件, 到文本 (循环次数), “help”, )
- .如果真 (个性签名 = “”)
- 个性签名 = 项目名称
- .如果真结束
- 项目数据.分组句柄 = 分组句柄
- 项目数据.QQ名称 = 项目名称
- 项目数据.头像图片数据 = 头像图片
- 项目数据.个性签名 = 个性签名
- 项目数据.备注信息 = 备注
- 项目数据.是否在线 = 真
- 列表框.添加项目 (项目数据, )
- .计次循环尾 ()
复制代码 |
|