易语言取网页中的一段文字到编辑框 有源码的来

Question

.版本 2.支持库 internet
编辑框1.内容 ＝ 到文本 (HTTP读文件 (“ http://www.lhc123.hk/常用网站/bm11.htm”))
我要这些内容到编辑框1里面去
079期:07-04-13-28-49-36 T:03 虎/蓝/木 挂牌 开奖刷新 080期开奖时间 07月12日 星期四 09点30分
怎么出来的是这种：

​

Answer 1

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

追问

你的这些不能粘帖去用吗？
我复制过去几次都用不了？
你有测试吗？还是我哪里出错~~~~？

追答

额 有测试啊 试过才发出来的

追问

.程序集变量 这些复制了怎么不会在易语言里呢？
后来我手动添加进去就出来下面这个
你那个 中奖期数 是变量吗？还是什么？
我从装系统和易语言了都没用
郁闷

Answer 2

.版本 2
.子程序 取指定内容, 文本型, , 取出想要的内容
.参数 完整内容, 文本型
.参数 左边文本, 文本型
.参数 右边文本, 文本型
.局部变量 临时位置, 整数型
.局部变量 总长度, 整数型
.局部变量 临时文本, 文本型
总长度 ＝ 取文本长度 (完整内容)
临时位置 ＝ 寻找文本 (完整内容, 左边文本, , 假) ＋ 取文本长度 (左边文本)
临时文本 ＝ 取文本中间 (完整内容, 临时位置, 总长度)
总长度 ＝ 取文本长度 (临时文本)
临时位置 ＝ 寻找文本 (临时文本, 右边文本, , 假) － 1
临时文本 ＝ 取文本中间 (临时文本, 1, 临时位置)
返回 (临时文本)

把上面的子程序加进去，然后再调用这个子程序来取出指定文本就可以了。只要你在其参数中提供前面的文本跟后面的文本就可以取出中间的文本。