vbs脚本怎么停止iPad中的OPlayer只支持srt格式的字幕，而动画一般使用的是ass/ssa格式的字幕，所以需要将ass/ssa批量转换srt。
Google了一下，在《ass2srt[ass/ssa批量转换srt]》中到一个ass2srt.wsf脚本，内容如下：
?12345678910111213141516171819202122232425262728293031323334353637383940414 24344454647484950515253545556e(rg,""); rg =/(; t3 = t3.replace(rg,"{" + "$1"); } </Script> <script language="VBScript"> set ad=CreateObject("adodb.stream") set af=CreateObject("adodb.stream") set ass=CreateObject("adodb.stream") ad.open af.open ass.open ad.Charset=cInput af.Charset=cOutput ass.Charset=cOutput Set objArgs = WScript.Arguments For I = 0 to objArgs.Count -    1 ad.LoadFromFile(objArgs(I)) z=0 gg=left(objArgs(I),len(objArgs(I))-3)&"srt" Do s <> True ss =ad.ReadText(-2) if left(ss,8)="Dialogue" then ss=replace(ss,",,",",d,") rrr t3=replace(t3,"\n",vbcrlf) t3=replace(t3,"\N",vbcrlf) z=z+1 af.writetext z,1 af.writetext t1 & " --> " & t2,1 af.writetext t3 & vbcrlf & vbcrlf else ass.writetext ss,1 end if Loop af.savetofile gg,2 ass.savetofile gg&".style",2 Next if i=0 then msgbox "Please drag files to me!",,"Error!" else msgbox "Converted "&i&" file(s).",,"All Over!" end if </Script> </job>
Windows 脚本(.wsf) 文件是一个包含可扩展标记语言(XML)代码的文本文档，它结合了若干功能，提高了
脚本编程的灵活性。由于Windows 脚本文件并不局限于特定的引擎，它们能够包含所有遵循ActiveX(R)规范的脚本引擎的脚本。
上面的脚本文件同时包含了JScript和VBScript的代码。问题在于，有这个必要么？单纯用JScript或者VBScript都可以实现，为什么要混用不同的语言呢？JScript在代码中的作用仅仅是正则表达式而已，一个合理的推断是作者不会VBScript的正则表达式，或者嫌VBScript的正则表达式太麻烦。就算撇开语言混杂不说，上面代码的风格实在是不敢恭维。
下面是我写的ass2srt.vbs，也许比上面的代码好一点点罢。
?12345678910111213141516171819202122232425262728293031323334353637383940414 243444546474849505152535455565758596061626364656667686970717273747576 Option Explicit Const Encoding = "unicode" 'assume unicode 'Author: Demon 'Website: 'Date: 2012/6/16 Dim shell, folder, fso, ext, i, args Set shell = CreateObject("Shell.Application") Set fso = CreateObject("scripting.filesystemobject") Set args = WScript.Arguments If args.Count = 0 Then Set folder = shell.BrowseForFolder(0, "请选择ASS字幕所在的文件夹", 1) If folder Is Nothing Then WScript.Quit For Each i In fso.GetFolder(folder.Self.Path).Files ext = LCase(fso.GetExtensionName(i.Path)) If ext = "ass" Or ext = "ssa" Then ASS2SRT i.Path, Encoding E
nd If NextElse For i = 0 To args.Count - 1 ASS2SRT args(i), Encoding NextEnd If MsgBox CInt(i) & " file(s) Converted!", vbInformation Function ASS2SRT(path, charset) Const adTypeText = 2 Const adReadLine = -2 Const adSaveCreateOverWrite = 2 Dim ass, srt, re, str, arr, s, e, t, i Set ass = CreateObject("ADODB.Stream") Set srt = CreateObject("ADODB.Stream") Set re = New RegExp re.Global = True re.IgnoreCase = True re.Pattern = "\{.*?\}" ass.Type = adTypeText ass.Charset = charset ass.Open ass.LoadFromFile path srt.Type = adTypeText srt.Charset = "utf-8" srt.Open i = 0 Do Until ass.EOS str = ass.ReadText(adReadLine) If Left(str, 8) = "Dialogue" Then i = i + 1 arr = Split(str, ",", 10) s = "0" & arr(1) & "0" 'Start time e = "0" & arr(2) & "0" 'End time t = arr(9) 'Text s =
Replace(s, ".", ",") e = Replace(e, ".", ",") t = re.Replace(t, "") t = Replace(t, "\n", vbCrLf) t = Replace(t, "\N", vbCrLf) srt.WriteText i & vbCrLf srt.WriteText s & " --> " & e & vbCrLf srt.WriteText t & vbCrLf & vbCrLf End If Loop path = Left(path, Len(path) - 3) & "srt" srt.SaveToFile path, adSaveCreateOverWrite End Function 把上面代码保存为ass2srt.vbs，然后将需要转换的ass/ssa字幕拖动到ass2srt.vbs脚本上即可。如果需要批量转换的ass/ssa字幕比较多，可以先把它们放到同一个文件夹里，然后直接双击运行ass2srt.vbs，选择字幕所在的文件夹即可。
更多信息请查看IT技术专栏

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。