Board logo

标题: 批处理SEO采集 搜索引擎 结果URL的主要用来采集博客 [打印本页]

作者: msdlya    时间: 2013-8-19 17:36     标题: 批处理SEO采集 搜索引擎 结果URL的主要用来采集博客

原创代码。发不了 。发这里。自己写的SEO采集 搜索引擎 结果URL的代码

(求高手指点)
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. ::关键词
  4. set GJC=美食
  5. :: <^&echo.>网址分隔符
  6. set "Url=新浪:blog.sina.com.cn^&echo.网易:blog.163.com^&echo.搜狐:blog.sohu.com"
  7. ::采集的网址
  8. :::::::::::::::::::::::::::雅虎采集篇:::::::::::::::::::::::::::::::::::::::::::::
  9. ::循环获得 。。网址名称      
  10. FOR /F "tokens=1,2 delims=:" %%i in ('echo %Url%') do (
  11. set Down=yes
  12. ::循环判断用开关  Down
  13. For /l %%a in (1,1,100) do (
  14. if !Down!==yes (
  15. echo 雅虎搜索 之 %%i
  16. echo 第%%a页
  17. echo "http://www.yahoo.cn/s?q=site:%%j%%20%GJC%&page=%%a"
  18. curl "http://www.yahoo.cn/s?q=site:%%j%%20%GJc%&page=%%a" | geturls.exe | findstr "%%j">>res\yahoo%%i.txt
  19. IF  %ERRORLEVEL%==1 set down=no
  20. )
  21. )
  22. )
  23. :::::::::::::::::::::::::::搜搜采集篇:::::::::::::::::::::::::::::::::::::::::::::
  24. ::循环获得 。。网址名称    soso篇
  25. FOR /F "tokens=1,2 delims=:" %%i in ('echo %Url%') do (
  26. set Down=yes
  27. ::循环判断用开关  Down
  28. For /l %%a in (1,1,100) do (
  29. if !Down!==yes (
  30. echo soso搜索 之 %%i
  31. echo 第%%a页
  32. echo "http://www.soso.com/q?w=site%%3Ablog.sina.com.cn%%20%GJC%&lr=&sc=web&ch=w.p.b&num=10&gid=&cin=&site=&sf=0&sd=0&nf=&pg=%%a"
  33. curl "http://www.soso.com/q?w=site:%%j%%20%GJc%&lr=&sc=web&ch=w.p.b&num=10&gid=&cin=&site=&sf=0&sd=0&nf=&pg=%%a" | geturls.exe | findstr "%%j">>res\yahoo%%i.txt
  34. IF  %ERRORLEVEL%==1 set down=no
  35. )
  36. )
  37. )
  38. pause
复制代码

作者: 523066680    时间: 2013-8-19 17:42

适当缩进一下
作者: msdlya    时间: 2013-8-19 17:45

回复 2# 523066680

缩进 咋整啊。 不会
作者: gawk    时间: 2013-8-19 21:08

回复 3# msdlya


就是空格,比如:
  1. ::循环获得 。。网址名称
  2. FOR /F "tokens=1,2 delims=:" %%i in ('echo %Url%') do (
  3.     set Down=yes
  4.     ::循环判断用开关  Down
  5.     For /l %%a in (1,1,100) do (
  6.         if !Down!==yes (
  7.             echo 雅虎搜索 之 %%i
  8.             echo 第%%a页
  9.             echo "http://www.yahoo.cn/s?q=site:%%j%%20%GJC%&page=%%a"
  10.             curl "http://www.yahoo.cn/s?q=site:%%j%%20%GJc%&page=%%a" | geturls.exe | findstr "%%j">>res\yahoo%%i.txt
  11.             IF  %ERRORLEVEL%==1 set down=no
  12.         )
  13.     )
  14. )
复制代码





欢迎光临 批处理之家 (http://bathome.net./) Powered by Discuz! 7.2