2份字幕合并成一份字幕，时间轴调整

zhuangkun

例如A字幕
1
00:00:00,120 --> 00:00:02,480
聊天群之类神功众多，但人力有限

2
00:00:02,840 --> 00:00:04,440
几人又无法全部修炼

3
00:00:04,800 --> 00:00:07,720
他们都只是选取了其中的一部分进行修炼


B字幕

1
00:00:00,100 --> 00:00:01,860
这是卖出那一部分换来的资源

2
00:00:02,340 --> 00:00:04,140
逐鹿书院院长拿出了一件宝具

3
00:00:04,460 --> 00:00:06,180
这宝具拥有储物的功能


A+B合并，取A字幕最后时间00:00:07,720+500
1
00:00:00,120 --> 00:00:02,479
聊天群之类神功众多，但人力有限

2
00:00:02,840 --> 00:00:04,439
几人又无法全部修炼

3
00:00:04,800 --> 00:00:07,719
他们都只是选取了其中的一部分进行修炼

4
00:00:08,319 --> 00:00:10,078
这是卖出那一部分换来的资源

5
00:00:10,559 --> 00:00:12,358
逐鹿书院院长拿出了一件宝具

6
00:00:12,679 --> 00:00:14,398
这宝具拥有储物的功能

lxh1230

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
A字幕文件路径	文本型
B字幕文件路径	文本型
合并后字幕文件路径	文本型
A字幕内容	文本型		0
B字幕内容	文本型		0
合并后字幕内容	文本型
A最后时间	文本型
时间偏移量	整数型
序号	整数型
i	整数型

