Удалить элементы текстового файла EDL, выполнить арифметику с другими частями - PullRequest
Новая
       45

Удалить элементы текстового файла EDL, выполнить арифметику с другими частями

0 голосов
/ 14 мая 2018

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

В конечном итоге я пытаюсь:

  1. извлекает строки, начинающиеся с * FROM CLIP NAME: , и строку / строку (временной код) непосредственно выше.В этой строке находятся временные коды, есть 4 группы чисел, каждая из которых выражается как 00: 00: 00: 00 - или ЧЧ: ММ: СС: FF или Часы, минуты, секунды, кадры.Затем я отказываюсь от всего остального.

  2. Используйте первые 2 группы чисел (это время начала и окончания), чтобы получить продолжительность .

  3. Затем добавьте длительность к строке названия клипа.

  4. Сохраните файл как «SourceFileName» .txt (оригинал - .edl, чтобы они не перезаписывались).

Поскольку моя частота кадров составляет 25 кадров в секунду, я ожидал разбить каждую группу на число кадров .

Я ожидал, чтопреобразование временного кода в 25 кадров в секунду:

  • часов в базу времени кадра (25 кадров в секунду) 1 час = 1 * 60 * (60 * 25) = 9000
  • минут в базу времени кадра(25 кадр / с) 1 минута = 1 * (60 * 25) = 1500
  • секунд до базового времени кадра (25 кадров / с) 1 секунда = 1 * 25f

Это создаст группу00: 02: 20: 01 = 3501 кадр

  • 3501 целочисленное деление // 25 к / с = 140 сек

  • 3501 по модулю (%) 25 = 1 остаток кадра

  • 140/60 = 2 мин

  • 140% 60 = 20 сек

Тогда я бы вычел первую группу из второй, чтобы найти разницу.Как только у меня есть разница, я рекомендую счетчик кадров к временному коду, просто переворачивая математику.

Я не могу понять, как указать строку имени, а затем взять предыдущую строку для арифметики, используя первые 2 из4 группы.

Пока (не далеко) Я только установил способ определения пользователем исходного файла на своем рабочем столе. 

Option Explicit
Dim fso, oFile, y

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")

ОБНОВЛЕНИЕ: исправлен скрипт, но я даже не могу сгруппировать выбранные строки и их начальные / конечные значения 

Option Explicit
Dim fso, oFile, y, re, prev, line, matches

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
        'do stuff here
        Set re = New RegExp
        re.Pattern = "C        (\d{2}:\d{2}:\d{2}:\d{2})    (\d{2}:\d{2}:\d{2}:\d{2})"
        matches = re.Execute(prev)
        'print each pair of prev & Pattern match
        prev = (line) & (matches)
        wscript.echo prev
        'don't know how to use submatch values
    End If

Loop

Пример файла .edl: 

TITLE: test logan
* COMMENT:  CREATED BY GRASS VALLEY FOR EDIUS (CMX-3600) 
001  0000     A     C        00:00:04:23 00:00:42:04 00:00:00:00 00:00:37:06
* FROM CLIP NAME:  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
* FROM CLIP NAME:  03 - Web Of Deceit (Main) - J Woodall - 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     A     D    025 00:00:31:09 00:00:54:12 00:01:41:21 00:02:04:24
* EFFECT NAME: CROSS DISSOLVE
* FROM CLIP NAME:  03 - Web Of Deceit (Main) - J Woodall - SFT164
* TO CLIP NAME:  03 - Web Of Deceit (Main) - J Woodall - SFT164
M2   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
* FROM CLIP NAME:  12 - Environs A - T Juckes, S Kidd - SCDV354
005  0000     A2    C        00:00:11:12 00:00:30:05 00:02:06:24 00:02:25:17
* FROM CLIP NAME:  13 - Contagion (Main) - J Woodall - SFT164
006  0000     A2    C        00:00:06:13 00:00:56:09 00:02:27:04 00:03:17:00
* FROM CLIP NAME:  03 - Web Of Deceit (Main) - J Woodall - SFT164
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
* EFFECT NAME: CROSS DISSOLVE
* FROM CLIP NAME:  03 - Web Of Deceit (Main) - J Woodall - SFT164
* TO CLIP NAME:  03 - Web Of Deceit (Main) - J Woodall - 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
* FROM CLIP NAME:  12 - Environs A - T Juckes, S Kidd - SCDV354
009  0000     A2    C        00:00:00:00 00:00:26:19 00:06:00:08 00:06:27:02
* FROM CLIP NAME:  38 - Signs Of Pollution - W Plass - SCDV354
010  0000     A2    C        00:00:25:08 00:01:13:03 00:06:39:16 00:07:27:11
* FROM CLIP NAME:  38 - Signs Of Pollution - 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
* EFFECT NAME: CROSS DISSOLVE
* FROM CLIP NAME:  38 - Signs Of Pollution - W Plass - SCDV354
* TO CLIP NAME:  38 - Signs Of Pollution - W Plass - SCDV354
M2   0000        025.0              00:01:48:22

Мне нужносделайте это в VBScript, чтобы мы могли запускать его на рабочих столах Windows различных пользователей.Мы не можем устанавливать другие исполняемые файлы или запускаться из командной строки.У меня нет прав на установку с правами администратора.

1 Ответ

0 голосов
/ 14 мая 2018

Помните предыдущую строку в отдельной переменной при чтении файла: 

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, 19) = "* FROM CLIP NAME:  " Then
        'do stuff here
    End If
    prev = line
Loop

Используйте регулярное выражение для извлечения меток времени начала и конца. 

Set re = New RegExp
re.Pattern = "        (\d{2}:\d{2}:\d{2}:\d{2}) (\d{2}:\d{2}:\d{2}:\d{2})"
Set matches = re.Execute(prev)

Временные метки доступны в качестве первого и второго субматча matches.

Однако имейте в виду, что некоторым строкам FROM CLIP NAME во входном файле, кажется, не предшествуют строки меток времени, поэтому вам придется с этим справиться.

...