利用批处理文件和vbs脚本实现网站视频自动录制
现在电视台基本上都有了自己的门户网站，我们可以充分利用网络的优势来扩大本地电视台的影响。事实上，将本地电视台的每日的王牌节目挂在网站上的做法已经成为建立电视台网站的必要组成步骤之一了。但随之而来的问题是：每天定时需要的手工录制过程，将给管理者带来极大的不便。在windows定时任务的基础上，将批处理程序与脚本程序有机的集合，就可以有效地解决这一问题。
1：建立压码任务
我们将使用一台带有视频采集卡的电脑来完成压码过程。虽然压码不是本文的重点，但还是有必要交代一下。主要就是使用helixproducerplus9建立一个压码参数文件，事实上它只是一个带有rpjf后缀的xml文件（图1）。需要注意的是，音频输入选项有线路输入与microphone输入两种，这需要与实际的接入线路相吻合；另外，不必选择2passvedioencoding选项，选择它除了显示一个warning外不会有任何效果；再者，因为现阶段绝大多数的网络接入模式为拨号和dsl，所以只需要生成56k和384k码率的视频文件；最后，录制完成的视频文件，其名称最好用日期来标识，比如：20060301.rm。
<?xmlversion="1.0"encoding="UTF-8"?>
<jobxmlns="http://ns.real.com/tools/job.1.0.1">
<enableTwoPasstype="bool">false</enableTwoPass>
<clipInfo>
<entry>
<name>Author</name>
<valuetype="string">ZSTV</value>
</entry>
<entry>
<name>Copyright</name>
<valuetype="string">(c)ZSTV2006</value>
</entry>
<entry>
<name>Keywords</name>
<valuetype="string">ZSNews[2006-03-21]</value>
</entry>
<entry>
<name>Title</name>
<valuetype="string">ZSNews[2006-03-21]</value>
</entry>
</clipInfo>
<input>
<captureInput>
<audioDeviceIDtype="string">Intel(r)IntegratedAudio</audioDeviceID>
....................................
我们可以建立一个名为shixian.bat的批处理文件来的调用上面所示的参数文件，内部具体如下：
producer-j"d:shixianshixian.rpjf"-daw-lc"e,i"
默认的录制过程会实时监控音频变化，并将它记录到一个叫producer.log的文件之中，但是产生的wanging记录很多，很快就使log文件变得巨大而且可能引起录制过程的意外中断，所以我们可以使用-daw参数关闭音频监视，再用lc“e,i”指明只记录错误和信息。这样做之后，录制过程就比较稳定了。
只要在计划中添加每日执行shixian.bat文件的任务，我们就会每天得到一个相同文件属性和名称的rm文件。在这里将每天产生一个带有2006-03-21属性的、名为20060321.rm文件。听起来很拗口，更糟糕的是这并没有减轻管理者的工作，因为他不得不每天打开服务器为其改名称。而且即便有幸雇佣了一名勤奋的管理员（他不介意每天做这样重复的事情），但他还是没办法更改文件中显示日期的属性，在这录制过程中已经决定了。除非…….
2：建立修改压码参数文件的任务
原理很简单：每天更新压码参数文件中与日期相关的xml字段。在这个例子里是文件显示日期的属性和文件名。下面就是用于更新日期字段的脚本代码：
dimregOR
setregOR=newregexp‘建立一个正则表达式对象
regOR.ignorecase=True‘忽略大小写
regOR.global=True‘搜索应用于整个字符串
regOR.pattern="^([0-9]{1})$"‘建立搜索模式为单数字表达式
dimmytime
mytime=date‘用date函数达到系统日期，并赋值给mydate
yy=year(mytime)‘提取系统日期中的年份
mm=month(mytime)‘提取系统日期中的月份
dd=day(mytime)‘提取系统日期中的日期
ifregOR.test(mm)then‘检测月份是否为单数字（一月到九月）
mm=regOR.replace(mm,"0$1")‘如果是，则在月份前添加0使其成为两个数字
endif
ifregOR.test(dd)then‘检测日期是否为单数字（一日到九日）
dd=regOR.replace(dd,"0$1")‘如果是，则在日期前添加0使其成为两个数字
endif
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
dimtempstring
Setfso=CreateObject("Scripting.FileSystemObject")‘建立系统文件对象
Setf=fso.CreateTextFile("d:shixiantemp.txt",True)‘新建名为temp的文本文件
Setfr=fso.GetFile("d:shixianshixian.rpjf")‘得到编码参数文件shixian.rpjf
Setts=fr.OpenAsTextStream(1,-2)‘将参数文件以只读文本形式打开
dountilts.AtEndOfStream‘建立循环，直到参数文件读取完毕
tempstring=ts.readline‘以行为单位读取参数文件
ifregOR.test(tempstring)then‘搜索改行参数是否存在日期字段
tempstring=regOR.replace(tempstring,"$1"&mytime&"$3")‘如存在，则更新
endif
regOR.pattern=pattern2‘建立搜索模式为pattern2
ifregOR.test(tempstring)then‘搜索改行参数是否存在日期字段
tempstring=regOR.replace(tempstring,"$1"&dest&"$3")‘如存在，则更新
endif
regOR.pattern=pattern1‘重新建立搜索模式为pattern1
f.writeline(tempstring)‘将更新后的数据写入temp.txt文件
loop
ts.close‘以下是关闭和注销各个对象
f.close
setregOR=nothing
setts=nothing
setfr=nothing
setf=nothing
setfso=nothing
要说明的是为什么要在单数字的月份和日期前加0。打个比方比较容易说明：如果不加0，那么对于一个名为2006111.rm的文件，它究竟是指2006年1月11日还是2006年11月1日呢？加0后变成20060111.rm就一目了然了，是前者。
以上这段脚本代码的具体功能是将参数文件中的数据以行为单位导入到一个临时的文本文件中，实时监视与时间相关的xml字段并加以更新，最后在生成一个temp.txt的文件。之后我们要做的无非就是用一个批处理文件调用脚本，再删除旧的参数文件，最后将temp.txt重命名为参数文件。
这就是update.bat批处理文件中的代码：
@echooff
d:shixianupdate.vbs
ifexist"d:shixianshixian.rpjf"del"d:shixianshixian.rpjf"
ifexist"d:shixiantemp.txt"renamed:shixiantemp.txtshixian.rpjf
和第一节中一样，还是要将这个update.bat的批处理文件添加到计划与任务中，以便每日定时启动。
3：建立自动传输任务
为了确保稳定，通常压码服务器与网站服务器是分离的，这就需要我们每日将录制的视频文件传输到网站服务器上。批处理文件中的ftp命令可以完美的实现这一功能。
以下就是transfer.bat批处理中的代码：
@echooff
ftp-s:media.txt
ifexist"d:shixianshixian20060321.rm"deld:shixianshixian20060321.rm
考虑到SCSI硬盘惊人的价格，压码服务器的硬盘空间不必太大，最后一行的作用就是删除压码服务器中的视频文件，以节省空间。Media.txt是一个ftp参数文件，其中记录了ftp登陆服务器的名称、用户名、密码和相关的操作，具体形式如下：
open/服务器名称或IP地址/
/用户名/
/用户密码/
put/要传输的文件名/
quit
很明显，以上的各段代码中不乏需要更新的日期文字表达式。同样的道理，我们也需要使用一个类似的更新脚本，具体代码就不重复了。
4：一些改进的意见
1：使用mediaplayer也可实现压码的功能。
2：在更新脚本中，用在声明和注销对象上的代码有好几行，如果使用perl可以大为简化。因为是perl提供了一系列操作符号来实现正则表达式的功能，而事实上perl就是为了处理文本而生的。
open(RPJF,"<c:/code/10161.rpjf")ordie("cannotopenbecauseof$!n");
open(TEMP,">c:/code/temp.txt")ordie("cannotopenbecauseof$!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/;
printTEMP"$_n";
}
close(RPJF);
close(TEMP);
3：使用磁盘映射能够更加方便的实现文件的传输，不过需要考虑安全问题。