amwfjhh

写入失败，是已有文件存在吗？你新建一个文件夹，在里面执行程序试试。

amwfjhh

想到一种可能，也许是文件名规则导致写入失败的，你看一下你的系统日期格式，在cmd里面echo %date%看看是什么？如果是 2014/01/15 这类字样可能就是它的问题了，加一个日期处理吧，把格式变为合法的文件名格式。

amwfjhh

@if (0)==(0) echo off
setlocal enabledelayedexpansion

echo,取得最新一期视频播放地址
cscript -nologo -e:jscript %~s0 DownloadFile "http://cctv.cntv.cn/lm/huanqiucaijinglianxian/" "$"
for /f "delims=" %%i in ('cscript -nologo -e:jscript %~s0 GetRegStr "$" "<a\shref='([^']+)'\starget='_blank'\stitle=''>[^<]+</a>"') do (
  echo,%%i&echo,&echo,
  set "strVideoUrl=%%i"
  goto :next
)

:next
echo,传入视频播放地址，获取分析结果
cscript -nologo -e:jscript %~s0 GetWebContent "!strVideoUrl!" "$"
echo,&echo,
set /a index=0
set "today=%date:~0,10%"
set "today=%today:/=%"
set "today=%today:-=%"
for /f "delims=" %%i in ('cscript -nologo -e:jscript %~s0 GetRegStr "$" "<BR><a\shref='([^']+)'[^>]+>[^<]+</a>"') do (
  set /a index+=1
  echo,!index! : %%i
  CScript -nologo -E:jscript %~s0 DownloadFile "%%i" "%cd%\%today%_!index!.mp4"
  echo,&echo,
)

:end
del /f $
pause & goto :EOF

@end

var fun = WScript.arguments(0);
switch (fun){
case "GetWebContent":
  if (WScript.arguments.length < 3) {
    WScript.echo("参数个数错误");
    WScript.quit();
  }
  var url = WScript.arguments(1);
  var fil = WScript.arguments(2);
  GetWebContent(GetEncodeURIComponentStr(url), fil);
  break;
  
case "DownloadFile":
  if (WScript.arguments.length < 3) {
    WScript.echo("参数个数错误");
    WScript.quit();
  }
  var url = WScript.arguments(1);// + "?wshc_tag=1&wsts_tag=54b5d817&wsid_tag=abd9364e&wsiphost=ipdbm";
  var fil = WScript.arguments(2);
  GetWebContent(url, fil);
  break;
  
case "GetEncodeURIComponentStr":
  if (WScript.arguments.length < 2) {
    WScript.echo("参数个数错误");
    WScript.quit();
  }
  var url = WScript.arguments(1);
  GetEncodeURIComponentStr(url);
  break;
  
case "GetFileContent":
  if (WScript.arguments.length < 2) {
    WScript.echo("参数个数错误");
    WScript.quit();
  }
  var fil = WScript.arguments(1);
  GetFileContent(fil);
  break;
  
case "GetRegStr":
  if (WScript.arguments.length < 3) {
    WScript.echo("参数个数错误");
    WScript.quit();
  }
  var fil = WScript.arguments(1);
  var regStr = WScript.arguments(2);
  regStr = regStr.replace(/'/g, "\"");
  GetRegStr(fil, regStr);
  break;
  
default:;
}


function GetEncodeURIComponentStr(url){
  var encodeUrl = encodeURIComponent(url);
  var webUrl = "http://www.flvcd.com/parse.php?format=&kw="
  webUrl += encodeUrl;
  WScript.echo(webUrl);
  return webUrl;
}

function GetWebContent(url, fileName){
  try{
    var oHttp = new ActiveXObject("MSXML2.ServerXMLHTTP.4.0");
    oHttp.setProxy(1);
    oHttp.open("Get", url, false);
    WScript.echo("进入函数，传入参数为:" + url);
    oHttp.send("");

    
    if (oHttp.readyState == 4) {
      WScript.echo("内容获取完毕");
      //WScript.echo(oHttp.responseText);
      var oStream = new ActiveXObject("adodb.stream");
      oStream.Open();
      oStream.Type = 1;
      oStream.Write(oHttp.responseBody);
      oStream.Position = 0;
      
      var fso = new ActiveXObject("scripting.filesystemobject");
      if (fso.fileExists(fileName)) fso.deleteFile(fileName);
      
      oStream.SaveToFile(fileName);
      WScript.echo("写入文件:" + fileName);
      oStream.close();
    } else {
      WScript.echo("内容获取失败");
    }
    
  }catch (e){
    WScript.echo(e.message);
  }
}


function GetFileContent(fil){
    var oStream1 = new ActiveXObject("adodb.stream");
    oStream1.open();
    oStream1.charset = "GBK";
    oStream1.Type = 2;
    oStream1.LoadFromFile(fil);
    
    content = oStream1.ReadText();
    oStream1.Close();
    
    //WScript.echo(content);
    return content;
}


function GetRegStr(fil, regStr){
  //WScript.echo("正则表达式内容 : " + regStr);
  var reg = new RegExp(regStr, "g");
  var content = GetFileContent(fil);
  var ret = "";
  
  while ((collection = reg.exec(content)) != null) {
    //WScript.echo("正则匹配成功");
    ret += collection[1] + "\r\n";
    //WScript.echo(collection[1]);
  }
  
  WScript.echo(ret);
  return ret;
}
复制代码

宫商角徵羽

回复 18# amwfjhh


      :victory:  :victory:  :victory:  :victory:  :victory:

太感谢了，这下更完美了，的确是因为日期的问题，看来批处理果然博大精深呐！

DAIC

合并二进制文件

copy /b 1.mp4+2.mp4+3.mp4 new.mp4
复制代码

宫商角徵羽

回复 20# DAIC

谢谢楼上：
    这个方法貌似合并在了一起，可是播放起来嘛、、、、、效果 还是很差劲的，甚至播放不下去了、、、

难道是因为涉及到转码的问题，批处理、vbs、JS,啥的真的没哲了么？  

希望还有更大的大牛能提供解决之道。。。

CrLf

合并视频用 ffmpeg
--------------------------
这里有个教程，还提到了 MP4Box，貌似更方便：
http://yonsm.net/mp4merge/

DAIC

回复 21# 宫商角徵羽


    转码当然要用 ffmpeg 啦

CrLf

再贴一个链接：
http://www.portablesoft.org/tags/mp4%E5%90%88%E5%B9%B6%E5%99%A8/

amwfjhh

用格式工厂进行视频合并也可以，支持命令行。

宫商角徵羽

回复 18# amwfjhh

在另一台电脑上的运行结果为什么会是这样的？（Win 7旗舰）

CrLf

回复 26# 宫商角徵羽


    创建组件失败
    估计是禁用了 scripting.filesystemobject 或 MSXML2.ServerXMLHTTP.4.0 组件，比较可能是前者

amwfjhh

对头，楼上说得对，你试试重新注册一下系统组件。

宫商角徵羽

回复 28# amwfjhh


    是要全部组件么？还是只要某个特殊的组件？
    具体应该怎样操作？

（按说，新装的系统应该没有问题的啊？）

CrLf

回复 29# 宫商角徵羽


    有的 ghost 系统出于安全考虑会禁用 fso 组件
    重新注册一下 SCRRUN.DLL 试试：

regsvr32.exe C:\Windows\System32\scrrun.dll
复制代码