易语言 取网页文本

Question

用易语言把QQ空间里（http://user.qzone.qq.com/1141199866/blog/1290140108）的文本取到编辑框里，要源码。
11月19日补充：我想取⊙符号中间的文本
11月21日补充：那位网友的推荐是不行的，QQ空间里的内容是在框架里的，一般的http读文件是读不出来的。只能进到框架里面读才行。我自己解决了：下面是源码

.版本 2

.程序集 窗口程序集1

.子程序 _按钮1_被单击
.局部变量 网页内容, 网页文档类
.局部变量 网页文本, 文本型
.局部变量 信息数组, 文本型, , "0"
.局部变量 i, 整数型

网页内容.初始化 (, 超文本浏览框1.取窗口句柄 ())
网页文本 ＝ 网页内容.取网页属性 (#网页属性_网页源码)
信息数组 ＝ 分割文本 (网页文本, “⊙”, )
i ＝ 0
.计次循环首 (4, )
i ＝ i ＋ 2
编辑框1.加入文本 (信息数组 [i] ＋ #换行符)
.计次循环尾 ()
需要网页操作模块

Answer 1

我看你的问题 我不是很懂 我把我的一个源码给你看看吧 是取一个时间校正网页中的当前时间 原理是一样的 你仔细研究下吧
.版本 2
.支持库 internet

.程序集 窗口程序集1
.程序集变量 网页文本, 文本型
.程序集变量 临时文本, 文本型
.程序集变量 所需文本, 文本型, , "0"
.程序集变量 中间时间, 文本型, , "0"

.子程序 _按钮1_被单击

网页文本 ＝ 到文本 (HTTP读文件 (“”)) ' 这是国家授时中心网络服务器时间发布网站
所需文本 ＝ 分割文本 (网页文本, “服务器时间:”, ) ' 将取回的文本分割，因为我们需要的网络时间在其后面
.如果真 (取数组成员数 (所需文本) ＜ 2) ' 判断是否取回所需数据
信息框 (“取网络时间失败！链接网络不成功！”, 0 ＋ #信息图标, “网络校时：”)
返回 ()
.如果真结束
临时文本 ＝ 所需文本 [2]
所需文本 ＝ 分割文本 (临时文本, “document.write('”, )
中间时间 ＝ 分割文本 (所需文本 [3], “')”, )
编辑框1.内容 ＝ 中间时间 [1] ' 取出年/月/日
临时文本 ＝ 所需文本 [6]
所需文本 ＝ 分割文本 (临时文本, “var hrs = ”, )
临时文本 ＝ 所需文本 [2]
中间时间 ＝ 分割文本 (临时文本, “;”, )
编辑框2.内容 ＝ 中间时间 [1] ' 取出小时
所需文本 ＝ 分割文本 (临时文本, “var min = ”, )
临时文本 ＝ 所需文本 [2]
中间时间 ＝ 分割文本 (临时文本, “;”, )
编辑框3.内容 ＝ 中间时间 [1] ' 取出分钟
所需文本 ＝ 分割文本 (临时文本, “var sec = ”, )
临时文本 ＝ 所需文本 [2]
中间时间 ＝ 分割文本 (临时文本, “;”, )
编辑框4.内容 ＝ 中间时间 [1] ' 取出秒

Answer 2

你要取整个页面的文本还是只是回复内容的文本？可以实现，加Q86293073本回答被提问者采纳

Answer 3

现在没在家 晚上回去给你弄 不过楼上的 就可以了