[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

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

本帖最后由 pcl_test 于 2016-7-14 12:17 编辑

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

本帖最后由 wh1234567 于 2011-4-30 16:19 编辑

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 不掉啊
另外,要处理的文本文件名只支持英文,能不能支持中英文的那种

TOP

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,有可能是其他的字母或数字的。域名等级也不一定就是一级或二级有可能是四级五级或更多。

TOP

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

TOP

32# wh1234567


改代码很容易,但我说的很清楚了,如果你随便编造一些网址的话,我也没有兴趣再改下去了。
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

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

TOP

30# wh1234567


如果你愿意贴出真实数据的话,我非常乐意继续修改代码。
如果你不肯的话,让我们一起等待其他朋友来帮你吧。
Good luck.
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

本帖最后由 wh1234567 于 2011-4-30 11:21 编辑

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的多级域名地址无法获取到网页标题

TOP

28# wh1234567


没有测试数据怎么改代码?
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

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

TOP

26# wh1234567


你的测试数据贴出来看看
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

本帖最后由 wh1234567 于 2011-4-29 20:49 编辑

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

))>b.txt

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

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

TOP

24# wh1234567


“好像”是多像?
哪个网址获取失败了?
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

本帖最后由 wh1234567 于 2011-4-29 16:34 编辑

23# Batcher


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

TOP

22# wh1234567
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. more +21 "%~f0" >GetURLText.vbs
  4. (for /f %%a in (a.txt) do (
  5.     echo "%%a" | findstr "www" > null || echo "%%a" | findstr "bbs" > null
  6.     if !errorlevel! neq 0 (
  7.         echo %%a
  8.     ) else (
  9.         set strLine=%%a
  10.         set strLine=!strLine:http://=!
  11.         for /f "tokens=1 delims=,\/ " %%b in ("!strLine!") do (
  12.             set strURL=%%b
  13.         )
  14.         for /f "tokens=4 delims=<>" %%c in ('cscript //nologo GetURLText.vbs http://!strURL! ^| findstr /i "<title>.*</title>"') do (
  15.             echo,%%a %%c
  16.         )
  17.     )
  18.     pause
  19. ))>b.txt
  20. goto :eof
  21. Set objDOM = WScript.GetObject(WScript.Arguments(0))
  22. Do Until objDOM.ReadyState = "complete"
  23.     WScript.Sleep 200
  24.     Loop
  25. WScript.Echo objDOM.DocumentElement.OuterHTML
复制代码
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

返回列表