版本 2
.支持库 internet
.支持库 spec
.程序集 窗口程序集1
.程序集变量 号码, 文本型, , "7"
.子程序 __启动窗口_创建完毕
.子程序 _按钮1_被单击
.局部变量 网页文本, 文本型
.局部变量 文本, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 n, 整数型
网页文本 ＝ 到文本 (HTTP读文件 (“这里填写你要获取的页面地址”))
文本 ＝ 分割文本 (网页文本, #换行符, )
.计次循环首 (取数组成员数 (文本), i)
处理事件 ()
编辑框1.内容 ＝ “”
.如果真 (寻找文本 (文本 , “第几集”, , 假) ≠ -1)
调试输出 (文本 )
调试输出 (寻找文本 (文本 , “12064”, , 假))
标签1.标题 ＝ “福彩双色球第 ” ＋ 取文本中间 (文本 , 76, 5) ＋ “ 公告”
.如果真结束
.如果 (寻找文本 (文本 , “结果：”, , 假) ≠ -1)
.计次循环首 (7, n)
号码 [n] ＝ 文本 [i ＋ n]
调试输出 (号码 [n])
调试输出 (取文本中间 (号码 [n], 20, 2))
编辑框1.加入文本 (取文本中间 (号码 [n], 20, 2) ＋ “ ”)
编辑框1.加入文本 (取文本中间 (号码 [7], 22, 2))
.计次循环尾 ()
跳出循环 ()
.否则
编辑框1.加入文本 (“请稍等……”)
.如果结束
.计次循环尾 ()
