易语言使用超文本显示新浪天气预报的代码
常量数据表
.版本 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)
运行结果:
总结
以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对我们的支持。如果你想了解更多相关内容请查看下面相关链接
赞 (0)