[已解决]批处理怎样获取多个网址或IP所对应的网页标题并输出结果？

wh1234567 · 发表于 2011-4-25 14:48:45

本帖最后由 pcl_test 于 2016-7-14 12:17 编辑

批处理能不能批量获取按行排序的域名或IP所对应的网页标题并将结果输出？
就是有好多个网址，为了日后忘记每个网站到底是关于啥类型的网站，所以用此方法将他的网页标题自动附加到对应的网址后面，这样日后只要看一下标题就知道哪个是我目前想访问的网站了。
Batcher 管理员您好，很感谢您的回答，这个批处理不能在线获取到网址所对应的网页标题啊，是不是哪里需要修改？

namejm · 发表于 2011-4-25 15:07:56

论坛严禁发表“如题”内容的帖子
请认真阅读总版规。

hanyeguxing · 发表于 2011-4-25 15:37:51

楼主，请以具体示例说明意图。。。

wh1234567 · 发表于 2011-4-25 15:52:33

就是有好多个网址，为了日后忘记每个网站到底是关于啥类型的网站，所以用此方法将他的网页标题自动附加到对应的网址后面，这样日后只要看一下标题就知道哪个是我目前想访问的网站了，

Batcher · 发表于 2011-4-25 19:57:35

4# wh1234567

能否把这些背景描述更新到顶楼？

Batcher · 发表于 2011-4-25 20:12:27

@echo off
more +8 "%~f0" >GetUrlText.vbs
(for /f %%a in (a.txt) do (
echo,%%a
cscript //nologo GetUrlText.vbs %%a | findstr "<title>.*</title>"
))>b.txt
goto :eof
strURL=WScript.Arguments(0)
WScript.Echo strURL
Set objXmlHttp = CreateObject("Microsoft.XMLHTTP")
objXmlHttp.Open "GET",strURL,0
objXmlHttp.Send()
Set objStream = CreateObject("ADODB.Stream")
objStream.Mode = 3
objStream.Type = 1
objStream.Open()
objStream.Write(objXmlHttp.responsebody)
objStream.Position = 0
objStream.Type = 2
objStream.Charset = "gbk"
strText = objStream.Readtext
WScript.Echo strText

复制代码

a.txt的内容如下：

http://bbs.bathome.net
http://bbs.chinaunix.net

复制代码

wh1234567 · 发表于 2011-4-26 20:50:23

6# Batcher

Batcher 管理员您好，很感谢您的回答，这个批处理不能在线获取到网址所对应的网页标题啊，是不是哪里需要修改？

Batcher · 发表于 2011-4-26 21:17:28

7# wh1234567

什么是“在线获取到网址所对应的网页标题”？

applba · 发表于 2011-4-26 23:49:49

8# Batcher

你如你来到www.bathome.net
浏览器标题会变成批处理之家

Batcher · 发表于 2011-4-27 01:10:09

9# applba

你确定楼主的需求是这样的吗？
为何不把网址保存到一个文件里批量处理呢？

wh1234567 · 发表于 2011-4-27 14:17:45

例如文本内容有多个网址按行排序：
http://www.bathome.net/
www.hao123.com
...
需要一个批处理，执行这个批处理后，自动在线获取互联网上的这些网站的网页标题并输出到另外的一个文本里，或者直接添加到对应的网址行后面。
处理结果例如：
http://www.bathome.net/ 批处理之家 ─ 做最实用的批处理论坛 - Powered by Discuz!
www.hao123.com hao123－－我的上网主页
也就是获取对应网页的<title> </title>之间的文字

Batcher · 发表于 2011-4-27 17:01:59

11# wh1234567

@echo off
more +10 "%~f0" >GetUrlText.vbs
(for /f %%a in (a.txt) do (
set /p ="%%a "<nul
for /f "tokens=2 delims=<>" %%h in ('cscript //nologo GetUrlText.vbs %%a ^| findstr "<title>.*</title>"') do (
echo,%%h
)
))>b.txt
goto :eof
strURL=WScript.Arguments(0)
WScript.Echo strURL
Set objXmlHttp = CreateObject("Microsoft.XMLHTTP")
objXmlHttp.Open "GET",strURL,0
objXmlHttp.Send()
Set objStream = CreateObject("ADODB.Stream")
objStream.Mode = 3
objStream.Type = 1
objStream.Open()
objStream.Write(objXmlHttp.responsebody)
objStream.Position = 0
objStream.Type = 2
objStream.Charset = "gbk"
strText = objStream.Readtext
WScript.Echo strText

复制代码

wh1234567 · 发表于 2011-4-27 23:13:07

12# Batcher

还是不行，是不是需要配合第三方程序才可以达到目的呢？我的意思是在不打开网页的前提下，只要执行这个批处理就可以获取到这些网址的网页标题。

Batcher · 发表于 2011-4-28 01:13:09

13# wh1234567

不行的具体表现是？
我这里是行的

wh1234567 · 发表于 2011-4-28 01:15:14

不能实现获取网址标题

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

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[网络连接] [已解决]批处理怎样获取多个网址或IP所对应的网页标题并输出结果？