A字幕文件路径 ＝ “A字幕文件路径.txt”  ' 这里替换为实际的A字幕文件路径
B字幕文件路径 ＝ “B字幕文件路径.txt”  ' 这里替换为实际的B字幕文件路径
合并后字幕文件路径 ＝ “合并后字幕文件路径.txt”  ' 这里替换为要保存的合并后字幕文件路径
时间偏移量 ＝ 500  ' 时间偏移量，单位毫秒，按示例设定为500
' 读取A字幕文件内容
A字幕内容 ＝ 分割文本 (读入文件 (A字幕文件路径), #换行符, )
' 读取B字幕文件内容
B字幕内容 ＝ 分割文本 (读入文件 (B字幕文件路径), #换行符, )
' 获取A字幕最后一条的时间轴信息
A最后时间 ＝ 取文本中间 (A字幕内容 [取数组成员数 (A字幕内容)], 13, 12)  ' 假设时间轴格式固定，提取时间部分
序号 ＝ 1
' 先添加A字幕内容，调整时间轴结尾时间（减1毫秒来符合示例逻辑）
计次循环首 (取数组成员数 (A字幕内容), i)
如果 (寻找文本 (A字幕内容 [i], “-->, 真) > 0)
合并后字幕内容 ＝ 合并后字幕内容 ＋ 到文本 (序号) ＋ #换行符 ＋ 文本替换 (A字幕内容 [i], 取文本中间 (A字幕内容 [i], 13, 12), 时间格式转换 (时间值转换 (取文本中间 (A字幕内容 [i], 13, 12)) － 1),, 1) ＋ #换行符
合并后字幕内容 ＝ 合并后字幕内容 ＋ A字幕内容 [i] ＋ #换行符
序号 ＝ 序号 ＋ 1
计次循环尾 ()
' 接着添加B字幕内容，根据A最后时间和偏移量来调整时间轴
计次循环首 (取数组成员数 (B字幕内容), i)
如果 (寻找文本 (B字幕内容 [i], “-->, 真) > 0)
合并后字幕内容 ＝ 合并后字幕内容 ＋ 到文本 (序号) ＋ #换行符 ＋ 时间轴调整 (B字幕内容 [i], A最后时间, 时间偏移量) ＋ #换行符
序号 ＝ 序号 ＋ 1
合并后字幕内容 ＝ 合并后字幕内容 ＋ B字幕内容 [i] ＋ #换行符

计次循环尾 ()
' 保存合并后字幕文件
写到文件 (合并后字幕文件路径, 到字节集 (合并后字幕内容))
信息框 (“合并并修改时间轴完成！”, 0, )

子程序名	返回值类型	公开	备 注
时间格式转换	文本型
参数名	类 型	参考	可空	数组	备 注
时间值	小数型

变量名	类 型	静态	数组	备 注
小时	整数型
分钟	整数型
秒	整数型
毫秒	整数型

小时 ＝ 取整 (时间值 ÷ 3600)
分钟 ＝ 取整 ( (时间值 － 小时 × 3600) ÷ 60)
秒 ＝ 取整 (时间值 － 小时 × 3600 － 分钟 × 60)
毫秒 ＝ 取整 ( (时间值 － 取整 (时间值)) × 1000)
返回 格式化文本 (“%02d:%02d:%02d,%03d”, 小时, 分钟, 秒, 毫秒)

子程序名	返回值类型	公开	备 注
时间值转换	小数型
参数名	类 型	参考	可空	数组	备 注
时间文本	文本型

变量名	类 型	静态	数组	备 注
小时	整数型
分钟	整数型
秒	整数型
毫秒	整数型

小时 ＝ 到整数 (取文本中间 (时间文本, 1, 2))
分钟 ＝ 到整数 (取文本中间 (时间文本, 4, 2))
秒 ＝ 到整数 (取文本中间 (时间文本, 7, 2))
毫秒 ＝ 到整数 (取文本中间 (时间文本, 10, 3))
返回 小时 × 3600 ＋ 分钟 × 60 ＋ 秒 ＋ 毫秒 ÷ 1000

子程序名	返回值类型	公开	备 注
时间轴调整	文本型
参数名	类 型	参考	可空	数组	备 注
原时间轴行	文本型
A最后时间文本	文本型
偏移量	整数型

变量名	类 型	静态	数组	备 注
原起始时间	文本型
原结束时间	文本型
新起始时间	小数型
新结束时间	小数型

原起始时间 ＝ 取文本中间 (原时间轴行, 1, 12)
原结束时间 ＝ 取文本中间 (原时间轴行, 17, 12)
新起始时间 ＝ 时间值转换 (原起始时间) ＋ 时间值转换 (A最后时间文本) ＋ 偏移量 ÷ 1000
新结束时间 ＝ 时间值转换 (原结束时间) ＋ 时间值转换 (A最后时间文本) ＋ 偏移量 ÷ 1000
返回 取文本左边 (原时间轴行, 1) ＋ 时间格式转换 (新起始时间) ＋ “ --> ” ＋ 时间格式转换 (新结束时间)

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 A字幕文件路径, 文本型<br /> .局部变量 B字幕文件路径, 文本型<br /> .局部变量 合并后字幕文件路径, 文本型<br /> .局部变量 A字幕内容, 文本型, , "0"<br /> .局部变量 B字幕内容, 文本型, , "0"<br /> .局部变量 合并后字幕内容, 文本型<br /> .局部变量 A最后时间, 文本型<br /> .局部变量 时间偏移量, 整数型<br /> .局部变量 序号, 整数型<br /> .局部变量 i, 整数型<br /> <br /> A字幕文件路径 ＝ “A字幕文件路径.txt”  ' 这里替换为实际的A字幕文件路径<br /> B字幕文件路径 ＝ “B字幕文件路径.txt”  ' 这里替换为实际的B字幕文件路径<br /> 合并后字幕文件路径 ＝ “合并后字幕文件路径.txt”  ' 这里替换为要保存的合并后字幕文件路径<br /> 时间偏移量 ＝ 500  ' 时间偏移量，单位毫秒，按示例设定为500<br /> <br /> ' 读取A字幕文件内容<br /> A字幕内容 ＝ 分割文本 (读入文件 (A字幕文件路径), #换行符, )<br /> ' 读取B字幕文件内容<br /> B字幕内容 ＝ 分割文本 (读入文件 (B字幕文件路径), #换行符, )<br /> <br /> ' 获取A字幕最后一条的时间轴信息<br /> A最后时间 ＝ 取文本中间 (A字幕内容 [取数组成员数 (A字幕内容)], 13, 12)  ' 假设时间轴格式固定，提取时间部分<br /> 序号 ＝ 1<br /> <br /> ' 先添加A字幕内容，调整时间轴结尾时间（减1毫秒来符合示例逻辑）<br /> .计次循环首 (取数组成员数 (A字幕内容), i)<br />     .如果 (寻找文本 (A字幕内容 <i>, “-->, 真) > 0)<br />         合并后字幕内容 ＝ 合并后字幕内容 ＋ 到文本 (序号) ＋ #换行符 ＋ 文本替换 (A字幕内容 <i>, 取文本中间 (A字幕内容 <i>, 13, 12), 时间格式转换 (时间值转换 (取文本中间 (A字幕内容 <i>, 13, 12)) － 1),, 1) ＋ #换行符<br />     .否则<br />         合并后字幕内容 ＝ 合并后字幕内容 ＋ A字幕内容 <i> ＋ #换行符<br />     .如果结束<br />     序号 ＝ 序号 ＋ 1<br /> .计次循环尾 ()<br /> <br /> ' 接着添加B字幕内容，根据A最后时间和偏移量来调整时间轴<br /> .计次循环首 (取数组成员数 (B字幕内容), i)<br />     .如果 (寻找文本 (B字幕内容 <i>, “-->, 真) > 0)<br />         合并后字幕内容 ＝ 合并后字幕内容 ＋ 到文本 (序号) ＋ #换行符 ＋ 时间轴调整 (B字幕内容 <i>, A最后时间, 时间偏移量) ＋ #换行符<br />         序号 ＝ 序号 ＋ 1<br />     .否则<br />         合并后字幕内容 ＝ 合并后字幕内容 ＋ B字幕内容 <i> ＋ #换行符<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> <br /> ' 保存合并后字幕文件<br /> 写到文件 (合并后字幕文件路径, 到字节集 (合并后字幕内容))<br /> 信息框 (“合并并修改时间轴完成！”, 0, )<br /> <br /> .子程序 时间格式转换, 文本型<br /> .参数 时间值, 小数型<br /> .局部变量 小时, 整数型<br /> .局部变量 分钟, 整数型<br /> .局部变量 秒, 整数型<br /> .局部变量 毫秒, 整数型<br /> <br /> 小时 ＝ 取整 (时间值 ÷ 3600)<br /> 分钟 ＝ 取整 ((时间值 － 小时 × 3600) ÷ 60)<br /> 秒 ＝ 取整 (时间值 － 小时 × 3600 － 分钟 × 60)<br /> 毫秒 ＝ 取整 ((时间值 － 取整 (时间值)) × 1000)<br /> 返回 格式化文本 (“%02d:%02d:%02d,%03d”, 小时, 分钟, 秒, 毫秒)<br /> <br /> .子程序 时间值转换, 小数型<br /> .参数 时间文本, 文本型<br /> .局部变量 小时, 整数型<br /> .局部变量 分钟, 整数型<br /> .局部变量 秒, 整数型<br /> .局部变量 毫秒, 整数型<br /> <br /> 小时 ＝ 到整数 (取文本中间 (时间文本, 1, 2))<br /> 分钟 ＝ 到整数 (取文本中间 (时间文本, 4, 2))<br /> 秒 ＝ 到整数 (取文本中间 (时间文本, 7, 2))<br /> 毫秒 ＝ 到整数 (取文本中间 (时间文本, 10, 3))<br /> 返回 小时 × 3600 ＋ 分钟 × 60 ＋ 秒 ＋ 毫秒 ÷ 1000<br /> <br /> .子程序 时间轴调整, 文本型<br /> .参数 原时间轴行, 文本型<br /> .参数 A最后时间文本, 文本型<br /> .参数 偏移量, 整数型<br /> .局部变量 原起始时间, 文本型<br /> .局部变量 原结束时间, 文本型<br /> .局部变量 新起始时间, 小数型<br /> .局部变量 新结束时间, 小数型<br /> <br /> 原起始时间 ＝ 取文本中间 (原时间轴行, 1, 12)<br /> 原结束时间 ＝ 取文本中间 (原时间轴行, 17, 12)<br /> 新起始时间 ＝ 时间值转换 (原起始时间) ＋ 时间值转换 (A最后时间文本) ＋ 偏移量 ÷ 1000<br /> 新结束时间 ＝ 时间值转换 (原结束时间) ＋ 时间值转换 (A最后时间文本) ＋ 偏移量 ÷ 1000<br /> 返回 取文本左边 (原时间轴行, 1) ＋ 时间格式转换 (新起始时间) ＋ “ --> ” ＋ 时间格式转换 (新结束时间)

lxh1230

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
A字幕文件路径	文本型
B字幕文件路径	文本型
合并后字幕文件路径	文本型
A字幕内容	文本型		0
B字幕内容	文本型		0
合并后字幕内容	文本型
A最后时间	文本型
时间偏移量	整数型
序号	整数型
i	整数型

A字幕文件路径 ＝ “A字幕文件路径.txt”  ' 这里替换为实际的A字幕文件路径
B字幕文件路径 ＝ “B字幕文件路径.txt”  ' 这里替换为实际的B字幕文件路径
合并后字幕文件路径 ＝ “合并后字幕文件路径.txt”  ' 这里替换为要保存的合并后字幕文件路径
时间偏移量 ＝ 500  ' 时间偏移量，单位毫秒，按示例设定为500
' 读取A字幕文件内容
A字幕内容 ＝ 分割文本 (读入文件 (A字幕文件路径), #换行符, )
' 读取B字幕文件内容
B字幕内容 ＝ 分割文本 (读入文件 (B字幕文件路径), #换行符, )
' 获取A字幕最后一条的时间轴信息
A最后时间 ＝ 取文本中间 (A字幕内容 [取数组成员数 (A字幕内容)], 13, 12)  ' 假设时间轴格式固定，提取时间部分
序号 ＝ 1
' 先添加A字幕内容，调整时间轴结尾时间（减1毫秒来符合示例逻辑）
计次循环首 (取数组成员数 (A字幕内容), i)
如果 (寻找文本 (A字幕内容 [i], “-->, 真) > 0)
合并后字幕内容 ＝ 合并后字幕内容 ＋ 到文本 (序号) ＋ #换行符 ＋ 文本替换 (A字幕内容 [i], 取文本中间 (A字幕内容 [i], 13, 12), 时间格式转换 (时间值转换 (取文本中间 (A字幕内容 [i], 13, 12)) － 1),, 1) ＋ #换行符
合并后字幕内容 ＝ 合并后字幕内容 ＋ A字幕内容 [i] ＋ #换行符
序号 ＝ 序号 ＋ 1
计次循环尾 ()
' 接着添加B字幕内容，根据A最后时间和偏移量来调整时间轴
计次循环首 (取数组成员数 (B字幕内容), i)
如果 (寻找文本 (B字幕内容 [i], “-->, 真) > 0)
合并后字幕内容 ＝ 合并后字幕内容 ＋ 到文本 (序号) ＋ #换行符 ＋ 时间轴调整 (B字幕内容 [i], A最后时间, 时间偏移量) ＋ #换行符
序号 ＝ 序号 ＋ 1
合并后字幕内容 ＝ 合并后字幕内容 ＋ B字幕内容 [i] ＋ #换行符

计次循环尾 ()
' 保存合并后字幕文件
写到文件 (合并后字幕文件路径, 到字节集 (合并后字幕内容))
信息框 (“合并并修改时间轴完成！”, 0, )

子程序名	返回值类型	公开	备 注
时间格式转换	文本型
参数名	类 型	参考	可空	数组	备 注
时间值	小数型

变量名	类 型	静态	数组	备 注
小时	整数型
分钟	整数型
秒	整数型
毫秒	整数型

小时 ＝ 取整 (时间值 ÷ 3600)
分钟 ＝ 取整 ( (时间值 － 小时 × 3600) ÷ 60)
秒 ＝ 取整 (时间值 － 小时 × 3600 － 分钟 × 60)
毫秒 ＝ 取整 ( (时间值 － 取整 (时间值)) × 1000)
返回 格式化文本 (“%02d:%02d:%02d,%03d”, 小时, 分钟, 秒, 毫秒)

子程序名	返回值类型	公开	备 注
时间值转换	小数型
参数名	类 型	参考	可空	数组	备 注
时间文本	文本型

变量名	类 型	静态	数组	备 注
小时	整数型
分钟	整数型
秒	整数型
毫秒	整数型

小时 ＝ 到整数 (取文本中间 (时间文本, 1, 2))
分钟 ＝ 到整数 (取文本中间 (时间文本, 4, 2))
秒 ＝ 到整数 (取文本中间 (时间文本, 7, 2))
毫秒 ＝ 到整数 (取文本中间 (时间文本, 10, 3))
返回 小时 × 3600 ＋ 分钟 × 60 ＋ 秒 ＋ 毫秒 ÷ 1000

子程序名	返回值类型	公开	备 注
时间轴调整	文本型
参数名	类 型	参考	可空	数组	备 注
原时间轴行	文本型
A最后时间文本	文本型
偏移量	整数型

变量名	类 型	静态	数组	备 注
原起始时间	文本型
原结束时间	文本型
新起始时间	小数型
新结束时间	小数型

原起始时间 ＝ 取文本中间 (原时间轴行, 1, 12)
原结束时间 ＝ 取文本中间 (原时间轴行, 17, 12)
新起始时间 ＝ 时间值转换 (原起始时间) ＋ 时间值转换 (A最后时间文本) ＋ 偏移量 ÷ 1000
新结束时间 ＝ 时间值转换 (原结束时间) ＋ 时间值转换 (A最后时间文本) ＋ 偏移量 ÷ 1000
返回 取文本左边 (原时间轴行, 1) ＋ 时间格式转换 (新起始时间) ＋ “ --> ” ＋ 时间格式转换 (新结束时间)

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 A字幕文件路径, 文本型<br /> .局部变量 B字幕文件路径, 文本型<br /> .局部变量 合并后字幕文件路径, 文本型<br /> .局部变量 A字幕内容, 文本型, , "0"<br /> .局部变量 B字幕内容, 文本型, , "0"<br /> .局部变量 合并后字幕内容, 文本型<br /> .局部变量 A最后时间, 文本型<br /> .局部变量 时间偏移量, 整数型<br /> .局部变量 序号, 整数型<br /> .局部变量 i, 整数型<br /> <br /> A字幕文件路径 ＝ “A字幕文件路径.txt”  ' 这里替换为实际的A字幕文件路径<br /> B字幕文件路径 ＝ “B字幕文件路径.txt”  ' 这里替换为实际的B字幕文件路径<br /> 合并后字幕文件路径 ＝ “合并后字幕文件路径.txt”  ' 这里替换为要保存的合并后字幕文件路径<br /> 时间偏移量 ＝ 500  ' 时间偏移量，单位毫秒，按示例设定为500<br /> <br /> ' 读取A字幕文件内容<br /> A字幕内容 ＝ 分割文本 (读入文件 (A字幕文件路径), #换行符, )<br /> ' 读取B字幕文件内容<br /> B字幕内容 ＝ 分割文本 (读入文件 (B字幕文件路径), #换行符, )<br /> <br /> ' 获取A字幕最后一条的时间轴信息<br /> A最后时间 ＝ 取文本中间 (A字幕内容 [取数组成员数 (A字幕内容)], 13, 12)  ' 假设时间轴格式固定，提取时间部分<br /> 序号 ＝ 1<br /> <br /> ' 先添加A字幕内容，调整时间轴结尾时间（减1毫秒来符合示例逻辑）<br /> .计次循环首 (取数组成员数 (A字幕内容), i)<br />     .如果 (寻找文本 (A字幕内容 <i>, “-->, 真) > 0)<br />         合并后字幕内容 ＝ 合并后字幕内容 ＋ 到文本 (序号) ＋ #换行符 ＋ 文本替换 (A字幕内容 <i>, 取文本中间 (A字幕内容 <i>, 13, 12), 时间格式转换 (时间值转换 (取文本中间 (A字幕内容 <i>, 13, 12)) － 1),, 1) ＋ #换行符<br />     .否则<br />         合并后字幕内容 ＝ 合并后字幕内容 ＋ A字幕内容 <i> ＋ #换行符<br />     .如果结束<br />     序号 ＝ 序号 ＋ 1<br /> .计次循环尾 ()<br /> <br /> ' 接着添加B字幕内容，根据A最后时间和偏移量来调整时间轴<br /> .计次循环首 (取数组成员数 (B字幕内容), i)<br />     .如果 (寻找文本 (B字幕内容 <i>, “-->, 真) > 0)<br />         合并后字幕内容 ＝ 合并后字幕内容 ＋ 到文本 (序号) ＋ #换行符 ＋ 时间轴调整 (B字幕内容 <i>, A最后时间, 时间偏移量) ＋ #换行符<br />         序号 ＝ 序号 ＋ 1<br />     .否则<br />         合并后字幕内容 ＝ 合并后字幕内容 ＋ B字幕内容 <i> ＋ #换行符<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> <br /> ' 保存合并后字幕文件<br /> 写到文件 (合并后字幕文件路径, 到字节集 (合并后字幕内容))<br /> 信息框 (“合并并修改时间轴完成！”, 0, )<br /> <br /> .子程序 时间格式转换, 文本型<br /> .参数 时间值, 小数型<br /> .局部变量 小时, 整数型<br /> .局部变量 分钟, 整数型<br /> .局部变量 秒, 整数型<br /> .局部变量 毫秒, 整数型<br /> <br /> 小时 ＝ 取整 (时间值 ÷ 3600)<br /> 分钟 ＝ 取整 ((时间值 － 小时 × 3600) ÷ 60)<br /> 秒 ＝ 取整 (时间值 － 小时 × 3600 － 分钟 × 60)<br /> 毫秒 ＝ 取整 ((时间值 － 取整 (时间值)) × 1000)<br /> 返回 格式化文本 (“%02d:%02d:%02d,%03d”, 小时, 分钟, 秒, 毫秒)<br /> <br /> .子程序 时间值转换, 小数型<br /> .参数 时间文本, 文本型<br /> .局部变量 小时, 整数型<br /> .局部变量 分钟, 整数型<br /> .局部变量 秒, 整数型<br /> .局部变量 毫秒, 整数型<br /> <br /> 小时 ＝ 到整数 (取文本中间 (时间文本, 1, 2))<br /> 分钟 ＝ 到整数 (取文本中间 (时间文本, 4, 2))<br /> 秒 ＝ 到整数 (取文本中间 (时间文本, 7, 2))<br /> 毫秒 ＝ 到整数 (取文本中间 (时间文本, 10, 3))<br /> 返回 小时 × 3600 ＋ 分钟 × 60 ＋ 秒 ＋ 毫秒 ÷ 1000<br /> <br /> .子程序 时间轴调整, 文本型<br /> .参数 原时间轴行, 文本型<br /> .参数 A最后时间文本, 文本型<br /> .参数 偏移量, 整数型<br /> .局部变量 原起始时间, 文本型<br /> .局部变量 原结束时间, 文本型<br /> .局部变量 新起始时间, 小数型<br /> .局部变量 新结束时间, 小数型<br /> <br /> 原起始时间 ＝ 取文本中间 (原时间轴行, 1, 12)<br /> 原结束时间 ＝ 取文本中间 (原时间轴行, 17, 12)<br /> 新起始时间 ＝ 时间值转换 (原起始时间) ＋ 时间值转换 (A最后时间文本) ＋ 偏移量 ÷ 1000<br /> 新结束时间 ＝ 时间值转换 (原结束时间) ＋ 时间值转换 (A最后时间文本) ＋ 偏移量 ÷ 1000<br /> 返回 取文本左边 (原时间轴行, 1) ＋ 时间格式转换 (新起始时间) ＋ “ --> ” ＋ 时间格式转换 (新结束时间)

zhuangkun

lxh1230 发表于 2024-12-11 09:47
[e=0].版本 2

.程序集 窗口程序集_启动窗口

只能说大佬牛逼