易语言使用超文本显示新浪天气预报的代码

常量数据表

.版本 2
.常量 v1, "<文本长度: 24>", , <p class="inx_w_city_c">
.常量 K, "<文本长度: 8>", , url=http
.常量 J, "<文本长度: 47>", , <a href="http://share.sina.cn/callback?content=
.常量 v2, "<文本长度: 5>", , </p>

利用超文本显示新浪天气预报

此功能需要加载精易模块5.6

.版本 2
.支持库 iext
.程序集 窗口程序集1
.程序集变量 wangzhi, 文本型
.程序集变量 as, 文本型
.子程序 __启动窗口_创建完毕
获取天气 ()
.子程序 获取天气
.局部变量 B2, 文本型
.局部变量 C2, 文本型
.局部变量 sj, 文本型
.局部变量 ydm, 文本型
wangzhi ＝ “http://weather1.sina.cn/?ttp=n13&pos=108&vt=4”
ydm ＝ 到文本 (网页_访问 (wangzhi))
.如果 (取文本长度 (到文本 (取小时 (取现行时间 ()))) ＝ 1)
  B2 ＝ “0” ＋ 到文本 (取小时 (取现行时间 ()))
.否则
  B2 ＝ 到文本 (取小时 (取现行时间 ()))
.如果结束
.如果 (取文本长度 (到文本 (取分钟 (取现行时间 ()))) ＝ 1)
  C2 ＝ “:0” ＋ 到文本 (取分钟 (取现行时间 ()))
.否则
  C2 ＝ “:” ＋ 到文本 (取分钟 (取现行时间 ()))
.如果结束
sj ＝ B2 ＋ C2
透明标签_定位.标题 ＝ 到文本 (编码_URL解码 (文本_取出中间文本 (ydm, #v1, #v2), 真)) ＋ “ ” ＋ sj
as ＝ 到文本 (编码_URL解码 (ydm, 真))
as ＝ 文本_替换 (as, , , , “+”, “ ”, “-”, “ ”)
透明标签_天气情况.标题 ＝ 文本_取出中间文本 (as, #J, #K)

运行结果：

总结

以上就是这篇文章的全部内容了，希望本文的内容对大家的学习或者工作具有一定的参考学习价值，谢谢大家对呐喊教程的支持。如果你想了解更多相关内容请查看下面相关链接

声明：本文内容来源于网络，版权归原作者所有，内容由互联网用户自发贡献自行上传，本网站不拥有所有权，未作人工编辑处理，也不承担相关法律责任。如果您发现有涉嫌版权的内容，欢迎发送邮件至：notice#nhooo.com（发邮件时，请将#更换为@）进行举报，并提供相关证据，一经查实，本站将立刻删除涉嫌侵权内容。