返回列表 发帖
amwfjhh

Rank: 4

帖子
314 
积分
408 
技术
19  
捐助
0  
注册时间
2014-11-3 
1楼 跳转到 »
发表于 2015-1-13 13:35 | 显示全部帖子
正则用得好，批量没烦恼……

TOP

amwfjhh

Rank: 4

帖子
314 
积分
408 
技术
19  
捐助
0  
注册时间
2014-11-3 
2楼
发表于 2015-1-14 15:08 | 显示全部帖子
来一个纯脚本版的，只需要只支BAT与JScript，无需第三方wget或者Curl.
  1. @if (0)==(0) echo off

  2. setlocal enabledelayedexpansion

  3. 

  4. cscript -nologo -e:jscript %~s0 GetWebContent "http://cctv.cntv.cn/lm/huanqiucaijinglianxian/" "$"

  5. set /a index=0

  6. for /f "delims=" %%i in ('cscript -nologo -e:jscript %~s0 GetRegStr "$" "<BR><a\shref='([^']+)'[^>]+>[^<]+</a>"') do (

  7. 	set /a index+=1

  8. 	echo,!index! : %%i

  9. 	CScript -nologo -E:jscript %~s0 DownloadFile "%%i" "%cd%\!index!.mp4"

  10. )

  11. 

  12. :end	

  13. pause & goto :EOF

  14. 

  15. @end

  16. 

  17. var fun = WScript.arguments(0);

  18. switch (fun){

  19. case "GetWebContent":

  20. 	if (WScript.arguments.length < 3) {

  21. 		WScript.Echo("参数个数错误");

  22. 		WScript.quit();

  23. 	}

  24. 	var url = WScript.arguments(1);

  25. 	var fil = WScript.arguments(2);

  26. 	GetWebContent(GetEncodeURIComponentStr(url), fil);

  27. 	break;

  28. 	

  29. case "DownloadFile":

  30. 	if (WScript.arguments.length < 3) {

  31. 		WScript.echo("参数个数错误");

  32. 		WScript.quit();

  33. 	}

  34. 	var url = WScript.arguments(1);// + "?wshc_tag=1&wsts_tag=54b5d817&wsid_tag=abd9364e&wsiphost=ipdbm";

  35. 	var fil = WScript.arguments(2);

  36. 	GetWebContent(url, fil);

  37. 	break;

  38. 	

  39. case "GetEncodeURIComponentStr":

  40. 	if (WScript.arguments.length < 2) {

  41. 		WScript.echo("参数个数错误");

  42. 		WScript.quit();

  43. 	}

  44. 	var url = WScript.arguments(1);

  45. 	GetEncodeURIComponentStr(url);

  46. 	break;

  47. 	

  48. case "GetFileContent":

  49. 	if (WScript.arguments.length < 2) {

  50. 		WScript.Echo("参数个数错误");

  51. 		WScript.quit();

  52. 	}

  53. 	var fil = WScript.arguments(1);

  54. 	GetFileContent(fil);

  55. 	break;

  56. 	

  57. case "GetRegStr":

  58. 	if (WScript.arguments.length < 3) {

  59. 		WScript.Echo("参数个数错误");

  60. 		WScript.quit();

  61. 	}

  62. 	var fil = WScript.arguments(1);

  63. 	var regStr = WScript.arguments(2);

  64. 	regStr = regStr.replace(/'/g, "\"");

  65. 	GetRegStr(fil, regStr);

  66. 	break;

  67. 	

  68. default:;

  69. }

  70. 

  71. 

  72. function GetEncodeURIComponentStr(URL){

  73. 	var encodeUrl = encodeURIComponent(url);

  74. 	var webUrl = "http://www.flvcd.com/parse.php?format=&kw="

  75. 	webUrl += encodeUrl;

  76. 	WScript.echo(webUrl);

  77. 	return webUrl;

  78. }

  79. 

  80. function GetWebContent(url, fileName){

  81. 	try{

  82. 		var oHttp = new ActiveXObject("MSXML2.ServerXMLHTTP");

  83. 		oHttp.open("Get", url, false);

  84. 		WScript.echo("进入函数，传入参数为:" + url);

  85. 		oHttp.send("");

  86. 

  87. 		

  88. 		if (oHttp.readyState == 4) {

  89. 			WScript.echo("内容获取完毕");

  90. 			//WScript.echo(oHttp.responseText);

  91. 			var oStream = new ActiveXObject("adodb.stream");

  92. 			oStream.Open();

  93. 			oStream.Type = 1;

  94. 			oStream.Write(oHttp.responseBody);

  95. 			oStream.Position = 0;

  96. 			

  97. 			var fso = new ActiveXObject("scripting.filesystemobject");

  98. 			if (fso.fileExists(fileName)) fso.deleteFile(fileName);

  99. 			

  100. 			oStream.SaveToFile(fileName);

  101. 			WScript.Echo("写入文件:" + fileName);

  102. 			oStream.close();

  103. 		} else {

  104. 			WScript.Echo("内容获取失败");

  105. 		}

  106. 		

  107. 	}catch (e){

  108. 		WScript.echo(e.message);

  109. 	}

  110. }

  111. 

  112. 

  113. function GetFileContent(fil){

  114. 		var oStream1 = new ActiveXObject("adodb.stream");

  115. 		oStream1.open();

  116. 		oStream1.charset = "GBK";

  117. 		oStream1.Type = 2;

  118. 		oStream1.LoadFromFile(fil);

  119. 		

  120. 		content = oStream1.ReadText();

  121. 		oStream1.Close();

  122. 		

  123. 		//WScript.Echo(content);

  124. 		return content;

  125. }

  126. 

  127. 

  128. function GetRegStr(fil, regStr){

  129. 	//WScript.echo("正则表达式内容 : " + regStr);

  130. 	var reg = new RegExp(regStr, "g");

  131. 	var content = GetFileContent(fil);

  132. 	var ret = "";

  133. 	

  134. 	while ((collection = reg.exec(content)) != null) {

  135. 		//WScript.echo("正则匹配成功");

  136. 		ret += collection[1] + "\r\n";

  137. 		//WScript.echo(collection[1]);

  138. 	}

  139. 	

  140. 	WScript.Echo(ret);

  141. 	return ret;

  142. }
复制代码

TOP

amwfjhh

Rank: 4

帖子
314 
积分
408 
技术
19  
捐助
0  
注册时间
2014-11-3 
3楼
发表于 2015-1-15 09:59 | 显示全部帖子
回复 11# 宫商角徵羽


    那只是提供一种解题思路，如何在不用第三方程序，仅靠微软的脚本便将之办到的情况，其实你说的问题都可以解决，代码写那么长也是为可扩展而那么写的，在BAT里面给几个页面的初始化变量，然后在JS脚本里面调用正则表达式，解析页面元素，下载相应内容。你说的要求，其实改一下初始页面，或者多几步解析页面的代码就可以了。至于按日期命名下载文件，就更不是事了……

TOP

amwfjhh

Rank: 4

帖子
314 
积分
408 
技术
19  
捐助
0  
注册时间
2014-11-3 
4楼
发表于 2015-1-15 11:27 | 显示全部帖子
本帖最后由 amwfjhh 于 2015-1-15 11:38 编辑

回复 11# 宫商角徵羽


    主体内容不变，只小改一下批处理中的调用即可达到你要的目的：
  1. @if (0)==(0) echo off

  2. setlocal enabledelayedexpansion

  3. 

  4. echo,取得最新一期视频播放地址

  5. cscript -nologo -e:jscript %~s0 DownloadFile "http://cctv.cntv.cn/lm/huanqiucaijinglianxian/" "$"

  6. for /f "delims=" %%i in ('cscript -nologo -e:jscript %~s0 GetRegStr "$" "<a\shref='([^']+)'\starget='_blank'\stitle=''>[^<]+</a>"') do (

  7.   echo,%%i&echo,&echo,

  8.   set "strVideoUrl=%%i"

  9.   goto :next

  10. )

  11. 

  12. :next

  13. echo,传入视频播放地址，获取分析结果

  14. cscript -nologo -e:jscript %~s0 GetWebContent "!strVideoUrl!" "$"

  15. echo,&echo,

  16. set /a index=0

  17. for /f "delims=" %%i in ('cscript -nologo -e:jscript %~s0 GetRegStr "$" "<BR><a\shref='([^']+)'[^>]+>[^<]+</a>"') do (

  18.   set /a index+=1

  19.   echo,!index! : %%i

  20.   CScript -nologo -E:jscript %~s0 DownloadFile "%%i" "%cd%\%date:~0,10%_!index!.mp4"

  21.   echo,&echo,

  22. )

  23. 

  24. :end

  25. del /f $

  26. pause & goto :EOF

  27. 

  28. @end

  29. 

  30. var fun = WScript.arguments(0);

  31. switch (fun){

  32. case "GetWebContent":

  33.   if (WScript.arguments.length < 3) {

  34.     WScript.Echo("参数个数错误");

  35.     WScript.quit();

  36.   }

  37.   var url = WScript.arguments(1);

  38.   var fil = WScript.arguments(2);

  39.   GetWebContent(GetEncodeURIComponentStr(url), fil);

  40.   break;

  41.   

  42. case "DownloadFile":

  43.   if (WScript.arguments.length < 3) {

  44.     WScript.echo("参数个数错误");

  45.     WScript.quit();

  46.   }

  47.   var url = WScript.arguments(1);// + "?wshc_tag=1&wsts_tag=54b5d817&wsid_tag=abd9364e&wsiphost=ipdbm";

  48.   var fil = WScript.arguments(2);

  49.   GetWebContent(url, fil);

  50.   break;

  51.   

  52. case "GetEncodeURIComponentStr":

  53.   if (WScript.arguments.length < 2) {

  54.     WScript.echo("参数个数错误");

  55.     WScript.quit();

  56.   }

  57.   var url = WScript.arguments(1);

  58.   GetEncodeURIComponentStr(url);

  59.   break;

  60.   

  61. case "GetFileContent":

  62.   if (WScript.arguments.length < 2) {

  63.     WScript.Echo("参数个数错误");

  64.     WScript.quit();

  65.   }

  66.   var fil = WScript.arguments(1);

  67.   GetFileContent(fil);

  68.   break;

  69.   

  70. case "GetRegStr":

  71.   if (WScript.arguments.length < 3) {

  72.     WScript.Echo("参数个数错误");

  73.     WScript.quit();

  74.   }

  75.   var fil = WScript.arguments(1);

  76.   var regStr = WScript.arguments(2);

  77.   regStr = regStr.replace(/'/g, "\"");

  78.   GetRegStr(fil, regStr);

  79.   break;

  80.   

  81. default:;

  82. }

  83. 

  84. 

  85. function GetEncodeURIComponentStr(url){

  86.   var encodeUrl = encodeURIComponent(url);

  87.   var webUrl = "http://www.flvcd.com/parse.php?format=&kw="

  88.   webUrl += encodeUrl;

  89.   WScript.echo(webUrl);

  90.   return webUrl;

  91. }

  92. 

  93. function GetWebContent(url, fileName){

  94.   try{

  95.     var oHttp = new ActiveXObject("MSXML2.ServerXMLHTTP.4.0");

  96.     oHttp.setProxy(1);

  97.     oHttp.open("Get", url, false);

  98.     WScript.echo("进入函数，传入参数为:" + url);

  99.     oHttp.send("");

  100. 

  101.     

  102.     if (oHttp.readyState == 4) {

  103.       WScript.echo("内容获取完毕");

  104.       //WScript.echo(oHttp.responseText);

  105.       var oStream = new ActiveXObject("adodb.stream");

  106.       oStream.Open();

  107.       oStream.Type = 1;

  108.       oStream.Write(oHttp.responseBody);

  109.       oStream.Position = 0;

  110.       

  111.       var fso = new ActiveXObject("scripting.filesystemobject");

  112.       if (fso.fileExists(fileName)) fso.deleteFile(fileName);

  113.       

  114.       oStream.SaveToFile(fileName);

  115.       WScript.Echo("写入文件:" + fileName);

  116.       oStream.close();

  117.     } else {

  118.       WScript.Echo("内容获取失败");

  119.     }

  120.     

  121.   }catch (e){

  122.     WScript.echo(e.message);

  123.   }

  124. }

  125. 

  126. 

  127. function GetFileContent(fil){

  128.     var oStream1 = new ActiveXObject("adodb.stream");

  129.     oStream1.open();

  130.     oStream1.charset = "GBK";

  131.     oStream1.Type = 2;

  132.     oStream1.LoadFromFile(fil);

  133.     

  134.     content = oStream1.ReadText();

  135.     oStream1.Close();

  136.     

  137.     //WScript.Echo(content);

  138.     return content;

  139. }

  140. 

  141. 

  142. function GetRegStr(fil, regStr){

  143.   //WScript.echo("正则表达式内容 : " + regStr);

  144.   var reg = new RegExp(regStr, "g");

  145.   var content = GetFileContent(fil);

  146.   var ret = "";

  147.   

  148.   while ((collection = reg.exec(content)) != null) {

  149.     //WScript.echo("正则匹配成功");

  150.     ret += collection[1] + "\r\n";

  151.     //WScript.echo(collection[1]);

  152.   }

  153.   

  154.   WScript.Echo(ret);

  155.   return ret;

  156. }
复制代码

TOP

amwfjhh

Rank: 4

帖子
314 
积分
408 
技术
19  
捐助
0  
注册时间
2014-11-3 
5楼
发表于 2015-1-15 15:14 | 显示全部帖子
写入失败，是已有文件存在吗？你新建一个文件夹，在里面执行程序试试。

TOP

amwfjhh

Rank: 4

帖子
314 
积分
408 
技术
19  
捐助
0  
注册时间
2014-11-3 
6楼
发表于 2015-1-15 15:18 | 显示全部帖子
想到一种可能，也许是文件名规则导致写入失败的，你看一下你的系统日期格式，在cmd里面echo %date%看看是什么？如果是 2014/01/15 这类字样可能就是它的问题了，加一个日期处理吧，把格式变为合法的文件名格式。

TOP

amwfjhh

Rank: 4

帖子
314 
积分
408 
技术
19  
捐助
0  
注册时间
2014-11-3 
7楼
发表于 2015-1-15 15:23 | 显示全部帖子 
  1. @if (0)==(0) echo off

  2. setlocal enabledelayedexpansion

  3. 

  4. echo,取得最新一期视频播放地址

  5. cscript -nologo -e:jscript %~s0 DownloadFile "http://cctv.cntv.cn/lm/huanqiucaijinglianxian/" "$"

  6. for /f "delims=" %%i in ('cscript -nologo -e:jscript %~s0 GetRegStr "$" "<a\shref='([^']+)'\starget='_blank'\stitle=''>[^<]+</a>"') do (

  7.   echo,%%i&echo,&echo,

  8.   set "strVideoUrl=%%i"

  9.   goto :next

  10. )

  11. 

  12. :next

  13. echo,传入视频播放地址，获取分析结果

  14. cscript -nologo -e:jscript %~s0 GetWebContent "!strVideoUrl!" "$"

  15. echo,&echo,

  16. set /a index=0

  17. set "today=%date:~0,10%"

  18. set "today=%today:/=%"

  19. set "today=%today:-=%"

  20. for /f "delims=" %%i in ('cscript -nologo -e:jscript %~s0 GetRegStr "$" "<BR><a\shref='([^']+)'[^>]+>[^<]+</a>"') do (

  21.   set /a index+=1

  22.   echo,!index! : %%i

  23.   CScript -nologo -E:jscript %~s0 DownloadFile "%%i" "%cd%\%today%_!index!.mp4"

  24.   echo,&echo,

  25. )

  26. 

  27. :end

  28. del /f $

  29. pause & goto :EOF

  30. 

  31. @end

  32. 

  33. var fun = WScript.arguments(0);

  34. switch (fun){

  35. case "GetWebContent":

  36.   if (WScript.arguments.length < 3) {

  37.     WScript.echo("参数个数错误");

  38.     WScript.quit();

  39.   }

  40.   var url = WScript.arguments(1);

  41.   var fil = WScript.arguments(2);

  42.   GetWebContent(GetEncodeURIComponentStr(url), fil);

  43.   break;

  44.   

  45. case "DownloadFile":

  46.   if (WScript.arguments.length < 3) {

  47.     WScript.echo("参数个数错误");

  48.     WScript.quit();

  49.   }

  50.   var url = WScript.arguments(1);// + "?wshc_tag=1&wsts_tag=54b5d817&wsid_tag=abd9364e&wsiphost=ipdbm";

  51.   var fil = WScript.arguments(2);

  52.   GetWebContent(url, fil);

  53.   break;

  54.   

  55. case "GetEncodeURIComponentStr":

  56.   if (WScript.arguments.length < 2) {

  57.     WScript.echo("参数个数错误");

  58.     WScript.quit();

  59.   }

  60.   var url = WScript.arguments(1);

  61.   GetEncodeURIComponentStr(url);

  62.   break;

  63.   

  64. case "GetFileContent":

  65.   if (WScript.arguments.length < 2) {

  66.     WScript.echo("参数个数错误");

  67.     WScript.quit();

  68.   }

  69.   var fil = WScript.arguments(1);

  70.   GetFileContent(fil);

  71.   break;

  72.   

  73. case "GetRegStr":

  74.   if (WScript.arguments.length < 3) {

  75.     WScript.echo("参数个数错误");

  76.     WScript.quit();

  77.   }

  78.   var fil = WScript.arguments(1);

  79.   var regStr = WScript.arguments(2);

  80.   regStr = regStr.replace(/'/g, "\"");

  81.   GetRegStr(fil, regStr);

  82.   break;

  83.   

  84. default:;

  85. }

  86. 

  87. 

  88. function GetEncodeURIComponentStr(url){

  89.   var encodeUrl = encodeURIComponent(url);

  90.   var webUrl = "http://www.flvcd.com/parse.php?format=&kw="

  91.   webUrl += encodeUrl;

  92.   WScript.echo(webUrl);

  93.   return webUrl;

  94. }

  95. 

  96. function GetWebContent(url, fileName){

  97.   try{

  98.     var oHttp = new ActiveXObject("MSXML2.ServerXMLHTTP.4.0");

  99.     oHttp.setProxy(1);

  100.     oHttp.open("Get", url, false);

  101.     WScript.echo("进入函数，传入参数为:" + url);

  102.     oHttp.send("");

  103. 

  104.     

  105.     if (oHttp.readyState == 4) {

  106.       WScript.echo("内容获取完毕");

  107.       //WScript.echo(oHttp.responseText);

  108.       var oStream = new ActiveXObject("adodb.stream");

  109.       oStream.Open();

  110.       oStream.Type = 1;

  111.       oStream.Write(oHttp.responseBody);

  112.       oStream.Position = 0;

  113.       

  114.       var fso = new ActiveXObject("scripting.filesystemobject");

  115.       if (fso.fileExists(fileName)) fso.deleteFile(fileName);

  116.       

  117.       oStream.SaveToFile(fileName);

  118.       WScript.echo("写入文件:" + fileName);

  119.       oStream.close();

  120.     } else {

  121.       WScript.echo("内容获取失败");

  122.     }

  123.     

  124.   }catch (e){

  125.     WScript.echo(e.message);

  126.   }

  127. }

  128. 

  129. 

  130. function GetFileContent(fil){

  131.     var oStream1 = new ActiveXObject("adodb.stream");

  132.     oStream1.open();

  133.     oStream1.charset = "GBK";

  134.     oStream1.Type = 2;

  135.     oStream1.LoadFromFile(fil);

  136.     

  137.     content = oStream1.ReadText();

  138.     oStream1.Close();

  139.     

  140.     //WScript.echo(content);

  141.     return content;

  142. }

  143. 

  144. 

  145. function GetRegStr(fil, regStr){

  146.   //WScript.echo("正则表达式内容 : " + regStr);

  147.   var reg = new RegExp(regStr, "g");

  148.   var content = GetFileContent(fil);

  149.   var ret = "";

  150.   

  151.   while ((collection = reg.exec(content)) != null) {

  152.     //WScript.echo("正则匹配成功");

  153.     ret += collection[1] + "\r\n";

  154.     //WScript.echo(collection[1]);

  155.   }

  156.   

  157.   WScript.echo(ret);

  158.   return ret;

  159. }
复制代码

TOP

amwfjhh

Rank: 4

帖子
314 
积分
408 
技术
19  
捐助
0  
注册时间
2014-11-3 
8楼
发表于 2015-1-16 13:11 | 显示全部帖子
用格式工厂进行视频合并也可以，支持命令行。

TOP

amwfjhh

Rank: 4

帖子
314 
积分
408 
技术
19  
捐助
0  
注册时间
2014-11-3 
9楼
发表于 2015-1-17 18:14 | 显示全部帖子
对头，楼上说得对，你试试重新注册一下系统组件。

TOP

amwfjhh

Rank: 4

帖子
314 
积分
408 
技术
19  
捐助
0  
注册时间
2014-11-3 
10楼
发表于 2015-1-20 02:18 | 显示全部帖子
那应该是MSXML2.SEVERXMLHTTP.4.0这个组件问题了，百度下解决方案。

TOP

返回列表