start "" http://www.1.com
start "" http://www.2.com
start "" http://www.3.com
start "" http://www.4.com
复制代码

ping blog.sina.com.cn && goto dianxin || goto tietong ::判断是否电线或铁通，选择最快的网页下载
:dianxin
aria2c.exe -d D:\ -o 1.htm http://blog.sina.com.cn/s/blog_823cbc920100v5gj.html ::将网页下载到D盘并改名1.txt
???代码不知 >a.txt ::将下载的改名的1.htm提取两个“**********”之间的内容并生成a.txt，其内容见最上面的代码行
del 1.htm ::删除多余的文件
exit
:tietong
aria2c.exe -d D:\ -o 1.htm http://chren123.blog.163.com/blog/static/253137098201581811214839/ ::将网页下载到D盘并改名1.txt
???代码不知 >a.txt ::将下载的改名的1.htm提取两个“**********”之间的内容并生成a.txt，其内容见最上面的代码行
del 1.htm ::删除多余的文件
exit
复制代码

//&cls&dir /b *.htm|cscript.exe -nologo -e:jscript "%~f0"&pause&exit/b

while(!WScript.StdIn.AtEndOfStream){
    var file = WScript.StdIn.ReadLine();
    var fname = file.replace(/\.[^\.]*$/,'');
    var fso = new ActiveXObject("Scripting.FileSystemObject");
    var f = fso.OpenTextFile(file,1);
    var txt = f.ReadAll().match(/\*{8,}[\s\S]+?\*{8,}/m)[0];
    var m = txt.match(/start[^<]+/img);
    var str = '';
    for (var i=0;i<m.length;i++){
        str +=m[i].replace(/\r?\n/g,' ')+'\r\n';
    }
    fso.CreateTextFile(fname+'.txt',2).Write(str);
}
复制代码

(
	echo;1111
	echo;1111
	echo;1111
)>D:\run.bat
复制代码

@echo off
setlocal enabledelayedexpansion
set flag=
for /f "tokens=1* delims=<" %%a in (1.html) do (
  if !flag!==3 goto :eof
  if "%%a" neq "************" if !flag!==2 echo %%a >>a.txt
  echo %%a >%temp%\tmp
  find "********" %temp%\tmp >nul && set /a flag+=1
)
del %temp%\tmp
复制代码