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

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

.版本 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)跳出循环 ().如果真结束.计次循环尾 ()