易语言爬取中国天气预报网的图片

易语言爬取中国天气预报网的图片

.版本 2

.子程序 天津雷达_爬取
.局部变量 雷达页面, 文本型
.局部变量 返回状态, 文本型
.局部变量 正则, 正则表达式类
.局部变量 循环计次, 整数型
.局部变量 图片地址, 文本型
.局部变量 ul, 文本型
.局部变量 是否写入, 逻辑型
.局部变量 result, 文本型, , "0"
.局部变量 name, 文本型


天津雷达url ＝ 编辑框2.内容
雷达页面 ＝ 获取请求结果 (天津雷达url)
ul ＝ 文本_取出中间文本 (雷达页面, “<ul id=” ＋ #引号 ＋ “mycarousel” ＋ #引号 ＋ “ class=” ＋ #引号 ＋ “jcarousel-skin-tango” ＋ #引号 ＋ “>”, “</ul>”, )
文本_取中间_批量 (ul, “data-original=” ＋ #引号, #引号, result, , , , , , , )

' 创建目录 (“D:\图片集\天津雷达”)
.计次循环首 (取数组成员数 (result), 循环计次)
    图片地址 ＝ result [循环计次]
    ' 调试输出 (“循环计次” ＋ 到文本 (循环计次))
    图片地址 ＝ 子文本替换 (图片地址, “small”, “medium”, , , 真)
    name ＝ 到文本 (循环计次) ＋ “.jpg”
    ' name ＝ 文本_取出中间文本 (图片地址, “_”, “?v=”, )
    ' 调试输出 (name ＋ “----图片名称-----”)

    是否写入 ＝ 写到文件 (编辑框7.内容 ＋ “/” ＋ name, 网页_访问 (图片地址, , , , , , , , , , , , ))
    ' 编辑框5.加入文本 (“  天津雷达图片：” ＋ name ＋ “  正在下载...” ＋ #换行符)
    .如果 (是否写入)
        编辑框5.加入文本 (到文本 (取现行时间 ()) ＋ “  天津雷达图片：” ＋ name ＋ “  下载成功” ＋ #换行符)
        ' 调试输出 (“保存成功！”)

    .否则
        编辑框5.加入文本 (到文本 (取现行时间 ()) ＋ “  天津雷达图片：” ＋ name ＋ “  下载失败” ＋ #换行符)
        ' 调试输出 (“保存失败！”)

    .如果结束

    .如果真 (循环计次 ＝ 9)
        跳出循环 ()

    .如果真结束

.计次循环尾 ()