欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

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

 更新時間:2018年11月23日 16:31:45   作者:易語言源碼教程  
今天小編就為大家分享一篇關(guān)于易語言調(diào)用墨跡天氣實(shí)現(xiàn)自動定位獲取天氣情況的代碼,小編覺得內(nèi)容挺不錯的,現(xiàn)在分享給大家,具有很好的參考價值,需要的朋友一起跟隨小編來看看吧

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

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

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

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

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

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

總結(jié)

以上就是這篇文章的全部內(nèi)容了,希望本文的內(nèi)容對大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價值,謝謝大家對腳本之家的支持。如果你想了解更多相關(guān)內(nèi)容請查看下面相關(guān)鏈接

相關(guān)文章

  • 易語言修改IE瀏覽器主頁方法

    易語言修改IE瀏覽器主頁方法

    在本文里給大家介紹的是關(guān)于易語言修改IE瀏覽器主頁方法內(nèi)容,需要的可以測試下。
    2018-12-12
  • 易語言將進(jìn)度條當(dāng)前進(jìn)度顯示出來的方法

    易語言將進(jìn)度條當(dāng)前進(jìn)度顯示出來的方法

    今天小編就為大家分享一篇關(guān)于易語言將進(jìn)度條當(dāng)前進(jìn)度顯示出來的方法,小編覺得內(nèi)容挺不錯的,現(xiàn)在分享給大家,具有很好的參考價值,需要的朋友一起跟隨小編來看看吧
    2018-11-11
  • 易語言實(shí)現(xiàn)截圖或右鍵二維碼識別的代碼

    易語言實(shí)現(xiàn)截圖或右鍵二維碼識別的代碼

    今天小編就為大家分享一篇關(guān)于易語言實(shí)現(xiàn)截圖或右鍵二維碼識別的代碼,小編覺得內(nèi)容挺不錯的,現(xiàn)在分享給大家,具有很好的參考價值,需要的朋友一起跟隨小編來看看吧
    2018-11-11
  • 易語言圖形按鈕組件切換類型使用講解

    易語言圖形按鈕組件切換類型使用講解

    今天小編就為大家分享一篇關(guān)于易語言圖形按鈕組件切換類型使用講解,小編覺得內(nèi)容挺不錯的,現(xiàn)在分享給大家,具有很好的參考價值,需要的朋友一起跟隨小編來看看吧
    2018-11-11
  • 易語言顯示所選擇文件完整路徑的方法

    易語言顯示所選擇文件完整路徑的方法

    今天小編就為大家分享一篇關(guān)于易語言顯示所選擇文件完整路徑的方法,小編覺得內(nèi)容挺不錯的,現(xiàn)在分享給大家,具有很好的參考價值,需要的朋友一起跟隨小編來看看吧
    2018-11-11
  • 易語言獲取漢字發(fā)音數(shù)目和拼音并取聲母和韻母

    易語言獲取漢字發(fā)音數(shù)目和拼音并取聲母和韻母

    今天小編就為大家分享一篇關(guān)于易語言獲取漢字發(fā)音數(shù)目和拼音并取聲母和韻母,小編覺得內(nèi)容挺不錯的,現(xiàn)在分享給大家,具有很好的參考價值,需要的朋友一起跟隨小編來看看吧
    2018-11-11
  • 關(guān)于易語言中“如果”命令詳解

    關(guān)于易語言中“如果”命令詳解

    在本篇文章給大家分享了關(guān)于易語言中“如果”命令詳解內(nèi)容,有興趣的朋友們可以參考下。
    2020-03-03
  • 易語言打開文件件網(wǎng)頁的方法

    易語言打開文件件網(wǎng)頁的方法

    在本篇內(nèi)容里小編給大家分享了關(guān)于易語言打開文件件網(wǎng)頁的方法,有需要的讀者們參考下。
    2018-11-11
  • 易語言word密碼暴力破解器簡易版

    易語言word密碼暴力破解器簡易版

    今天小編就為大家分享一篇關(guān)于易語言word密碼暴力破解器簡易版,小編覺得內(nèi)容挺不錯的,現(xiàn)在分享給大家,具有很好的參考價值,需要的朋友一起跟隨小編來看看吧
    2018-11-11
  • 易語言獲取開機(jī)時間dll代碼

    易語言獲取開機(jī)時間dll代碼

    在本篇內(nèi)容里小編給大家分享的是關(guān)于易語言獲取開機(jī)時間dll代碼的實(shí)例內(nèi)容,需要的朋友們參考下。
    2018-12-12

最新評論