易语言批量获取网址标题，求源码。。

bin454016008 · 发表于 2013-10-13 15:01:12

比如：http://bbs.houdao.com/f783
      http://bbs.houdao.com/r7557265/
      http://bbs.houdao.com/r8225271/
在编辑框1里，然后点击按钮
批量获取标题，火车头采集器我用不了。。
自己实在写不出来了，求大侠们给个例程
我有不是批量的，不过取不到。。
                                 我不知道为什么取不到：
.版本 2
.局部变量返回文本, 文本型
.局部变量位置1, 整数型, , , <title>的位置
.局部变量位置2, 整数型, , , </title>的位置
返回文本＝彗星HTTP读文本 (“www.baidu.com”)
位置1 ＝寻找文本 (返回文本, “<title>”, , 真) ＋ 7  ' 加7是因为<title>占了7个字符
位置2 ＝寻找文本 (返回文本, “</title>”, 位置1, 真)
信息框 (取文本中间 (返回文本, 位置1, 位置2 －位置1), 0, )  ' 位置2-位置1就是标题占的字符了
                           不要模块的方法：
.版本 2
.支持库 internet
.子程序 _按钮1_被单击
.局部变量 a, 整数型
.局部变量 b, 整数型
.局部变量网页文本, 文本型
网页文本＝到文本 (HTTP读文件 (“http://www.jdw8.com”))
a ＝寻找文本 (网页文本, “<title>”, , 真) + 7
b ＝寻找文本 (网页文本, “</title>”, a, 真)
信息框 (取文本中间 (网页文本, a, b － a), 0, )

补充内容 (2013-10-13 15:26):
已经有源码了，求改成批量的。附件在6楼，谢谢

补充内容 (2013-11-1 14:05):
自己解决了

怪咖咖 · 发表于 2013-10-13 15:01:13

改好了楼主给最佳吧。。。。诶诶。。

补充内容 (2013-10-13 16:29):
里面有一个文本文档格式就是那个自己看吧。。

提百万 · 发表于 2013-10-13 15:17:39

编码问题，网页的编码有些是UTF8 需要转码。

提百万 · 发表于 2013-10-13 15:17:59

.版本 2
.支持库 internet

.子程序 _按钮1_被单击
.局部变量网页文本, 文本型

网页文本＝编码_Utf8到Ansi (HTTP读文件 (“http://www.baidu.com”))
信息框 (文本_取出中间文本 (网页文本, “<title>”, “</title>”), 0, )

bin454016008 · 发表于 2013-10-13 15:23:19

提百万发表于 2013-10-13 15:17
.版本 2
.支持库 internet

我已经有源码了，能不能帮我改成批量的。谢谢

bin454016008 · 发表于 2013-10-13 15:25:05

[e]
.版本 2
.支持库 internet

.程序集窗口程序集1

.子程序 _按钮1_被单击
.局部变量网站标题, 文本型

网站标题＝取文本中间内容 (到文本 (HTTP读文件 (编辑框1.内容)), “<title>”, “</title>”)
.如果 (网站标题 ≠ “”)
编辑框2.内容＝网站标题
.否则
编辑框2.内容＝ “无法取出网站标题！”
.如果结束

.子程序取文本中间内容, 文本型
.参数原文本, 文本型
.参数文本1, 文本型
.参数文本2, 文本型
.参数起始位置, 整数型, 可空
.参数返回位置, 整数型, 参考可空
.局部变量临时, 文本型
.局部变量寻找2, 整数型

.如果真 (是否为空 (起始位置))
起始位置＝ 0
.如果真结束
返回位置＝寻找文本 (原文本, 文本1, 起始位置, 假) ＋取文本长度 (文本1)
.如果真 (返回位置＝取文本长度 (文本1) － 1)
返回位置＝ -1
返回 (“”)
.如果真结束
寻找2 ＝寻找文本 (原文本, 文本2, 返回位置, 假)
.如果真 (寻找2 ＝ -1)
返回位置＝ -1
返回 (“”)
.如果真结束
临时＝取文本中间 (原文本, 返回位置, 寻找2 －返回位置)
返回 (临时)
[/e]

求改成批量的

bin454016008 · 发表于 2013-10-13 15:26:06

090928yuy.rar (2.65 KB, 下载次数: 25)

怪咖咖 · 发表于 2013-10-13 15:35:32

等着我哈。。

bin454016008 · 发表于 2013-10-13 16:17:39

怪咖咖发表于 2013-10-13 15:35
等着我哈。。

好的。。。

怪咖咖 · 发表于 2013-10-13 16:30:39

bin454016008 发表于 2013-10-13 16:17
好的。。。

求加JB啊楼主我搞了好久。。。

		自动登录	找回密码
密码			注册

[完成] 易语言批量获取网址标题，求源码。。

最佳答案

点评

评分

点评

点评

点评