易语言png素材采集下载例程源码

易语言png素材采集下载例程源码

@pjtwan

.版本 2
.支持库 iext
.支持库 internet
.支持库 eAPI

.程序集 窗口程序集_启动窗口, , , ' 本源码来自三叶资源网(www.sanye.cx)

.子程序 _按钮_开始采集_被单击
.局部变量 局_网址, 文本型
.局部变量 局_结果, 文本型
.局部变量 正则_取链接, 正则表达式类
.局部变量 正则_取图片1, 正则表达式类
.局部变量 正则_取图片2, 正则表达式类
.局部变量 i, 整数型, , , ' 本源码来自三叶资源网(www.sanye.cx)
.局部变量 取到的链接, 文本型
.局部变量 正确的地址, 文本型
.局部变量 j, 整数型
.局部变量 保存路径, 文本型
.局部变量 文件名称, 文本型
.局部变量 翻译的结果, 文本型
.局部变量 第一次取到的文本, 文本型

状态条1.置文本 (1, “正在采集...”)
局_网址 ＝ “http://pngimg.com/letter/” ＋ 组合框1.取项目文本 (组合框1.现行选中项)
局_结果 ＝ 到文本 (编码_编码转换对象 (网页_访问_对象 (局_网址, 1, , , , , , , , , , , , , , , ), , , ))
正则_取链接.创建 (#正则取链接, 局_结果, , , , )
创建目录 (取运行目录 () ＋ “图库下载\” ＋ 组合框1.取项目文本 (组合框1.现行选中项))
保存路径 ＝ 取运行目录 () ＋ “图库下载\” ＋ 组合框1.取项目文本 (组合框1.现行选中项) ＋ “”
.计次循环首 (正则_取链接.取匹配数量 (), i)
    系统_处理事件 ()
    标签_当前采集名称.标题 ＝ 正则_取链接.取子匹配文本 (i, 2, )
    进度条_总进度.最大位置 ＝ 正则_取链接.取匹配数量 ()
    进度条_总进度.位置 ＝ i
    翻译的结果 ＝ 网页_文字翻译 (正则_取链接.取子匹配文本 (i, 2, ))
    翻译的结果 ＝ 取文本左边 (翻译的结果, 取文本长度 (翻译的结果) － 1)
    .判断开始 (翻译的结果 ＝ “”)
        文件名称 ＝ 正则_取链接.取子匹配文本 (i, 2, ) ＋ “【” ＋ 正则_取链接.取子匹配文本 (i, 3, ) ＋ “】”
    .默认
        文件名称 ＝ 翻译的结果 ＋ “【” ＋ 正则_取链接.取子匹配文本 (i, 3, ) ＋ “】”
    .判断结束
    创建目录 (保存路径 ＋ 文件名称)
    程序_延时 (50, )
    取到的链接 ＝ 正则_取链接.取子匹配文本 (i, 1, )
    正确的地址 ＝ 编辑框_主页.内容 ＋ “/imgs” ＋ 取到的链接
    局_结果 ＝ 到文本 (编码_编码转换对象 (网页_访问_对象 (正确的地址, 1, , , , , , , , , , , , , , , ), , , ))
    正则_取图片1.创建 (#正则取图片1, 局_结果, , , , )
    第一次取到的文本 ＝ 正则_取图片1.取子匹配文本 (1, 1, )
    正则_取图片2.创建 (#正则取图片2, 第一次取到的文本, , , , )
    .计次循环首 (正则_取图片2.取匹配数量 (), j)
        系统_处理事件 ()
        进度条_当前进度.最大位置 ＝ 正则_取图片2.取匹配数量 ()
        进度条_当前进度.位置 ＝ j
        取到的链接 ＝ 正则_取图片2.取子匹配文本 (j, 1, )
        正确的地址 ＝ 编辑框_主页.内容 ＋ 取到的链接
        写到文件 (保存路径 ＋ 文件名称 ＋ “” ＋ 到文本 (j) ＋ “.png”, HTTP读文件 (正确的地址))
        程序_延时 (100, )
    .计次循环尾 ()
.计次循环尾 ()
状态条1.置文本 (1, “采集完成...”)
提示框 (“采集完成。”, , “温馨提示：”, , )


.子程序 __启动窗口_创建完毕

创建目录 (取运行目录 () ＋ “图库下载”)



.子程序 _超级链接框_打开主页_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

打开指定网址 (编辑框_主页.内容)