相册内图片批量下载软件

本易语言例程还使用到易语言特殊功能支持库、操作系统界面功能支持库和扩展界面支持库。

重画项目 (取表项索引 (纵向位置))
.如果真 (取表项索引 (纵向位置) ＝ 0)
返回 ()
.如果真结束
a ＝ 截取文本1 (全文, 店铺分类 [取表项索引 (纵向位置)], “分类结束”)
fg ＝ 分割文本 (a, #换行符, )
重定义数组 (店铺网址数组, 假, 0)
重定义数组 (店铺名数组, 假, 0)
列表框1.清空 ()
.计次循环首 (取数组成员数 (fg), i)
.如果真 (fg [i] ≠ “”)
fg2 ＝ 分割文本 (fg [i], “=”, )
列表框1.加入项目 (fg2 [1], )
加入成员 (店铺名数组, fg2 [1])
加入成员 (店铺网址数组, fg2 [2])
.如果真结束

.计次循环尾 ()
调试输出 (i, 取数组成员数 (fg), 列表框1.取项目数 ())
店铺网址数 ＝ 取数组成员数 (fg) － 1