久久精品亚洲麻豆av一区二区,亚洲影视中文字幕,亚洲高清一区二

主頁(yè) > 知識(shí)庫(kù) > 利用批處理文件和 vbs 腳本實(shí)現(xiàn)網(wǎng)站視頻自動(dòng)錄制

利用批處理文件和 vbs 腳本實(shí)現(xiàn)網(wǎng)站視頻自動(dòng)錄制

利用批處理文件和 vbs 腳本實(shí)現(xiàn)網(wǎng)站視頻自動(dòng)錄制

現(xiàn)在電視臺(tái)基本上都有了自己的門戶網(wǎng)站，我們可以充分利用網(wǎng)絡(luò)的優(yōu)勢(shì)來(lái)擴(kuò)大本地電視臺(tái)的影響。事實(shí)上，將本地電視臺(tái)的每日的王牌節(jié)目掛在網(wǎng)站上的做法已經(jīng)成為建立電視臺(tái)網(wǎng)站的必要組成步驟之一了。但隨之而來(lái)的問(wèn)題是：每天定時(shí)需要的手工錄制過(guò)程，將給管理者帶來(lái)極大的不便。在 windows 定時(shí)任務(wù)的基礎(chǔ)上，將批處理程序與腳本程序有機(jī)的集合，就可以有效地解決這一問(wèn)題。



1 ：建立壓碼任務(wù)

我們將使用一臺(tái)帶有視頻采集卡的電腦來(lái)完成壓碼過(guò)程。雖然壓碼不是本文的重點(diǎn)，但還是有必要交代一下。主要就是使用 helix producer plus9 建立一個(gè)壓碼參數(shù)文件，事實(shí)上它只是一個(gè)帶有 rpjf 后綴的 xml 文件（圖 1 ）。需要注意的是，音頻輸入選項(xiàng)有線路輸入與 microphone 輸入兩種，這需要與實(shí)際的接入線路相吻合；另外，不必選擇 2 pass vedio encoding 選項(xiàng)，選擇它除了顯示一個(gè) warning 外不會(huì)有任何效果；再者，因?yàn)楝F(xiàn)階段絕大多數(shù)的網(wǎng)絡(luò)接入模式為撥號(hào)和 dsl ，所以只需要生成 56k 和 384k 碼率的視頻文件；最后，錄制完成的視頻文件，其名稱最好用日期來(lái)標(biāo)識(shí)，比如： 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>
....................................

我們可以建立一個(gè)名為 shixian.bat 的批處理文件來(lái)的調(diào)用上面所示的參數(shù)文件，內(nèi)部具體如下：

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

默認(rèn)的錄制過(guò)程會(huì)實(shí)時(shí)監(jiān)控音頻變化，并將它記錄到一個(gè)叫 producer.log 的文件之中，但是產(chǎn)生的 wanging 記錄很多，很快就使 log 文件變得巨大而且可能引起錄制過(guò)程的意外中斷，所以我們可以使用 -daw 參數(shù)關(guān)閉音頻監(jiān)視，再用 lc “e,i” 指明只記錄錯(cuò)誤和信息。這樣做之后，錄制過(guò)程就比較穩(wěn)定了。

只要在計(jì)劃中添加每日?qǐng)?zhí)行 shixian.bat 文件的任務(wù)，我們就會(huì)每天得到一個(gè)相同文件屬性和名稱的 rm 文件。在這里將每天產(chǎn)生一個(gè)帶有 2006-03-21 屬性的、名為 20060321.rm 文件。聽起來(lái)很拗口，更糟糕的是這并沒(méi)有減輕管理者的工作，因?yàn)樗坏貌幻刻齑蜷_服務(wù)器為其改名稱。而且即便有幸雇傭了一名勤奮的管理員（他不介意每天做這樣重復(fù)的事情），但他還是沒(méi)辦法更改文件中顯示日期的屬性，在這錄制過(guò)程中已經(jīng)決定了。除非 …….



2 ：建立修改壓碼參數(shù)文件的任務(wù)

原理很簡(jiǎn)單：每天更新壓碼參數(shù)文件中與日期相關(guān)的 xml 字段。在這個(gè)例子里是文件顯示日期的屬性和文件名。下面就是用于更新日期字段的腳本代碼：

dim regOR

set regOR=new regexp           ‘ 建立一個(gè)正則表達(dá)式對(duì)象

regOR.ignorecase=True          ‘ 忽略大小寫

regOR.global=True              ‘ 搜索應(yīng)用于整個(gè)字符串

regOR.pattern="^([0-9]{1})$"     ‘ 建立搜索模式為單數(shù)字表達(dá)式

dim mytime

mytime=date                   ‘ 用 date 函數(shù)達(dá)到系統(tǒng)日期，并賦值給 mydate

yy=year(mytime)                ‘ 提取系統(tǒng)日期中的年份

mm=month(mytime)             ‘ 提取系統(tǒng)日期中的月份

dd=day(mytime)                ‘ 提取系統(tǒng)日期中的日期

if regOR.test(mm) then           ‘ 檢測(cè)月份是否為單數(shù)字（一月到九月）

