批处理SEO采集 搜索引擎 结果URL的主要用来采集博客

msdlya

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

（求高手指点）

1. @echo off
   
2. 
   
3. setlocal enabledelayedexpansion
   
4. 
   
5. ::关键词
   
6. set GJC=美食
   
7. :: <^&echo.>网址分隔符
   
8. set "Url=新浪:blog.sina.com.cn^&echo.网易:blog.163.com^&echo.搜狐:blog.sohu.com"
   
9. ::采集的网址
   
10. 
    
11. 
    
12. :::::::::::::::::::::::::::雅虎采集篇:::::::::::::::::::::::::::::::::::::::::::::
    
13. 
    
14. ::循环获得 。。网址名称      
    
15. FOR /F "tokens=1,2 delims=:" %%i in ('echo %Url%') do (
    
16. set Down=yes
    
17. ::循环判断用开关  Down
    
18. For /l %%a in (1,1,100) do (
    
19. if !Down!==yes (
    
20. echo 雅虎搜索 之 %%i
    
21. echo 第%%a页
    
22. 
    
23. echo "http://www.yahoo.cn/s?q=site:%%j%%20%GJC%&page=%%a"
    
24. curl "http://www.yahoo.cn/s?q=site:%%j%%20%GJc%&page=%%a" | geturls.exe | findstr "%%j">>res\yahoo%%i.txt
    
25. IF  %ERRORLEVEL%==1 set down=no
    
26. )
    
27. )
    
28. )
    
29. 
    
30. :::::::::::::::::::::::::::搜搜采集篇:::::::::::::::::::::::::::::::::::::::::::::
    
31. 
    
32. ::循环获得 。。网址名称    soso篇
    
33. FOR /F "tokens=1,2 delims=:" %%i in ('echo %Url%') do (
    
34. set Down=yes
    
35. ::循环判断用开关  Down
    
36. For /l %%a in (1,1,100) do (
    
37. if !Down!==yes (
    
38. echo soso搜索 之 %%i
    
39. echo 第%%a页
    
40. 
    
41. 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"
    
42. 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
    
43. IF  %ERRORLEVEL%==1 set down=no
    
44. 
    
45. )
    
46. )
    
47. )
    
48. 
    
49. pause

复制代码

523066680

适当缩进一下

msdlya

回复 2# 523066680

缩进 咋整啊。 不会

gawk

回复 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. 
   
10.             echo "http://www.yahoo.cn/s?q=site:%%j%%20%GJC%&page=%%a"
    
11.             curl "http://www.yahoo.cn/s?q=site:%%j%%20%GJc%&page=%%a" | geturls.exe | findstr "%%j">>res\yahoo%%i.txt
    
12.             IF  %ERRORLEVEL%==1 set down=no
    
13.         )
    
14.     )
    
15. )

复制代码