问题解决,感谢大家
Dialogue: Marked=0,0:12:42.32,0:12:45.33,Default,NTP,0000,0000,0000,,这里没有可以下去的楼梯Dialogue: Marked=0,0:12:45.99,0:12:48.10,Default,NTP,0000,0000,0000,,如果要避开防盗摄影机通过的话
Dialogue: Marked=0,0:12:48.10,0:12:51.20,Default,NTP,0000,0000,0000,,从九楼到七楼这里就只有这个楼梯
Dialogue: Marked=0,0:12:51.80,0:12:55.00,Default,NTP,0000,0000,0000,,这里不用两分钟的时间就可以来回了
Dialogue: Marked=0,0:12:56.51,0:12:58.11,Default,NTP,0000,0000,0000,,仓库
Dialogue: Marked=0,0:13:02.11,0:13:02.91,Default,NTP,0000,0000,0000,,等一等柯南
Dialogue: Marked=0,0:13:09.12,0:13:11.82,Default,NTP,0000,0000,0000,,这个窗子就在那个房间上面
Dialogue: Marked=0,0:13:12.52,0:13:13.52,Default,NTP,0000,0000,0000,,对了 用绳子
DCMZ想改一下,把第n行的内容改到n-1行去,大家知道怎么弄吗
打扰大家了
回复: 时间轴问题,麻烦一下大家
VB编写程序：Private Sub Form1_Load()
Dim objFSO, objFile As Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("X:\XXX.SSA")
OriFile = objFile.ReadAll
Set objFile = Nothing
SplOri = Split(OriFile,vbNewLine)
For i = 0 To UBound(SplOri)
If InStr(SplOri(i),"Dialogue: Marked=") > 0 Then
If InStr(SplOri(i+1),"Dialogue: Marked=") > 0 Then
Str = ",0000,0000,0000,,"
ThisTime = Mid(SplOri(i),1,InStr(SplOri(i),Str)+Len(SplOri(i),Str)-1)
NextText = Mid(SplOri(i+1),InStr(SplOri(i+1),Str)+Len(Str),Len(SplOri(i+1))-InStr(SplOri(i+1),Str)+Len(Str)-1)
TarFile = TarFile & ThisTime & NextText & vbNewLine
End If
Else
TarFile = TarFile & SplOri(i) & vbNewLine
End If
Next
Set objFile = objFSO.CreateTextFile("YYYYYYY.SSA")
objFile.Write(TarFile)
Set objFile = Nothing
MsgBox "转换完毕！"
End Sub
不在家，没有条件测试 = =0
追加：刚刚吓死了，打代码中途离开了超过20分钟，提交时发现Cookies过期了:028: 还好后退后发现编辑内容没有丢失
页:
[1]