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

@echo off
 
setlocal enabledelayedexpansion
 
::关键词
set GJC=美食
:: <^&echo.>网址分隔符
set "Url=新浪:blog.sina.com.cn^&echo.网易:blog.163.com^&echo.搜狐:blog.sohu.com"
::采集的网址
 
 
:::::::::::::::::::::::::::雅虎采集篇:::::::::::::::::::::::::::::::::::::::::::::
 
::循环获得 。。网址名称       
FOR /F "tokens=1,2 delims=:" %%i in ('echo %Url%') do (
set Down=yes
::循环判断用开关  Down
For /l %%a in (1,1,100) do (
if !Down!==yes (
echo 雅虎搜索 之 %%i
echo 第%%a页
 
echo "http://www.yahoo.cn/s?q=site:%%j%%20%GJC%&page=%%a"
curl "http://www.yahoo.cn/s?q=site:%%j%%20%GJc%&page=%%a" | geturls.exe | findstr "%%j">>res\yahoo%%i.txt
IF  %ERRORLEVEL%==1 set down=no
)
)
)
 
:::::::::::::::::::::::::::搜搜采集篇:::::::::::::::::::::::::::::::::::::::::::::
 
::循环获得 。。网址名称    soso篇
FOR /F "tokens=1,2 delims=:" %%i in ('echo %Url%') do (
set Down=yes
::循环判断用开关  Down
For /l %%a in (1,1,100) do (
if !Down!==yes (
echo soso搜索 之 %%i
echo 第%%a页
 
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"
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
IF  %ERRORLEVEL%==1 set down=no
 
)
)
)
 
pauseCOPY