易語言爬取中國天氣預報網的圖片

易語言爬取中國天氣預報網的圖片

.版本 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)
        跳出循環 ()

    .如果真結束

.計次循環尾 ()