网站建设资讯

NEWS

网站建设资讯

易语言如何调用墨迹天气实现自动定位获取天气情况的代码

这篇文章主要介绍了易语言如何调用墨迹天气实现自动定位获取天气情况的代码,具有一定借鉴价值,感兴趣的朋友可以参考下,希望大家阅读完这篇文章之后大有收获,下面让小编带着大家一起了解一下。

创新互联公司从2013年创立,是专业互联网技术服务公司,拥有项目成都网站设计、成都做网站网站策划,项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命,1280元涿鹿做网站,已为上家服务,为涿鹿各地企业和个人服务,联系电话:13518219792

常量数据表

.版本 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
_启动窗口.标题 = 城市实况

运行结果:

易语言如何调用墨迹天气实现自动定位获取天气情况的代码

感谢你能够认真阅读完这篇文章,希望小编分享的“易语言如何调用墨迹天气实现自动定位获取天气情况的代码”这篇文章对大家有帮助,同时也希望大家多多支持创新互联,关注创新互联行业资讯频道,更多相关知识等着你来学习!


文章题目:易语言如何调用墨迹天气实现自动定位获取天气情况的代码
分享路径:http://cdweb.net/article/pegcci.html