本帖最后由 zahirll 于 2012-8-26 21:03 编辑
1.txt里面的内容是：baidu.com
www.xxx.com
我想要达到搜索有结果的就返回域名到2.txt
像上面两个域名baidu.com肯定是有结果的，www.xxx.com是无结果的。
遇到两个问题就是不管有没搜到结果都返回到2.txt
还有一个就是 findstr行2太长。。
请高手帮我修改一些，万分感谢。- @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://baidu.com/ns?word=site:%%a" | findstr "不存在" && >>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
| 
发表于 2012-8-26 04:05
| 