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

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