易语言怎么取QQ空间日志里的内容

Question

.版本
2 标签1.标题 ＝ 到文本(HTTP读文件(“http://user.qzone.qq.com/1286643744/infocenter#app=2&via=QZ.HashRefresh&pos=1369576739”) 这是我在扣扣空间日志里发表的文章 日志的内容就一个数字“ 1 ” 我要怎么才能把这个1显示在标签1上呢？ 本人是新手 求师傅们帮个忙！最好有完整的源码 谢谢了！

Answer 1

实现代码如下：

[attachment=14999]
具体代码自己修改
复制代码
[e].版本 2
.支持库 EThread
.支持库 xplib
.支持库 iext
.支持库 internet

.程序集 窗口程序集1, , , 只能输入20个列
.程序集变量 日志编号, 文本型, , "0"
.程序集变量 QQ号码, 文本型

.子程序 _查询按钮_被单击

启动线程 (&日志查询, 日志线程句柄)
XP风格 (2)

.子程序 日志查询
.局部变量 过度文本, 文本型
.局部变量 表项索引, 整数型
.局部变量 计次, 整数型
.局部变量 出现次数, 整数型
.局部变量 日志分类, 文本型, , "0"
.局部变量 日志标题, 文本型, , "0"
.局部变量 评论次数, 文本型, , "0"

QQ号码 ＝ QQ号码编辑框.内容
过度文本 ＝ “”
状态标签.标题 ＝ “正在搜索......”
日志超级列表框.全部删除 ()
过度文本 ＝ 到文本 (HTTP读文件 (“http://b.qzone.qq.com/cgi-bin/blognew/blog_get_titlelist?uin=” ＋ QQ号码 ＋ “&vuin=0&property=GoRE&category=&numperpage=20&sorttype=0&arch=0&pos=0&direct=1&r=0.8082843897968415”))
.如果真 (寻找文本 (过度文本, “错误的QQ号码”, 1, 假) ≠ -1)
状态标签.标题 ＝ “ QQ号码有误请重输！”
返回 ()
.如果真结束
出现次数 ＝ 文本_取出中间 (过度文本, “category” ＋ #引号 ＋ “:” ＋ #引号, #引号 ＋ “,”, 日志分类)
文本_取出中间 (过度文本, “title” ＋ #引号 ＋ “:” ＋ #引号, #引号 ＋ “}”, 日志标题)
文本_取出中间 (过度文本, “replynum” ＋ #引号 ＋ “:”, “,”, 评论次数)

.计次循环首 (出现次数, 计次)
表项索引 ＝ 日志超级列表框.插入表项 (, , , , , )
日志超级列表框.置标题 (表项索引, 0, 到文本 (计次))
日志超级列表框.置标题 (表项索引, 1, 日志分类 [计次])
日志超级列表框.置标题 (表项索引, 2, 日志标题 [计次])
日志超级列表框.置标题 (表项索引, 3, 评论次数 [计次])
.计次循环尾 ()
.如果 (出现次数 ＝ 0)
状态标签.标题 ＝ “该QQ设置密码！”
.否则
状态标签.标题 ＝ “共有日志：” ＋ 到文本 (计次 － 1) ＋ “篇”
.如果结束

.子程序 文本_取出中间, 整数型, 公开, 此过程效率不太高，可以实现所要实现的功能BY：66378687
.参数 待找文本, 文本型
.参数 前面文本, 文本型
.参数 后面文本, 文本型
.参数 保留数组, 文本型, 数组
.局部变量 临时数组, 文本型, , "0"
.局部变量 前面长度, 整数型
.局部变量 零时位置, 整数型
.局部变量 临时文本, 文本型
.局部变量 临时数组长度, 整数型
.局部变量 计数, 整数型
.局部变量 保存数组, 文本型, , "0"
.局部变量 计数1, 整数型
.局部变量 数字, 整数型

前面长度 ＝ 取文本长度 (前面文本)
零时位置 ＝ 寻找文本 (待找文本, 前面文本, , 假)
临时数组 ＝ 分割文本 (待找文本, 前面文本, ) ' 零时数组第一个是不符合要求的，需要去掉后处理
' 下面对临时数组进行处理
.如果 (取数组成员数 (临时数组) ≤ 1)
返回 (0)
结束 ()
.否则

.如果结束
重定义数组 (保留数组, 假, 取数组成员数 (临时数组) － 1)
计数 ＝ 1
.循环判断首 ()
临时文本 ＝ 临时数组 [计数 ＋ 1]
保留数组 [计数] ＝ 临时文本
计数 ＝ 计数 ＋ 1
.循环判断尾 (计数 ＜ 取数组成员数 (临时数组))
临时数组长度 ＝ 取数组成员数 (临时数组)
.计次循环首 (取数组成员数 (保留数组), 计数)
零时位置 ＝ 寻找文本 (临时数组 [计数 ＋ 1], 后面文本, , 假)
保留数组 [计数] ＝ 取文本左边 (保留数组 [计数], 零时位置 － 1)

.计次循环尾 ()
返回 (计数 － 1)
[/e]

Answer 2

取中间文本、追问

能帮忙写下 取这个地址日志里1的代码 吗？？？真心感激不尽

追答

本回答被提问者采纳