.版本 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, 文本型
.子程序 __啟動窗口_創(chuàng)建完畢
獲取天氣 ()
.子程序 獲取天氣
.局部變量 B2, 文本型
.局部變量 C2, 文本型
.局部變量 sj, 文本型
.局部變量 ydm, 文本型
wangzhi ＝ “http://weather1.sina.cn/?ttp=n13&pos=108&vt=4”
ydm ＝ 到文本 (網(wǎng)頁_訪問 (wangzhi))
.如果 (取文本長度 (到文本 (取小時 (取現(xiàn)行時間 ()))) ＝ 1)
  B2 ＝ “0” ＋ 到文本 (取小時 (取現(xiàn)行時間 ()))
.否則
  B2 ＝ 到文本 (取小時 (取現(xiàn)行時間 ()))
.如果結束
.如果 (取文本長度 (到文本 (取分鐘 (取現(xiàn)行時間 ()))) ＝ 1)
  C2 ＝ “:0” ＋ 到文本 (取分鐘 (取現(xiàn)行時間 ()))
.否則
  C2 ＝ “:” ＋ 到文本 (取分鐘 (取現(xiàn)行時間 ()))
.如果結束
sj ＝ B2 ＋ C2
透明標簽_定位.標題 ＝ 到文本 (編碼_URL解碼 (文本_取出中間文本 (ydm, #v1, #v2), 真)) ＋ “ ” ＋ sj
as ＝ 到文本 (編碼_URL解碼 (ydm, 真))
as ＝ 文本_替換 (as, , , , “+”, “ ”, “-”, “ ”)
透明標簽_天氣情況.標題 ＝ 文本_取出中間文本 (as, #J, #K)

運行結果：