[文本处理] 批处理如何提取BING.CN里的连接？

zahirll

批处理打开这个页面然后抓取里面的连接http://cn.bing.com/search?count=1000&q=ip:58.215.64.136
58.215.64.136这个IP是要变的，每次查询都换的，把里面的连接抓出来保存到1.TXT里，然后在执行这段代码

@echo off
more +9 "%~f0" >GetUrlText.vbs
type nul >2.txt
for /f %%a in (1.txt) do (
    echo 正在检测：%%a
    cscript //nologo GetUrlText.vbs %%a/123.aspx | findstr "<title>无法找到资源。</title>" && >>2.txt echo,%%a
)
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 = "utf-8"
strText = objStream.Readtext
WScript.Echo strText
复制代码

[ 本帖最后由 zahirll 于 2011-3-12 18:37 编辑 ]

zahirll

管理。。。。。。。。。。。。。

Batcher

以http://cn.bing.com/search?count=1000&q=ip:58.215.64.136为例，你希望1.txt里面的内容长什么样子？

zahirll

希望格式是
http://123123.com
http://22222.com
http://11111.com
一个地址一行

zahirll

怎么没人帮忙啊。。。。。

Batcher

打开顶楼链接之后显示：
Ref A: CAB6146852B04F69A336665200EBB177 Ref B: 50E51EABBFF8A4225454FE43914B6E40 Ref C: Sat Mar 12 19:53:58 2011 PST

看不到任何链接

zahirll

可以啊，你现在再开看看

Batcher

打开http://cn.bing.com/之后搜索哪个关键字？我自己试试

zahirll

ip:58.215.64.136 输入这个。但是直接输入没有count=1000这个参数，他每页只显示10条，count=1000是一页显示1000条，这样他能全部显示玩，不然他分几页才能显示完

zahirll

管理大大。。。。。。。

zahirll

顶上~~~~~~~~~

zahirll

唉~~~~~~~~~~~~~~