易語(yǔ)言如何調(diào)用墨跡天氣實(shí)現(xiàn)自動(dòng)定位獲取天氣情況的代碼

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

常量數(shù)據(jù)表

.版本 2
.常量 實(shí)況頭, "<文本長(zhǎng)度: 9>"
.常量 實(shí)況尾, "<文本長(zhǎng)度: 2>"
.常量 更新時(shí)間頭, "<文本長(zhǎng)度: 28>"
.常量 更新時(shí)間尾, "<文本長(zhǎng)度: 9>"
.常量 溫度頭, "<文本長(zhǎng)度: 28>"
.常量 溫度尾, "<文本長(zhǎng)度: 5>"
.常量 空氣質(zhì)量頭, "<文本長(zhǎng)度: 43>"
.常量 空氣質(zhì)量尾, "<文本長(zhǎng)度: 2>"
.常量 濕度頭, "<文本長(zhǎng)度: 10>"
.常量 濕度尾, "<文本長(zhǎng)度: 7>"
.常量 今日提示頭, "<文本長(zhǎng)度: 43>"
.常量 今日提示尾, "<文本長(zhǎng)度: 23>"
.常量 風(fēng)向頭, "<文本長(zhǎng)度: 26>"
.常量 風(fēng)向尾, "<文本長(zhǎng)度: 7>"
.常量 天氣頭, "<文本長(zhǎng)度: 26>"
.常量 賣(mài)幫提醒頭, "<文本長(zhǎng)度: 34>"
.常量 賣(mài)幫提醒尾, "<文本長(zhǎng)度: 4>"
.常量 賣(mài)幫提醒頭1, "<文本長(zhǎng)度: 8>"
.常量 賣(mài)幫提醒尾1, "<文本長(zhǎng)度: 33>"
.常量 天氣尾, "<文本長(zhǎng)度: 4>"

實(shí)時(shí)天氣自動(dòng)定位源碼

此功能需要加載精易模塊5.6

.版本 2
.支持庫(kù) iconv
.支持庫(kù) internet
.支持庫(kù) iext
.程序集 窗口程序集1
.程序集變量 天氣, 文本型
.程序集變量 城市實(shí)況, 文本型
.程序集變量 更新時(shí)間, 文本型
.程序集變量 溫度, 文本型
.程序集變量 空氣質(zhì)量, 文本型
.程序集變量 濕度, 文本型
.程序集變量 今日提示, 文本型
.程序集變量 風(fēng)向, 文本型
.程序集變量 賣(mài)幫提醒, 文本型
.程序集變量 賣(mài)幫提醒1, 文本型
.程序集變量 今日天氣, 文本型
.子程序 取文本_中間文本, 文本型, 公開(kāi)
.參數(shù) 參_被尋找文本, 文本型
.參數(shù) 參_左邊文本, 文本型
.參數(shù) 參_右邊文本, 文本型
.局部變量 起點(diǎn), 整數(shù)型
.局部變量 終點(diǎn), 整數(shù)型
.局部變量 文本, 文本型
起點(diǎn) ＝ 尋找文本 (參_被尋找文本, 參_左邊文本, , 假)
.判斷開(kāi)始 (起點(diǎn) ＝ -1)
  返回 (“”)
.默認(rèn)
  起點(diǎn) ＝ 起點(diǎn) ＋ 取文本長(zhǎng)度 (參_左邊文本)
.判斷結(jié)束
終點(diǎn) ＝ 尋找文本 (參_被尋找文本, 參_右邊文本, 起點(diǎn), 假)
.判斷開(kāi)始 (終點(diǎn) ＝ -1)
  返回 (“”)
.默認(rèn)
  文本 ＝ 取文本中間 (參_被尋找文本, 起點(diǎn), 終點(diǎn) － 起點(diǎn))
  返回 (文本)
