个人中心
gpt4 book ai didi

ass2srt.vbs(ass/ssa批量转换srt的脚本)

转载 作者：qq735679552 更新时间：2022-09-29 22:32:09 36 4
gpt4 key购买 nike

CFSDN坚持开源创造价值，我们致力于搭建一个资源共享平台，让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章ass2srt.vbs(ass/ssa批量转换srt的脚本)由作者收集整理，如果你对这篇文章有兴趣，记得点赞哟.

iPad中的OPlayer只支持srt格式的字幕，而动画一般使用的是ass/ssa格式的字幕，所以需要将ass/ssa批量转换srt.

Google了一下，在《ass2srt[ass/ssa批量转换srt]》中找到一个ass2srt.wsf脚本，内容如下:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
< job id = "ass2srt" >
   < script language = "JScript" >
   cInput="unicode";  // You can find them from:
   cOutput="utf-8";  // HKEY_CLASSES_ROOT\MIME\Database\Charset
   function rrr(){
     re = /Dialogue: [^,.]*[0-9]*,([1-9]?[0-9]*:[0-9]*:[0-9]*.[0-9]*),([1-9]?[0-9]*:[0-9]*:[0-9]*.[0-9]*),[^,.]*,[^,.]*,[0-9]*,[0-9]*,[0-9]*,[^,.]*,(.*)/gi;
     rv = ss.match(re);
     t1 = RegExp.$1;
     t2 = RegExp.$2;
     t3 = RegExp.$3;
     rg = /\{[^}.]*(\\pos\([0-9]*,[0-9]*\))[^}.]*}/gi;
     t3 = t3.replace(rg,"$1" + "}");
     rg =/\{[^}.]*}/gi;
     t3 = t3.replace(rg,"");
     rg =/(\\pos\([0-9]*,[0-9]*\)})/gi;
     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 While ad.eos <> 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，也许比上面的代码好一点点罢.

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
Option Explicit
Const Encoding = "unicode" 'assume unicode
 
'Author: Demon
'Website: http://demon.tw
'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
     End If
   Next
Else
   For i = 0 To args.Count - 1
     ASS2SRT args(i), Encoding
   Next
End 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，选择字幕所在的文件夹即可.

原文：http://demon.tw/my-work/ass2srt.html 。

最后此篇关于ass2srt.vbs(ass/ssa批量转换srt的脚本)的文章就讲到这里了,如果你想了解更多关于ass2srt.vbs(ass/ssa批量转换srt的脚本)的内容请搜索CFSDN的文章或继续浏览相关文章，希望大家以后支持我的博客！ 。

36 4 0
文章推荐： JavaScript中的索引数组、关联数组和静态数组、动态数组讲解
文章推荐： JavaScript函数模式详解
文章推荐： JavaScript代码复用模式详解
文章推荐： JavaScript中的style.cssText使用教程
qq735679552
个人简介

我是一名优秀的程序员,十分优秀！

滴滴打车优惠券免费领取
滴滴打车优惠券
全站热门文章
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com