第④期十五课图片采集

时光海苔

每日一贴：图片采集。

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
图片目录名称	文本型

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
正则	正则表达式类

目录是否存在 (取运行目录 () ＋ “/图片采集”)
' https://www.27270.com/ent/meinvtupian/
正则.创建 (“https://www.27270.com/[a-z]+/[a-z]+/”, 编辑框1.内容)
判断 (正则.取匹配数量 () ≠ 1)
信息框 (“采集地址不正确,例子:https://www.27270.com/ent/meinvtupian/”, 0, , )
获取列表页数 (编辑框1.内容)

子程序名	返回值类型	公开	备 注
获取列表页数
参数名	类 型	参考	可空	数组	备 注
链接	文本型

变量名	类 型	静态	数组	备 注
返回数据	文本型
正则	正则表达式类
总页数	整数型
n	整数型

返回数据 ＝ 到文本 (网页_访问_对象 (链接))
正则.创建 ( #列表总页数, 返回数据, )
总页数 ＝ 到整数 (正则.取子匹配文本 (1, 2))
' 调试输出 (链接 ＋ “list_” ＋ 正则.取子匹配文本 (1, 1) ＋ “_” ＋ 到文本 (1))
计次循环首 (总页数, n)
_启动窗口.标题 ＝ “当前正在采集第” ＋ 到文本 (n) ＋ “页,一共” ＋ 到文本 (总页数) ＋ “页”
开始采集 (链接 ＋ “list_” ＋ 正则.取子匹配文本 (1, 1) ＋ “_” ＋ 到文本 (n) ＋ “.html”)
计次循环尾 ()

子程序名	返回值类型	公开	备 注
开始采集
参数名	类 型	参考	可空	数组	备 注
采集地址	文本型

变量名	类 型	静态	数组	备 注
访问链接	文本型
正则	正则表达式类
返回数据	文本型
n	整数型
图片链接	文本型

返回数据 ＝ 到文本 (网页_访问_对象 (采集地址))
' 1是链接 2是名称
正则.创建 ( #列表正则, 返回数据, , )
计次循环首 (正则.取匹配数量 (), n)
' /ent/meinvtupian/2019/313984.html
图片链接 ＝ 正则.取子匹配文本 (n, 1)
图片目录名称 ＝ 正则.取子匹配文本 (n, 2)
目录是否存在 (取运行目录 () ＋ “/图片采集/” ＋ 图片目录名称)
图片详情 (“https://www.27270.com” ＋ 图片链接)
' 调试输出 (图片名称, 图片链接)
计次循环尾 ()

子程序名	返回值类型	公开	备 注
图片详情
参数名	类 型	参考	可空	数组	备 注
链接	文本型

变量名	类 型	静态	数组	备 注
返回数据	文本型
正则	正则表达式类
总页数	文本型
n	整数型
临时链接	文本型

返回数据 ＝ 到文本 (网页_访问_对象 (链接))
正则.创建 ( #匹配总页数, 返回数据, , )
总页数 ＝ 正则.取子匹配文本 (1, 1)
' 调试输出 (总页数)
计次循环首 (到整数 (总页数), n)
临时链接 ＝ 文本_取左边 (链接, “.html”, , ) ＋ “_” ＋ 到文本 (n) ＋ “.html”
' 调试输出 (临时链接)
状态条1.清空 ()
状态条1.加入栏目 (“正在采集:” ＋ 临时链接, -1, , , )
返回数据 ＝ 到文本 (网页_访问_对象 (临时链接))
正则.创建 ( #匹配图片地址, 返回数据)
' 调试输出 (正则.取子匹配文本 (1, 1))
' [img]https://t1.hddhhn.com/uploads/tu/201901/445/1.jpg[/img]
下载图片 (正则.取子匹配文本 (1, 1))
程序_延时 (1000)
计次循环尾 ()
' 调试输出 (总页数)

子程序名	返回值类型	公开	备 注
目录是否存在
参数名	类 型	参考	可空	数组	备 注
路径	文本型

判断 (目录_是否存在 (路径) ＝ 假)
目录_创建 (路径)

子程序名	返回值类型	公开	备 注
下载图片
参数名	类 型	参考	可空	数组	备 注
图片链接	文本型

变量名	类 型	静态	数组	备 注
图片名称	文本型

图片名称 ＝ 文本_取右边 (图片链接, “/”, )
写到文件 (取运行目录 () ＋ “/图片采集/” ＋ 图片目录名称 ＋ “/” ＋ 图片名称, HTTP读文件 (图片链接))

i支持库列表	支持库注释
iext	扩展界面支持库一
internet	互联网支持库

.版本 2<br /> .支持库 iext<br /> .支持库 internet<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 图片目录名称, 文本型<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 正则, 正则表达式类<br /> <br /> 目录是否存在 (取运行目录 () ＋ “/图片采集”)<br /> ' https://www.27270.com/ent/meinvtupian/<br /> 正则.创建 (“https://www.27270.com/[a-z]+/[a-z]+/”, 编辑框1.内容)<br /> .判断开始 (正则.取匹配数量 () ≠ 1)<br />     信息框 (“采集地址不正确,例子:https://www.27270.com/ent/meinvtupian/”, 0, , )<br /> .默认<br />     获取列表页数 (编辑框1.内容)<br /> .判断结束<br /> <br /> <br /> .子程序 获取列表页数<br /> .参数 链接, 文本型<br /> .局部变量 返回数据, 文本型<br /> .局部变量 正则, 正则表达式类<br /> .局部变量 总页数, 整数型<br /> .局部变量 n, 整数型<br /> <br /> 返回数据 ＝ 到文本 (网页_访问_对象 (链接))<br /> 正则.创建 (#列表总页数, 返回数据, )<br /> 总页数 ＝ 到整数 (正则.取子匹配文本 (1, 2))<br /> ' 调试输出 (链接 ＋ “list_” ＋ 正则.取子匹配文本 (1, 1) ＋ “_” ＋ 到文本 (1))<br /> .计次循环首 (总页数, n)<br />     _启动窗口.标题 ＝ “当前正在采集第” ＋ 到文本 (n) ＋ “页,一共” ＋ 到文本 (总页数) ＋ “页”<br />     开始采集 (链接 ＋ “list_” ＋ 正则.取子匹配文本 (1, 1) ＋ “_” ＋ 到文本 (n) ＋ “.html”)<br /> .计次循环尾 ()<br /> <br /> .子程序 开始采集<br /> .参数 采集地址, 文本型<br /> .局部变量 访问链接, 文本型<br /> .局部变量 正则, 正则表达式类<br /> .局部变量 返回数据, 文本型<br /> .局部变量 n, 整数型<br /> .局部变量 图片链接, 文本型<br /> <br /> <br /> 返回数据 ＝ 到文本 (网页_访问_对象 (采集地址))<br /> ' 1是链接 2是名称<br /> 正则.创建 (#列表正则, 返回数据, , )<br /> .计次循环首 (正则.取匹配数量 (), n)<br />     ' /ent/meinvtupian/2019/313984.html<br />     图片链接 ＝ 正则.取子匹配文本 (n, 1)<br />     图片目录名称 ＝ 正则.取子匹配文本 (n, 2)<br />     目录是否存在 (取运行目录 () ＋ “/图片采集/” ＋ 图片目录名称)<br />     图片详情 (“https://www.27270.com” ＋ 图片链接)<br />     ' 调试输出 (图片名称, 图片链接)<br /> <br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 图片详情<br /> .参数 链接, 文本型<br /> .局部变量 返回数据, 文本型<br /> .局部变量 正则, 正则表达式类<br /> .局部变量 总页数, 文本型<br /> .局部变量 n, 整数型<br /> .局部变量 临时链接, 文本型<br /> <br /> <br /> <br /> 返回数据 ＝ 到文本 (网页_访问_对象 (链接))<br /> 正则.创建 (#匹配总页数, 返回数据, , )<br /> 总页数 ＝ 正则.取子匹配文本 (1, 1)<br /> ' 调试输出 (总页数)<br /> .计次循环首 (到整数 (总页数), n)<br />     临时链接 ＝ 文本_取左边 (链接, “.html”, , ) ＋ “_” ＋ 到文本 (n) ＋ “.html”<br />     ' 调试输出 (临时链接)<br />     状态条1.清空 ()<br />     状态条1.加入栏目 (“正在采集:” ＋ 临时链接, -1, , , )<br />     返回数据 ＝ 到文本 (网页_访问_对象 (临时链接))<br />     正则.创建 (#匹配图片地址, 返回数据)<br />     ' 调试输出 (正则.取子匹配文本 (1, 1))<br />     ' <img id="aimg_IZV2U" onclick="zoom(this, this.src, 0, 0, 0)" class="zoom" src="https://t1.hddhhn.com/uploads/tu/201901/445/1.jpg" onmouseover="img_onmouseoverfunc(this)" lazyloadthumb="1" border="0" alt="" /><br />     下载图片 (正则.取子匹配文本 (1, 1))<br />     程序_延时 (1000)<br /> .计次循环尾 ()<br /> ' 调试输出 (总页数)<br /> <br /> <br /> <br /> <br /> .子程序 目录是否存在<br /> .参数 路径, 文本型<br /> <br /> .判断开始 (目录_是否存在 (路径) ＝ 假)<br />     目录_创建 (路径)<br /> .默认<br /> <br /> .判断结束<br /> <br /> <br /> .子程序 下载图片<br /> .参数 图片链接, 文本型<br /> .局部变量 图片名称, 文本型<br /> <br /> 图片名称 ＝ 文本_取右边 (图片链接, “/”, )<br /> 写到文件 (取运行目录 () ＋ “/图片采集/” ＋ 图片目录名称 ＋ “/” ＋ 图片名称, HTTP读文件 (图片链接))

使用技术总结：正则，创建目录，文本操作，
ps：调用了精易模块，不做上传，刚学，欢迎大神批评

噢噢

支持开源~！感谢分享

一粒红尘

营养不良！！！！！！！

流年梦

容我先喝瓶营养快线....

Catch腾大仙

看到等着挨踢

YLJK

6666666666666666

时光海苔

易生易世520 发表于 2019-1-26 15:56
哪里的课这是?  是精易的培.......训...........班的课吗.

是的.这是作业

时光海苔

a123456789aa 发表于 2019-1-27 10:34
老哥，这是什么课程啊，有视屏吗

精易培训课程作业

zas

学习正则！！！！

a123456789aa

老哥，这是什么课程啊，有视屏吗