.判斷結(jié)束
.子程序 URL編碼, 文本型
.參數(shù) URL, 文本型
.局部變量 Len, 整數(shù)型
.局部變量 循環(huán)容器, 整數(shù)型
.局部變量 Asc, 整數(shù)型
.局部變量 目標(biāo), 文本型
.局部變量 臨時(shí), 文本型
Len ＝ 取文本長(zhǎng)度 (URL)
.變量循環(huán)首 (1, Len, 1, 循環(huán)容器)
  Asc ＝ 取代碼 (URL, 循環(huán)容器)
  Asc ＝ 選擇 (Asc ＜ 0, 256 ＋ Asc, Asc)
  .如果 (Asc ＜ 42 或 Asc ＝ 43 或 Asc ＞ 57 且 Asc ＜ 64 或 Asc ＞ 90 且 Asc ＜ 95 或 Asc ＝ 96 或 Asc ＞ 122)
    臨時(shí) ＝ 取十六進(jìn)制文本 (Asc)
    目標(biāo) ＝ 目標(biāo) ＋ 選擇 (取文本長(zhǎng)度 (臨時(shí)) ＜ 2, “%0” ＋ 臨時(shí), “%” ＋ 臨時(shí))
  .否則
    目標(biāo) ＝ 目標(biāo) ＋ 字符 (Asc)
  .如果結(jié)束
.變量循環(huán)尾 ()
返回 (目標(biāo))
.子程序 _天氣時(shí)鐘_周期事件
天氣 ＝ 到文本 (編碼轉(zhuǎn)換 (HTTP讀文件 (“http://tianqi.moji.com/”), #編碼_UTF_8, #編碼_GB18030, ))
城市實(shí)況 ＝ 取文本_中間文本 (天氣, #實(shí)況頭, #實(shí)況尾)
透明標(biāo)簽1_城市.標(biāo)題 ＝ “城市:” ＋ 城市實(shí)況
更新時(shí)間 ＝ 取文本_中間文本 (天氣, #更新時(shí)間頭, #更新時(shí)間尾)
透明標(biāo)簽1_更新時(shí)間.標(biāo)題 ＝ “更新時(shí)間:” ＋ 更新時(shí)間
溫度 ＝ 取文本_中間文本 (天氣, #溫度頭, #溫度尾)
透明標(biāo)簽1_溫度.標(biāo)題 ＝ “溫度:” ＋ 溫度 ＋ “℃”
空氣質(zhì)量 ＝ 取文本_中間文本 (天氣, #空氣質(zhì)量頭, #空氣質(zhì)量尾)
透明標(biāo)簽1_空氣質(zhì)量.標(biāo)題 ＝ “空氣質(zhì)量:” ＋ 空氣質(zhì)量
濕度 ＝ 取文本_中間文本 (天氣, #濕度頭, #濕度尾)
透明標(biāo)簽1_濕度.標(biāo)題 ＝ “濕度:” ＋ 濕度
今日提示 ＝ 取文本_中間文本 (天氣, #今日提示頭, #今日提示尾)
透明標(biāo)簽1_今日提示.標(biāo)題 ＝ “今日提示:” ＋ 今日提示
風(fēng)向 ＝ 取文本_中間文本 (天氣, #風(fēng)向頭, #風(fēng)向尾)
透明標(biāo)簽1_風(fēng)向.標(biāo)題 ＝ “風(fēng)向:” ＋ 風(fēng)向 ＋ “級(jí)”
今日天氣 ＝ 取文本_中間文本 (天氣, #天氣頭, #天氣尾)
透明標(biāo)簽1_今日天氣.標(biāo)題 ＝ “今日天氣:” ＋ 今日天氣
賣(mài)幫提醒 ＝ 取文本_中間文本 (天氣, #賣(mài)幫提醒頭, #賣(mài)幫提醒尾)
賣(mài)幫提醒1 ＝ 取文本_中間文本 (天氣, #賣(mài)幫提醒頭1, #賣(mài)幫提醒尾1)
透明標(biāo)簽1_提醒.標(biāo)題 ＝ 賣(mài)幫提醒 ＋ “賣(mài)幫小助手” ＋ 賣(mài)幫提醒1
_啟動(dòng)窗口.標(biāo)題 ＝ 城市實(shí)況

運(yùn)行結(jié)果：

感謝你能夠認(rèn)真閱讀完這篇文章，希望小編分享的“易語(yǔ)言如何調(diào)用墨跡天氣實(shí)現(xiàn)自動(dòng)定位獲取天氣情況的代碼”這篇文章對(duì)大家有幫助，同時(shí)也希望大家多多支持億速云，關(guān)注億速云行業(yè)資訊頻道，更多相關(guān)知識(shí)等著你來(lái)學(xué)習(xí)!