.版本 2
.支持库 internet
.程序集 窗口程序集1
.程序集变量 开奖结果, 文本型
.程序集变量 文本长度, 整数型
.程序集变量 位置一, 整数型
.程序集变量 文本一, 文本型
.程序集变量 位置二, 整数型
.程序集变量 文本二, 文本型
.程序集变量 期位, 整数型
.程序集变量 号位, 整数型
.程序集变量 中奖号码, 文本型
.程序集变量 特码, 文本型
.程序集变量 码号, 整数型
.程序集变量 特码长度, 整数型
.程序集变量 颜色号, 整数型
.程序集变量 颜色, 文本型
.子程序 __启动窗口_创建完毕
文本分析 ()
编辑框1.内容 = 中奖期数 + 中奖号码 + “特号:” + 特码 + “ ” + 颜色
.子程序 文本分析
开奖结果 = 到文本 (HTTP读文件 (“
http://l.5v.hk:888/bm.htm”))
文本长度 = 取文本长度 (开奖结果)
位置一 = 寻找文本 (开奖结果, “start_score”, , 假)
文本一 = 取文本右边 (开奖结果, 文本长度 - 位置一)
位置二 = 寻找文本 (文本一, “strt_score”, , 假)
文本二 = 取文本左边 (文本一, 位置二)
位置一 = 寻找文本 (文本二, “><font size=”, , 假)
文本长度 = 取文本长度 (文本二)
文本一 = 取文本右边 (文本二, 文本长度 - 位置一)
期位 = 寻找文本 (文本一, “>”, , 假)
文本长度 = 取文本长度 (文本一)
中奖期数 = 取文本右边 (文本一, 文本长度 - 期位)
期位 = 寻找文本 (中奖期数, “<”, , 假)
中奖期数 = 取文本左边 (中奖期数, 期位 - 1)
号位 = 寻找文本 (文本一, “<b>”, , 假)
文本长度 = 取文本长度 (文本一)
中奖号码 = 取文本右边 (文本一, 文本长度 - 号位 - 2)
特码 = 中奖号码
号位 = 寻找文本 (中奖号码, “</b>”, , 假)
中奖号码 = 取文本左边 (中奖号码, 号位 - 1)
码号 = 寻找文本 (特码, “><b>”, , 假)
特码长度 = 取文本长度 (特码)
特码 = 取文本右边 (特码, 特码长度 - 码号 - 3)
码号 = 寻找文本 (特码, “<”, , 假)
特码 = 取文本左边 (特码, 码号 - 1)
颜色号 = 寻找文本 (文本一, “</b></font> <b>”, , 假)
颜色 = 取文本右边 (文本一, 文本长度 - 颜色号 - 14)
颜色号 = 寻找文本 (颜色, “</b>”, , 假)
颜色 = 取文本左边 (颜色, 颜色号 - 1)
追问你的这些不能粘帖去用吗?
我复制过去几次都用不了?
你有测试吗?还是我哪里出错~~~~?
追答额 有测试啊 试过才发出来的
追问.程序集变量 这些复制了怎么不会在易语言里呢?
后来我手动添加进去就出来下面这个
你那个 中奖期数 是变量吗?还是什么?
我从装系统和易语言了都没用
郁闷