Batcher

4# wh1234567


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

Batcher

@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
复制代码

Batcher

7# wh1234567


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

Batcher

9# applba


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

Batcher

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
复制代码

Batcher

13# wh1234567


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

Batcher

16# wh1234567


12楼的代码你真的试过？

Batcher

20# wh1234567

@echo off
setlocal enabledelayedexpansion
more +12 "%~f0" >GetUrlText.vbs
(for /f %%a in (a.txt) do (
    set strURL=%%a
    set strURL=!strURL:http://=!
    for /f "tokens=4 delims=<>" %%b in ('cscript //nologo GetUrlText.vbs http://!strURL! ^| findstr /i "<title>.*</title>"') do (
        echo,%%a %%b
    )
))>b.txt
goto :eof

Set objDOM = WScript.GetObject(WScript.Arguments(0))
Do Until objDOM.ReadyState = "complete"
    WScript.Sleep 200
    Loop
WScript.Echo objDOM.DocumentElement.OuterHTML
复制代码

Batcher

22# wh1234567

@echo off
setlocal enabledelayedexpansion
more +21 "%~f0" >GetURLText.vbs
(for /f %%a in (a.txt) do (
    echo "%%a" | findstr "www" > null || echo "%%a" | findstr "bbs" > null
    if !errorlevel! neq 0 (
        echo %%a
    ) else (
        set strLine=%%a
        set strLine=!strLine:http://=!
        for /f "tokens=1 delims=，\/ " %%b in ("!strLine!") do (
            set strURL=%%b
        )
        for /f "tokens=4 delims=<>" %%c in ('cscript //nologo GetURLText.vbs http://!strURL! ^| findstr /i "<title>.*</title>"') do (
            echo,%%a %%c
        )
    )
    pause
))>b.txt
goto :eof

Set objDOM = WScript.GetObject(WScript.Arguments(0))
Do Until objDOM.ReadyState = "complete"
    WScript.Sleep 200
    Loop
WScript.Echo objDOM.DocumentElement.OuterHTML
复制代码

Batcher

24# wh1234567


“好像”是多像？
哪个网址获取失败了？

Batcher

26# wh1234567


你的测试数据贴出来看看

Batcher

28# wh1234567


没有测试数据怎么改代码？

Batcher

30# wh1234567


如果你愿意贴出真实数据的话，我非常乐意继续修改代码。
如果你不肯的话，让我们一起等待其他朋友来帮你吧。
Good luck.

Batcher

32# wh1234567


改代码很容易，但我说的很清楚了，如果你随便编造一些网址的话，我也没有兴趣再改下去了。