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

wh1234567

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

wh1234567

23# Batcher

这个批处理为什么不能将无效的网址跳过并保留原行并输出呢？例如

d.ghfgfhgh.com,shide,en
ms.34nvfdgf,shide,en
dos窗口里显示如下内容，不知道为什么：
C:\Documents and Settings\Administrator\桌面\GetURLText.vbs(1, 1) Microsoft VBSc
ript 运行时错误: Automation 操作中文件名或类名未找到

C:\Documents and Settings\Administrator\桌面\GetURLText.vbs(1, 1) Microsoft VBSc
ript 运行时错误: Automation 操作中文件名或类名未找到

FINDSTR: 行 1703 太长。
另外：
GetURLText.vbs和null这2个文件最后怎么del 不掉啊
另外，要处理的文本文件名只支持英文，能不能支持中英文的那种

wh1234567

http://bbs.bathome.net/，最好的论坛、批处理学习之地。
http://www.onlinedown.net，最安全的下载网，2011，
www.9ku.com/ 歌曲，gequ,
112.34dvv.chinaunix.net\yeshi,lt
bg.cdsc.rtett.fgg.cn,例如，多级域名
d.44.5.hu.com,新的,227888
http://22.34.33.22/，转换，ip地址
3.2.2.54/，无效，可能
253.67.1.153，dabukai,bukan30
sddfsfw22.sdsdg.sdkn.gov.cn,juli,shuoming
www.nnhft.dgfg5.ssd432.gov.cn,lizi,zhhzgzhffr45
文本里的网址比较多，且域名后缀与前缀多种格式的，例如com,cn,net,gh,等等任意格式的，前面也不一定带有www，有可能是其他的字母或数字的。域名等级也不一定就是一级或二级有可能是四级五级或更多。

CrLf

批处理之所以能够“批处理”，是因为它顺应了变化的规律，若不存在规律，批处理甚至还不如手工操作。
楼主自己都不明白有什么规律，而且又不给出有代表性的测试环境，准备让别人玩扫雷么？

Batcher

32# wh1234567


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

wh1234567

31# Batcher
管理员您好，我的意思是文本不一定就是一个，所以不能只按照我提供的样板文本做批处理，尽量支持带有www和不带有www的任意网址的那种，如果你只是按照我给你的文本制作的话，当过日后这个批处理也就不一定通用了啊

Batcher

30# wh1234567


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

wh1234567

29# Batcher

http://bbs.bathome.net/，最好的论坛、批处理学习之地。
http://www.onlinedown.net，最安全的下载网，2011，
www.9ku.com/ 歌曲，gequ,
112.34dvv.chinaunix.net\yeshi,lt
bg.cdsc.rtett.fgg.cn,例如，多级域名
d.44.5.hu.com,新的,227888
http://22.34.33.22/，转换，ip地址
3.2.2.54/，无效，可能
253.67.1.153，dabukai,bukan30
w22.sdsdg.sdkn.gov.cn,juli,shuoming
www.nnhft.dgfg5.ssd432.gov.cn,lizi,zhhzgzhffr45
文本里的网址比较多，且域名后缀与前缀多种格式的，例如com,cn,net,gh,等等任意格式的，前面也不一定带有www，有可能是其他的字母或数字的。域名等级也不一定就是一级或二级有可能是四级五级或更多。
我发现不带有www的多级域名地址无法获取到网页标题

Batcher

28# wh1234567


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

wh1234567

可能需要重新修改一下代码了，否则多级域名的网址就无法获取到标题了

Batcher

26# wh1234567


你的测试数据贴出来看看

wh1234567

25# Batcher
只获取到第一个，然后就没有反应了，一直不变
结果文本：
http://bbs.bathome.net/，最好的论坛、批处理学习之地。 批处理之家 ─ 做最实用的批处理论坛 - Powered by Discuz
请按任意键继续. . .
pause

))>b.txt

goto :eof
pause是不是应该放在goto :eof的后面呢

另外遇到好几级域名的网址就无法获取标题了，例如：f2bzx1.j2d.ed33u.sh.cn

Batcher

24# wh1234567


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

wh1234567

23# Batcher


好像效果不太理想，是不是需要修正一下，网址也许有三级或四级的域名的话那就没法获取标题了吧，另外能不能解决速度慢的问题，如果开多线程的话也许速度更快

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