利用批处理文件和 vbs 脚本实现网站视频自动录制

来源:互联网 分类:VB
利用批处理文件和 vbs 脚本实现网站视频自动录制  




现在电视台基本上都有了自己的门户网站,我们可以充分利用网络的优势来扩大本地电视台的影响。事实上,将本地电视台的每日的王牌节目挂在网站上的做法已经成为建立电视台网站的必要组成步骤之一了。但随之而来的问题是:每天定时需要的手工录制过程,将给管理者带来极大的不便。在 windows 定时任务的基础上,将批处理程序与脚本程序有机的集合,就可以有效地解决这一问题。 

  

1 :建立压码任务 

我们将使用一台带有视频采集卡的电脑来完成压码过程。虽然压码不是本文的重点,但还是有必要交代一下。主要就是使用 helix producer plus9 建立一个压码参数文件,事实上它只是一个带有 rpjf 后缀的 xml 文件(图 1 )。需要注意的是,音频输入选项有线路输入与 microphone 输入两种,这需要与实际的接入线路相吻合;另外,不必选择 2 pass vedio encoding 选项,选择它除了显示一个 warning 外不会有任何效果;再者,因为现阶段绝大多数的网络接入模式为拨号和 dsl ,所以只需要生成 56k 和 384k 码率的视频文件;最后,录制完成的视频文件,其名称最好用日期来标识,比如: 20060301.rm 。 

<?xml version="1.0" encoding="UTF-8"?>
<job xmlns="http://ns.real.com/tools/job.1.0.1">
  <enableTwoPass type="bool">false</enableTwoPass>
  <clipInfo>
    <entry>
      <name>Author</name>
      <value type="string">ZSTV</value>
    </entry>
    <entry>
      <name>Copyright</name>
      <value type="string">(c) ZSTV2006 </value>
    </entry>
    <entry>
      <name>Keywords</name>
      <value type="string">ZSNews[2006-03-21]</value>
    </entry>
    <entry>
      <name>Title</name>
      <value type="string">ZSNews[2006-03-21]</value>
    </entry>
  </clipInfo>
  <input>
    <captureInput>
      <audioDeviceID type="string">Intel(r) Integrated Audio</audioDeviceID>
....................................  

我们可以建立一个名为 shixian.bat 的批处理文件来的调用上面所示的参数文件,内部具体如下: 

producer -j "d:\shixian\shixian.rpjf" -daw -lc "e,i" 

默认的录制过程会实时监控音频变化,并将它记录到一个叫 producer.log 的文件之中,但是产生的 wanging 记录很多,很快就使 log 文件变得巨大而且可能引起录制过程的意外中断,所以我们可以使用 -daw 参数关闭音频监视,再用 lc “e,i” 指明只记录错误和信息。这样做之后,录制过程就比较稳定了。 

只要在计划中添加每日执行 shixian.bat 文件的任务,我们就会每天得到一个相同文件属性和名称的 rm 文件。在这里将每天产生一个带有 2006-03-21 属性的、名为 20060321.rm 文件。听起来很拗口,更糟糕的是这并没有减轻管理者的工作,因为他不得不每天打开服务器为其改名称。而且即便有幸雇佣了一名勤奋的管理员(他不介意每天做这样重复的事情),但他还是没办法更改文件中显示日期的属性,在这录制过程中已经决定了。除非 ……. 

  

2 :建立修改压码参数文件的任务 

原理很简单:每天更新压码参数文件中与日期相关的 xml 字段。在这个例子里是文件显示日期的属性和文件名。 下面就是用于更新日期字段的脚本代码: 

dim regOR 

set regOR=new regexp           ‘ 建立一个正则表达式对象 

regOR.ignorecase=True          ‘ 忽略大小写 

regOR.global=True              ‘ 搜索应用于整个字符串 

regOR.pattern="^([0-9]{1})$"     ‘ 建立搜索模式为单数字表达式 

dim mytime 

mytime=date                   ‘ 用 date 函数达到系统日期,并赋值给 mydate 

yy=year(mytime)                ‘ 提取系统日期中的年份 

mm=month(mytime)             ‘ 提取系统日期中的月份 

dd=day(mytime)                ‘ 提取系统日期中的日期 

if regOR.test(mm) then           ‘ 检测月份是否为单数字(一月到九月) 

mm=regOR.replace(mm,"0$1")    ‘ 如果是,则在月份前添加 0 使其成为两个数字 

end if 

if regOR.test(dd) then            ‘ 检测日期是否为单数字(一日到九日) 

dd=regOR.replace(dd,"0$1")      ‘ 如果是,则在日期前添加 0 使其成为两个数字 

end if 

mytime=yy & "-" & mm & "-" & dd   ‘ 合并年月日为 ”yy-mm-dd” 形式 

dest=yy & mm & dd                ‘ 合并年月日为 ”yymmdd” 形式 

pattern1="(.*[^0-9])([0-9]{4}\-[0-9]{2}\-[0-9]{2})([^0-9].*)" 

‘ 设定模式变量 pattern1 为 ”%d%d%d %d- %d %d -%d %d” 

