问题解决,感谢大家

DCMZ37

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行去,大家知道怎么弄吗
打扰大家了

chenxingyu

VB编写程序：

1. Private Sub Form1_Load()
   
2.     Dim objFSO, objFile As Object
   
3.     Set objFSO = CreateObject("Scripting.FileSystemObject")
   
4.     Set objFile = objFSO.OpenTextFile("X:\XXX.SSA")
   
5.     OriFile = objFile.ReadAll
   
6.     Set objFile = Nothing
   
7.     SplOri = Split(OriFile,vbNewLine)
   
8.     For i = 0 To UBound(SplOri)
   
9.         If InStr(SplOri(i),"Dialogue: Marked=") > 0 Then
   
10.             If InStr(SplOri(i+1),"Dialogue: Marked=") > 0 Then
    
11.                 Str = ",0000,0000,0000,,"
    
12.                 ThisTime = Mid(SplOri(i),1,InStr(SplOri(i),Str)+Len(SplOri(i),Str)-1)
    
13.                 NextText = Mid(SplOri(i+1),InStr(SplOri(i+1),Str)+Len(Str),Len(SplOri(i+1))-InStr(SplOri(i+1),Str)+Len(Str)-1)
    
14.                 TarFile = TarFile & ThisTime & NextText & vbNewLine
    
15.             End If
    
16.         Else
    
17.             TarFile = TarFile & SplOri(i) & vbNewLine
    
18.         End If
    
19.     Next
    
20.     Set objFile = objFSO.CreateTextFile("YYYYYYY.SSA")
    
21.     objFile.Write(TarFile)
    
22.     Set objFile = Nothing
    
23.     MsgBox "转换完毕！"
    
24. End Sub

复制代码

不在家，没有条件测试 = =0

追加：刚刚吓死了，打代码中途离开了超过20分钟，提交时发现Cookies过期了:028: 还好后退后发现编辑内容没有丢失