精易论坛

标题: 易语言批量获取网址标题，求源码。。 [打印本页]

作者: bin454016008 时间: 2013-10-13 15:01
标题: 易语言批量获取网址标题，求源码。。
比如：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
改好了楼主给最佳吧。。。。诶诶。。

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

QQ图片20131013162931.jpg (37.2 KB, 下载次数: 2)

源码.rar

2.2 KB, 下载次数: 176, 下载积分: 精币 -1 枚

作者: 提百万 时间: 2013-10-13 15:17
编码问题，网页的编码有些是UTF8 需要转码。

作者: 提百万 时间: 2013-10-13 15:17
.版本 2
.支持库 internet

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

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

作者: bin454016008 时间: 2013-10-13 15:23

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

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

作者: bin454016008 时间: 2013-10-13 15:25
[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

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

求改成批量的。。

作者: 怪咖咖 时间: 2013-10-13 15:35
等着我哈。。

作者: bin454016008 时间: 2013-10-13 16:17

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

好的。。。

作者: 怪咖咖 时间: 2013-10-13 16:30

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

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

作者: bin454016008 时间: 2013-10-13 16:31

怪咖咖发表于 2013-10-13 16:29
改好了楼主给最佳吧。。。。诶诶。。

补充内容 (2013-10-13 16:29):

啊啊，我不要点击打开呀。。我要导出。。麻烦楼主了

作者: 怪咖咖 时间: 2013-10-13 16:32

bin454016008 发表于 2013-10-13 16:31
啊啊，我不要点击打开呀。。我要导出。。麻烦楼主了

？？？？什么意思？

作者: bin454016008 时间: 2013-10-13 16:33

怪咖咖发表于 2013-10-13 16:30
求加JB啊楼主我搞了好久。。。

稍等哈。导出链接跟标题，2个按钮

作者: 怪咖咖 时间: 2013-10-13 16:34

bin454016008 发表于 2013-10-13 16:33
稍等哈。导出链接跟标题，2个按钮

一个导出链接一个导出按钮？？修改成这样吗？

作者: 怪咖咖 时间: 2013-10-13 16:34

怪咖咖发表于 2013-10-13 16:34
一个导出链接一个导出按钮？？修改成这样吗？

先给最佳啦。。。。

作者: 怪咖咖 时间: 2013-10-13 17:02

怪咖咖发表于 2013-10-13 16:34
先给最佳啦。。。。

楼主我的最佳啊啊啊啊啊

作者: SourceCode 时间: 2013-10-13 17:19

好吧这么多人搞我就不做了！

作者: bin454016008 时间: 2013-10-13 18:23

怪咖咖发表于 2013-10-13 17:02
楼主我的最佳啊啊啊啊啊

我刚刚在忙，不阿你会跑的。。好人做到底吧，我不会跑的

作者: bin454016008 时间: 2013-10-13 18:24

怪咖咖发表于 2013-10-13 16:34
一个导出链接一个导出按钮？？修改成这样吗？

1个导出标题，一个导出链接。有劳层主了

作者: YY阿狸 时间: 2013-10-13 18:32
好多人

作者: 怪咖咖 时间: 2013-10-13 18:40

bin454016008 发表于 2013-10-13 18:23
我刚刚在忙，不阿你会跑的。。好人做到底吧，我不会跑的

本来我不想扣你JB的还想帮你改就改吧可是你说的那句“我怕你会跑” 我就非常生气。怕我会跑？你发帖子的目的我已经帮你达到了吧而且还就7JB 还怕我会跑？？？

作者: bin454016008 时间: 2013-10-13 18:50

怪咖咖发表于 2013-10-13 18:40
本来我不想扣你JB的还想帮你改就改吧可是你说的那句“我怕你会跑” 我就非常生气。怕我会跑？你发帖子 ...

本来我还想把最佳直接给你的，但是你扣我JB我就非常生气，那么在乎那点JB么？我的意思就是在帮一把，既然你这样。。那我也没办法。。

作者: bin454016008 时间: 2013-10-13 18:57

怪咖咖发表于 2013-10-13 18:40
本来我不想扣你JB的还想帮你改就改吧可是你说的那句“我怕你会跑” 我就非常生气。怕我会跑？你发帖子 ...

是的，没办法。被人坑了无数次

作者: akang1 时间: 2013-10-14 00:14
我是来学习的

作者: 君不见 时间: 2013-10-14 01:31
大肚能容天下之难容之事笑口常开笑天下之可笑之人

作者: 快乐天天 时间: 2013-10-14 11:01
我只是路过看看，7个精币可以帮忙修改一个软件，真心少

作者: yhaixj 时间: 2020-2-10 12:28
不错..........

欢迎光临精易论坛 (https://125.confly.eu.org/)