pattern2="(.*[^0-9])([0-9]{8})([^0-9].*)"  ‘ 设定模式变量 pattern2 为 8 个连续数字 

regOR.pattern=pattern1           ‘ 建立搜索模式为 pattern1 

dim tempstring 

Set fso = CreateObject("Scripting.FileSystemObject")   ‘ 建立系统文件对象 

Set f = fso.CreateTextFile("d:\shixian\temp.txt", True)   ‘ 新建名为 temp 的文本文件 

Set fr = fso.GetFile("d:\shixian\shixian.rpjf")          ‘ 得到编码参数文件 shixian.rpjf 

Set ts = fr.OpenAsTextStream(1,-2)                 ‘ 将参数文件以只读文本形式打开 

do until ts.AtEndOfStream                 ‘ 建立循环,直到参数文件读取完毕 

tempstring=ts.readline                    ‘ 以行为单位读取参数文件 

if regOR.test(tempstring) then              ‘ 搜索改行参数是否存在日期字段 

tempstring=regOR.replace(tempstring,"$1" & mytime & "$3")  ‘ 如存在,则更新 

end if 

regOR.pattern=pattern2                   ‘ 建立搜索模式为 pattern2 

if regOR.test(tempstring) then              ‘ 搜索改行参数是否存在日期字段 

tempstring=regOR.replace(tempstring,"$1" & dest & "$3")  ‘ 如存在,则更新 

end if 

regOR.pattern=pattern1                  ‘ 重新建立搜索模式为 pattern1 

f.writeline(tempstring)                   ‘ 将更新后的数据写入 temp.txt 文件 

loop 

ts.close                               ‘以下是关闭和注销各个对象 

f.close 

set regOR=nothing 

set ts=nothing 

set fr=nothing 

set f=nothing 

set fso=nothing 

要说明的是为什么要在单数字的月份和日期前加 0 。打个比方比较容易说明:如果不加 0 ,那么对于一个名为 2006111.rm 的文件,它究竟是指 2006 年 1 月 11 日还是 2006 年 11 月 1 日呢?加 0 后变成 20060111.rm 就一目了然了,是前者。 

以上这段脚本代码的具体功能是将参数文件中的数据以行为单位导入到一个临时的文本文件中,实时监视与时间相关的 xml 字段并加以更新,最后在生成一个 temp.txt 的文件。之后我们要做的无非就是用一个批处理文件调用脚本,再删除旧的参数文件,最后将 temp.txt 重命名为参数文件。 

这就是 update.bat 批处理文件中的代码: 

@echo off 

d:\shixian\update.vbs 

if exist "d:\shixian\shixian.rpjf" del "d:\shixian\shixian.rpjf" 

if exist "d:\shixian\temp.txt" rename d:\shixian\temp.txt shixian.rpjf 

和第一节中一样,还是要将这个 update.bat 的批处理文件添加到计划与任务中,以便每日定时启动。 

  

3 :建立自动传输任务 

为了确保稳定,通常压码服务器与网站服务器是分离的,这就需要我们每日将录制的视频文件传输到网站服务器上。批处理文件中的 ftp 命令可以完美的实现这一功能。 

以下就是 transfer.bat 批处理中的代码: 

@echo off 

ftp -s:media.txt 

if exist "d:\shixian\shixian20060321.rm" del d:\shixian\shixian20060321.rm 

考虑到 SCSI 硬盘惊人的价格,压码服务器的硬盘空间不必太大,最后一行的作用就是删除压码服务器中的视频文件,以节省空间。 Media.txt 是一个 ftp 参数文件,其中记录了 ftp 登陆服务器的名称、用户名、密码和相关的操作,具体形式如下: 

open / 服务器名称或 IP 地址 / 

/ 用户名 / 

/ 用户密码 / 

put / 要传输的文件名 / 

quit 

很明显,以上的各段代码中不乏需要更新的日期文字表达式。同样的道理,我们也需要使用一个类似的更新脚本,具体代码就不重复了。 

  

4 :一些改进的意见 

1 :使用 media player 也可实现压码的功能。 

2 :在更新脚本中,用在声明和注销对象上的代码有好几行,如果使用 perl 可以大为简化。因为是 perl 提供了一系列操作符号来实现正则表达式的功能,而事实上 perl 就是为了处理文本而生的。
open(RPJF,"<c:/code/10161.rpjf") or die("can not open because of $!\n");
open(TEMP,">c:/code/temp.txt") or die("can not open because of $!\n");
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime();
$mday=sprintf("%.2d",$mday);
$mon=sprintf("%.2d",$mon+1);
$year+=1900;
$timerF="$year"."$mon"."$mday";
$timerS="$year"."-"."$mon"."-"."$mday";
while(<RPJF>){
chomp();
$_=~s/(.*)([0-9]{8})(.*)/$1$timerF$3/;
$_=~s/(.*)([0-9]{4}\-[0-9]{2}\-[0-9]{2})(.*)/$1$timerS$3/;
print TEMP "$_\n";
}
close(RPJF);
close(TEMP);
3 :使用磁盘映射能够更加方便的实现文件的传输,不过需要考虑安全问题。