易語言如何調用墨跡天氣實現自動定位獲取天氣情況的代碼

這篇文章主要介紹了易語言如何調用墨跡天氣實現自動定位獲取天氣情況的代碼，具有一定借鑒價值，感興趣的朋友可以參考下，希望大家閱讀完這篇文章之后大有收獲，下面讓小編帶著大家一起了解一下。

常量數據表

.版本 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
_啟動窗口.標題 ＝ 城市實況

運行結果：

感謝你能夠認真閱讀完這篇文章，希望小編分享的“易語言如何調用墨跡天氣實現自動定位獲取天氣情況的代碼”這篇文章對大家有幫助，同時也希望大家多多支持億速云，關注億速云行業資訊頻道，更多相關知識等著你來學習!