Скопируйте части EDL, рассчитайте длительность, но цикл не пройден

Question

Скопируйте части EDL, рассчитайте длительность, но цикл не пройден

У меня есть просто отформатированный текстовый файл (Edit Decision List) со строками чисел, за которыми следуют ряды свойств (имен и т. Д.). Для каждого совпадения я пытаюсь составить список из строки имени с последующей продолжительностью (разница между временными метками).

В результате чего:

12 - Tech Sexy - D Cebert - FFP170 Время:00.38

До сих пор я

Пользователь установил способ определения исходного файла на своем рабочем столе.
определил способ сортировки временных отметок источника (по временной отметке, которая предшествует соответствующей строке имени).
нашел разницу между первыми 2 временными метками.

Но мой цикл, похоже, не работает. Я, по крайней мере, ожидаю увидеть список длительностей для каждой совпавшей строки метки времени.

Сценарий до сих пор:

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

Исходный файл:

* КОММЕНТАРИЙ: СОЗДАН ТРАВОВОЙ ДОЛИНОЙ ДЛЯ ЭДИУСА (CMX-3600) 
001  0000     A     C        00:00:04:23 00:00:42:04 00:00:00:00 00:00:37:06
* ИЗ НАЗВАНИЯ КЛИПА:  12 - Tech Sexy - D Cebert - FFP170
002  0000     A     C        00:00:20:01 00:00:31:23 00:01:29:24 00:01:41:21
* ОТ ИМЕНИ КЛИПА: 03 - Сеть обмана (Основной) - J Вудолл - SFT164
003  0000     A     C        00:00:31:23 00:00:31:23 00:01:41:21 00:01:41:21
M2   0000        025,0 00: 00: 31: 23 003 0000 AD 025 00: 00: 31: 09 00: 00: 54: 12 00: 01: 41: 21 00: 02: 04: 24 * ИМЯ ЭФФЕКТА: РАЗРЕШЕНИЕ КРЕСТА * ИЗ ИМЕНИ КЛИПА: 03 - Сеть обмана (главная) - Дж. Вудолл - SFT164 * ИМЯ КЛИПА: 03 - Обман сети (основной) - Дж. Вудолл - SFT164 М2 0000 025.0 00: 00: 31: 09 004 0000 A2 C 00: 01: 15:08 00:01:31: 24 00: 01: 48: 04 00: 02: 04: 20 * ОТ ИМЕНИ КЛИПА: 12 - Окрестности А - Т Жак, С Кидд - SCDV354
005  0000     A2    C        00:00:11:12 00:00:30:05 00:02:06:24 00:02:25:17
* ОТ ИМЕНИ КЛИПА: 13 - Заражение (основное) - J Вудолл - SFT164 006 0000 A2 C 00: 00: 06: 13 00: 00: 56: 09 00: 02:27:04 00: 03: 17: 00 * ОТ ИМЕНИ КЛИПА: 03 - Обман сети (основной) - Дж. Вудолл - SFT1 64 007 0000 A2 C 00: 00: 56: 09 00: 00: 56: 09 00: 03: 17: 00 00: 03: 17: 00 M2 0000 025,0 00: 00: 56: 09 007 0000 A2 D 025 00: 00:55:08 00: 01: 54: 03 00: 03: 17: 00 00: 04: 15: 20 * НАИМЕНОВАНИЕ ЭФФЕКТА: РАЗРЕШЕНИЕ КРЕСТА * НАИМЕНОВАНИЕ КЛИПА: 03 - Обман (основной) - J Woodall - SFT164 * ИМЯ КЛИПА: 03 - Сеть обмана (главная) - Дж. Вудолл - SFT164 M2 0000 025,0 00: 00: 55:08 008 0000 A2 C 00: 01: 15:08 00: 01: 37: 12 00:05: 04:10 00: 05: 26: 14 * ОТ ИМЕНИ КЛИПА: 12 - Окрестности А - Т Жакс, С. Кидд - SCDV354 009 0000 А2 С 00: 00: 00: 00 00: 00: 26: 19 00:06:00:08 00: 06: 27: 02 * ОТ ИМЕНИ КЛИПА:  38 - Признаки загрязнения - W Plass - SCDV354 010 0000 A2 C 00: 00: 25:08 00: 01: 13: 03 00: 06: 39: 16 00: 07: 27: 11 * ОТ ИМЕНИ КЛИПА:  38 - Признаки загрязнения - W Plass - SCDV354 011 0000 A2 C 00: 01: 13: 03 00: 01: 13: 03 00: 07: 27: 11 00:07: 27:11 M2 0000 025,0 00: 01: 13: 03 011 0000 A2 D 025 00: 01: 48: 22 00: 02: 04: 09 00: 07: 27: 11 00: 07: 42: 23 * ИМЯ ЭФФЕКТА: КРЕСТОВОЕ РАСТВОРЕНИЕ * ИЗ ИМЕНИ КЛИПА:  38 - Признаки загрязнения - W Plass - SCDV354 * ИМЯ КЛИПА:  38 - Признаки загрязнения - W Plass - SCDV354 M2 0000 025,0 00: 01: 48: 22

0

loops vbscript timecodes

Источник

user8095438 21 май '18 в 09:11

0 ответов

Другие вопросы по тегам loops vbscript timecodes