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

今天小编就为大家分享一篇关于易语言使用超文本显示新浪天气预报的代码，小编觉得内容挺不错的，现在分享给大家，具有很好的参考价值，需要的朋友一起跟随小编来看看吧

常量数据表

				?

									.版本 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)