常量數據表
.版本 2.常量 實況頭, "<文本長度: 9>".常量 實況尾, "<文本長度: 2>".常量 更新時間頭, "<文本長度: 28>".常量 更新時間尾, "<文本長度: 9>".常量 溫度頭, "<文本長度: 28>".常量 溫度尾, "<文本長度: 5>".常量 空氣質量頭, "<文本長度: 43>".常量 空氣質量尾, "<文本長度: 2>".常量 濕度頭, "<文本長度: 10>".常量 濕度尾, "<文本長度: 7>".常量 今日提示頭, "<文本長度: 43>".常量 今日提示尾, "<文本長度: 23>".常量 風向頭, "<文本長度: 26>".常量 風向尾, "<文本長度: 7>".常量 天氣頭, "<文本長度: 26>".常量 賣幫提醒頭, "<文本長度: 34>".常量 賣幫提醒尾, "<文本長度: 4>".常量 賣幫提醒頭1, "<文本長度: 8>".常量 賣幫提醒尾1, "<文本長度: 33>".常量 天氣尾, "<文本長度: 4>"
實時天氣自動定位源碼
此功能需要加載精易模塊5.6
.版本 2.支持庫 iconv.支持庫 internet.支持庫 iext.程序集 窗口程序集1.程序集變量 天氣, 文本型.程序集變量 城市實況, 文本型.程序集變量 更新時間, 文本型.程序集變量 溫度, 文本型.程序集變量 空氣質量, 文本型.程序集變量 濕度, 文本型.程序集變量 今日提示, 文本型.程序集變量 風向, 文本型.程序集變量 賣幫提醒, 文本型.程序集變量 賣幫提醒1, 文本型.程序集變量 今日天氣, 文本型.子程序 取文本_中間文本, 文本型, 公開.參數 參_被尋找文本, 文本型.參數 參_左邊文本, 文本型.參數 參_右邊文本, 文本型.局部變量 起點, 整數型.局部變量 終點, 整數型.局部變量 文本, 文本型起點 = 尋找文本 (參_被尋找文本, 參_左邊文本, , 假).判斷開始 (起點 = -1) 返回 (“”).默認 起點 = 起點 + 取文本長度 (參_左邊文本).判斷結束終點 = 尋找文本 (參_被尋找文本, 參_右邊文本, 起點, 假).判斷開始 (終點 = -1) 返回 (“”).默認 文本 = 取文本中間 (參_被尋找文本, 起點, 終點 - 起點) 返回 (文本).判斷結束.子程序 URL編碼, 文本型.參數 URL, 文本型.局部變量 Len, 整數型.局部變量 循環容器, 整數型.局部變量 Asc, 整數型.局部變量 目標, 文本型.局部變量 臨時, 文本型Len = 取文本長度 (URL).變量循環首 (1, Len, 1, 循環容器) Asc = 取代碼 (URL, 循環容器) Asc = 選擇 (Asc < 0, 256 + Asc, Asc) .如果 (Asc < 42 或 Asc = 43 或 Asc > 57 且 Asc < 64 或 Asc > 90 且 Asc < 95 或 Asc = 96 或 Asc > 122) 臨時 = 取十六進制文本 (Asc) 目標 = 目標 + 選擇 (取文本長度 (臨時) < 2, “%0” + 臨時, “%” + 臨時) .否則 目標 = 目標 + 字符 (Asc) .如果結束.變量循環尾 ()返回 (目標).子程序 _天氣時鐘_周期事件天氣 = 到文本 (編碼轉換 (HTTP讀文件 (“http://tianqi.moji.com/”), #編碼_UTF_8, #編碼_GB18030, ))城市實況 = 取文本_中間文本 (天氣, #實況頭, #實況尾)透明標簽1_城市.標題 = “城市:” + 城市實況更新時間 = 取文本_中間文本 (天氣, #更新時間頭, #更新時間尾)透明標簽1_更新時間.標題 = “更新時間:” + 更新時間溫度 = 取文本_中間文本 (天氣, #溫度頭, #溫度尾)透明標簽1_溫度.標題 = “溫度:” + 溫度 + “℃”空氣質量 = 取文本_中間文本 (天氣, #空氣質量頭, #空氣質量尾)透明標簽1_空氣質量.標題 = “空氣質量:” + 空氣質量濕度 = 取文本_中間文本 (天氣, #濕度頭, #濕度尾)透明標簽1_濕度.標題 = “濕度:” + 濕度今日提示 = 取文本_中間文本 (天氣, #今日提示頭, #今日提示尾)透明標簽1_今日提示.標題 = “今日提示:” + 今日提示風向 = 取文本_中間文本 (天氣, #風向頭, #風向尾)透明標簽1_風向.標題 = “風向:” + 風向 + “級”今日天氣 = 取文本_中間文本 (天氣, #天氣頭, #天氣尾)透明標簽1_今日天氣.標題 = “今日天氣:” + 今日天氣賣幫提醒 = 取文本_中間文本 (天氣, #賣幫提醒頭, #賣幫提醒尾)賣幫提醒1 = 取文本_中間文本 (天氣, #賣幫提醒頭1, #賣幫提醒尾1)透明標簽1_提醒.標題 = 賣幫提醒 + “賣幫小助手” + 賣幫提醒1_啟動窗口.標題 = 城市實況
運行結果:
總結
以上就是這篇文章的全部內容了,希望本文的內容對大家的學習或者工作具有一定的參考學習價值,謝謝大家對VeVb武林網的支持。
新聞熱點
疑難解答