标题: [文本处理] [已解决]检测HTTP文件标题的批处理怎么写？ [打印本页]
作者: zahirll 时间: 2011-2-18 21:17 标题: [已解决]检测HTTP文件标题的批处理怎么写？
1.txt里保存了很多网址，比如：
www.111.com
www.222.com
www.333.com
每条一行，我想在每行后面自动加上/123.aspx然后批量检测如果
标题栏也就是<title>出现："无法找到资源"。这几个字就把这个网址保存到2.txt或者直接显示出来，这样的批处理怎么写啊？[]
[ 本帖最后由 zahirll 于 2011-3-10 20:57 编辑 ]
作者: zahirll 时间: 2011-2-18 21:30
万能的版主啊~~~~
作者: Batcher 时间: 2011-2-18 23:21
- @echo off
- more +9 "%~f0" >GetUrlText.vbs
- type nul >2.txt
- for /f %%a in (1.txt) do (
- echo 正在检测：%%a
- cscript //nologo GetUrlText.vbs http://%%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-10 06:47
谢谢万能的管理员啊~~·谢迟了点，呵呵
作者: zahirll 时间: 2011-3-15 06:20
管理，能不能给他加上个超时？超过10秒没响应就跳过，不然卡死在那不动了
作者: zahirll 时间: 2011-3-15 19:15
顶上~~~~~~~~~~~
| 欢迎光临 批处理之家 (http://www.bathome.net/) |
Powered by Discuz! 7.2 |