mm=regOR.replace(mm,"0$1")    ‘ 如果是，則在月份前添加 0 使其成為兩個(gè)數(shù)字

end if

if regOR.test(dd) then            ‘ 檢測(cè)日期是否為單數(shù)字（一日到九日）

dd=regOR.replace(dd,"0$1")      ‘ 如果是，則在日期前添加 0 使其成為兩個(gè)數(shù)字

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].*)"

‘ 設(shè)定模式變量 pattern1 為 ”%d%d%d %d- %d %d -%d %d”

pattern2="(.*[^0-9])([0-9]{8})([^0-9].*)"  ‘ 設(shè)定模式變量 pattern2 為 8 個(gè)連續(xù)數(shù)字

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

dim tempstring

Set fso = CreateObject("Scripting.FileSystemObject")   ‘ 建立系統(tǒng)文件對(duì)象

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

Set fr = fso.GetFile("d:\shixian\shixian.rpjf")          ‘ 得到編碼參數(shù)文件 shixian.rpjf

Set ts = fr.OpenAsTextStream(1,-2)                 ‘ 將參數(shù)文件以只讀文本形式打開

do until ts.AtEndOfStream                 ‘ 建立循環(huán)，直到參數(shù)文件讀取完畢

tempstring=ts.readline                    ‘ 以行為單位讀取參數(shù)文件

if regOR.test(tempstring) then              ‘ 搜索改行參數(shù)是否存在日期字段

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

end if

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

if regOR.test(tempstring) then              ‘ 搜索改行參數(shù)是否存在日期字段

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

end if

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

f.writeline(tempstring)                   ‘ 將更新后的數(shù)據(jù)寫入 temp.txt 文件

loop

ts.close                               ‘以下是關(guān)閉和注銷各個(gè)對(duì)象

f.close

set regOR=nothing

set ts=nothing

set fr=nothing

set f=nothing

set fso=nothing

要說(shuō)明的是為什么要在單數(shù)字的月份和日期前加 0 。打個(gè)比方比較容易說(shuō)明：如果不加 0 ，那么對(duì)于一個(gè)名為 2006111.rm 的文件，它究竟是指 2006 年 1 月 11 日還是 2006 年 11 月 1 日呢？加 0 后變成 20060111.rm 就一目了然了，是前者。

以上這段腳本代碼的具體功能是將參數(shù)文件中的數(shù)據(jù)以行為單位導(dǎo)入到一個(gè)臨時(shí)的文本文件中，實(shí)時(shí)監(jiān)視與時(shí)間相關(guān)的 xml 字段并加以更新，最后在生成一個(gè) temp.txt 的文件。之后我們要做的無(wú)非就是用一個(gè)批處理文件調(diào)用腳本，再刪除舊的參數(shù)文件，最后將 temp.txt 重命名為參數(shù)文件。

這就是 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

和第一節(jié)中一樣，還是要將這個(gè) update.bat 的批處理文件添加到計(jì)劃與任務(wù)中，以便每日定時(shí)啟動(dòng)。



3 ：建立自動(dòng)傳輸任務(wù)

為了確保穩(wěn)定，通常壓碼服務(wù)器與網(wǎng)站服務(wù)器是分離的，這就需要我們每日將錄制的視頻文件傳輸?shù)骄W(wǎng)站服務(wù)器上。批處理文件中的 ftp 命令可以完美的實(shí)現(xiàn)這一功能。

以下就是 transfer.bat 批處理中的代碼：

@echo off

ftp -s:media.txt

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

考慮到 SCSI 硬盤驚人的價(jià)格，壓碼服務(wù)器的硬盤空間不必太大，最后一行的作用就是刪除壓碼服務(wù)器中的視頻文件，以節(jié)省空間。 Media.txt 是一個(gè) ftp 參數(shù)文件，其中記錄了 ftp 登陸服務(wù)器的名稱、用戶名、密碼和相關(guān)的操作，具體形式如下：

open / 服務(wù)器名稱或 IP 地址 /

/ 用戶名 /

/ 用戶密碼 /

put / 要傳輸?shù)奈募?nbsp;/

quit

很明顯，以上的各段代碼中不乏需要更新的日期文字表達(dá)式。同樣的道理，我們也需要使用一個(gè)類似的更新腳本，具體代碼就不重復(fù)了。



4 ：一些改進(jìn)的意見

1 ：使用 media player 也可實(shí)現(xiàn)壓碼的功能。

2 ：在更新腳本中，用在聲明和注銷對(duì)象上的代碼有好幾行，如果使用 perl 可以大為簡(jiǎn)化。因?yàn)槭?nbsp;perl 提供了一系列操作符號(hào)來(lái)實(shí)現(xiàn)正則表達(dá)式的功能，而事實(shí)上 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 ：使用磁盤映射能夠更加方便的實(shí)現(xiàn)文件的傳輸，不過(guò)需要考慮安全問(wèn)題。

標(biāo)簽：懷化麗江公主嶺內(nèi)江天津成都重慶臺(tái)灣

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《利用批處理文件和 vbs 腳本實(shí)現(xiàn)網(wǎng)站視頻自動(dòng)錄制》，本文關(guān)鍵詞利用,批處理,文件,和,vbs,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無(wú)關(guān)。