Loops 复制部分EDL，计算持续时间，但循环失败
我有一个简单格式化的文本文件（编辑决策列表），其中有一行数字，后跟一行属性（名称等）。 对于每个匹配，我试图从名称字符串中创建一个列表，后跟持续时间（时间戳之间的差异） 导致： 12-科技性感-D Cebert-FFP170 Dur:00.38 到目前为止，我已经Loops 复制部分EDL，计算持续时间，但循环失败,loops,vbscript,timecodes,Loops,Vbscript,Timecodes,我有一个简单格式化的文本文件（编辑决策列表），其中有一行数字，后跟一行属性（名称等）。 对于每个匹配，我试图从名称字符串中创建一个列表，后跟持续时间（时间戳之间的差异） 导致： 12-科技性感-D Cebert-FFP170 Dur:00.38 到目前为止，我已经 为用户在桌面上定义源文件建立了一种方法 定义了一种对源时间戳进行排序的方法（按相应名称行之前的时间戳） 发现前2个时间戳之间存在差异 但我的循环似乎不起作用。我至少希望看到每个匹配的时间戳行的持续时间列表 到目前为止的脚本： Opti
Option Explicit
'change system location to Germany, to simulate 24hour clock *no AM PM time
SetLocale "de-de"
Dim fso, oFile, y, re, prev, line, matches, time
Set fso = CreateObject("Scripting.FileSystemObject")
'get user to open file name
y = InputBox("name of file to save")
'next line opens a file with that name
Set oFile = fso.OpenTextFile(y&".edl")
Do Until oFile.AtEndOfStream
line = oFile.ReadLine
'At this point the variable prev either is empty (during the first loop
'cycle) or holds the content of the previous line.
If Left(line, 21) = "* FROM CLIP NAME: " Then
'Define search terms for each timecode element *this is not a result yet
Dim re1
re1 =".*?" 'Non-greedy match on filler
Dim re2
re2 ="((?:(?:[0-1][0-9])|(?:[2][0-3])|(?:[0-9])):(?:[0-5][0-9])(?::[0-5][0-9])?(?:\s?(?:am|AM|pm|PM))?)" 'HourMinuteSec 1
Dim re3
re3 =".*?" 'Non-greedy match on filler
Dim re4
re4 ="((?:(?:[0-1][0-9])|(?:[2][0-3])|(?:[0-9])):(?:[0-5][0-9])(?::[0-5][0-9])?(?:\s?(?:am|AM|pm|PM))?)" 'HourMinuteSec 2
Dim re5
re5 =".*?" 'Non-greedy match on filler
Dim re6
re6 ="((?:(?:[0-1][0-9])|(?:[2][0-3])|(?:[0-9])):(?:[0-5][0-9])(?::[0-5][0-9])?(?:\s?(?:am|AM|pm|PM))?)" 'HourMinuteSec 3
Dim re7
re7 =".*?" 'Non-greedy match on filler
Dim re8
re8 ="((?:(?:[0-1][0-9])|(?:[2][0-3])|(?:[0-9])):(?:[0-5][0-9])(?::[0-5][0-9])?(?:\s?(?:am|AM|pm|PM))?)" 'HourMinuteSec 4
'add timecode search terms to a search pattern
Dim r
Set r = New RegExp
r.Pattern = re1+re2+re3+re4+re5+re6+re7+re8
r.IgnoreCase = True
Dim m, timeDur, ts, Timeofday
Set m = r.Execute(line)
'loop through timecodes to find duration between first 2 entries
If m.Item(0).SubMatches.Count > 0 Then
Dim time1
time1 = m.Item(0).SubMatches.Item(0)
Dim time2
time2 = m.Item(0).SubMatches.Item(1)
Dim time3
time3 = m.Item(0).SubMatches.Item(2)
Dim time4
time4 = m.Item(0).SubMatches.Item(3)
'find duration/difference between first 2 times, in seconds
timeDur=datediff("s", time1, time2)
'format result to a serial time format eg. 00:00:00
ts = TimeSerial(0, 0, timeDur)
'print duration result, will need to append track info and repeat. Then save to file
MsgBox (ts)
End If
MsgBox (ts)
End If
Loop
我们输入数据的格式似乎与您在上一个问题中最初发布的格式有点不同，因此，您需要使用剪辑名称中的
Left（line，21）=“*”Left（line，19）=“*”IfWScript.Echo行If