1

我有一个简单格式化的文本文件（编辑决策列表），其中包含数字行（时间码帧速率 25），后跟属性行（名称等）。

最终我试图：

  1. 检索以开头* FROM CLIP NAME:  的行和紧接在上面的行/行（时间码）。这一行是时间码，有 4 组数字，每组表示为 00:00:00:00 - 或 HH:MM:SS:FF 或小时、分钟、秒、帧。然后我丢弃其他所有东西。

  2. 使用前 2 个数字组（它们是开始时间和结束时间）推导出持续时间。

  3. 然后将持续时间附加到剪辑名称行。

  4. 将文件另存为“SourceFileName”.txt（原始文件为 .edl，因此它们不会被覆盖）。

由于我的帧速率是每秒 25 帧，我希望将每个组分解为一个帧数。

我希望将时间码转换为每秒 25 帧：

  • 小时到帧时基 (25fps) 1 小时 = 1*60*(60*25) = 9000
  • 分钟到帧时基 (25fps) 1 分钟 = 1*(60*25) = 1500
  • 秒到帧时基 (25fps) 1 秒 = 1*25f

这将使一组 00:02:20:01 = 3501 帧

  • 3501 整数除法 // 25 fps = 140 秒

  • 3501 模数 (%) 25 = 1 帧余数

  • 140/60 = 2 分钟

  • 140%60 = 20 秒

然后我会从第二组中减去第一组以找出差异。一旦我有了差异，我将帧计数重新组合为时间码，只需反转数学。

我不知道如何指定名称行，然后使用 4 组中的前 2 组获取前一行进行算术运算。

到目前为止（不远），我只为用户建立了一种在他们的桌面上定义源文件的方法。

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: 测试洛根
* 评论：草谷为 EDIUS (CMX-3600) 创建
001 0000 交流电 00:00:04:23 00:00:42:04 00:00:00:00 00:00:37:06
* 来自剪辑名称：12 - Tech Sexy - D Cebert - FFP170
002 0000 交流电 00:00:20:01 00:00:31:23 00:01:29:24 00:01:41:21
* 来自剪辑名称：03 - Web Of Deceit（主） - J Woodall - SFT164
003 0000 交流电 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 - Web Of Deceit（主） - J Woodall - SFT164
* 剪辑名称：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
* 来自剪辑名称：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
* 来自剪辑名称：13 - 传染病（主要） - J Woodall - SFT164
006 0000 A2 C 00:00:06:13 00:00:56:09 00:02:27:04 00:03:17:00
* 来自剪辑名称：03 - Web Of Deceit（主） - 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
* 效果名称：交叉溶解
* 来自剪辑名称：03 - Web Of Deceit（主） - J Woodall - SFT164
* 剪辑名称：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
* 来自剪辑名称：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
* 来自剪辑名称：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

我必须在 VBScript 中执行此操作，以便我们可以在各种用户的 Windows 桌面上运行它。我们无法安装其他可执行文件或从命令提示符运行。我没有管理员安装的权限。

4

1 回答 1

1

读取文件时，请记住单独变量中的上一行：

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输入文件中的某些行之前似乎没有时间戳行，因此您需要处理它。

于 2018-05-14T09:26:58.860 回答