视频合并问题3

kk2apple

合并后是0kb，为什么呢？
随机合并视频.e (959.63 KB, 下载次数: 1)

2024-12-31 22:02 上传

点击文件名下载附件

  

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

.局部变量 f, 文本型, , "0"
.局部变量 d, 整数型, , "0"
.局部变量 i, 整数型
.局部变量 视频, 字节集
.局部变量 随机数量, 整数型, , 5  ' 设置随机合并的数量为5
' 枚举指定目录下的所有视频文件（例如：.mp4, .avi, .mkv）
文件_枚举 (编辑框1.内容, “*.mp4;*.avi;*.mkv”, f, 真, )
' 检查是否有足够的文件可供合并
如果 (取数组成员数 (f) < 随机数量) 则
调试输出 ("文件数量不足，无法合并5个视频。")
返回
结束如果
' 随机选择5个不重复的文件索引
文本_取出N组不重复数字 (d, 取数组成员数 (f), 1, 随机数量)
' 合并视频文件
计次循环首 (随机数量, i)
调试输出 (“第”, i, “个合并文件:”, f [d [i]])
.局部变量 文件内容, 字节集
文件内容 = 读入文件 (f [d [i]])
如果 (文件内容 = "") 则
调试输出 ("读取文件失败: " + f [d [i]])
继续  ' 跳过当前循环，继续下一个文件
结束如果
视频 ＝ 视频 ＋ 文件内容
计次循环尾 ()
' 写入合并后的视频文件
写到文件 (编辑框1.内容 ＋ “\合并视频.mp4”, 视频)
调试输出 (“随机合并5个视频文件完成。”)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br />     .局部变量 f, 文本型, , "0"<br />     .局部变量 d, 整数型, , "0"<br />     .局部变量 i, 整数型<br />     .局部变量 视频, 字节集<br />     .局部变量 随机数量, 整数型, , 5  ' 设置随机合并的数量为5<br /> <br />     ' 枚举指定目录下的所有视频文件（例如：.mp4, .avi, .mkv）<br />     文件_枚举 (编辑框1.内容, “*.mp4;*.avi;*.mkv”, f, 真, )<br /> <br />     ' 检查是否有足够的文件可供合并<br />     如果 (取数组成员数 (f) < 随机数量) 则<br />         调试输出 ("文件数量不足，无法合并5个视频。")<br />         返回<br />     结束如果<br /> <br />     ' 随机选择5个不重复的文件索引<br />     文本_取出N组不重复数字 (d, 取数组成员数 (f), 1, 随机数量)<br /> <br />     ' 合并视频文件<br />     .计次循环首 (随机数量, i)<br />         调试输出 (“第”, i, “个合并文件:”, f [d <i>])<br />         .局部变量 文件内容, 字节集<br />         文件内容 = 读入文件 (f [d <i>])<br />         如果 (文件内容 = "") 则<br />             调试输出 ("读取文件失败: " + f [d <i>])<br />             继续  ' 跳过当前循环，继续下一个文件<br />         结束如果<br />         视频 ＝ 视频 ＋ 文件内容<br />     .计次循环尾 ()<br /> <br />     ' 写入合并后的视频文件<br />     写到文件 (编辑框1.内容 ＋ “\合并视频.mp4”, 视频)<br />     调试输出 (“随机合并5个视频文件完成。”)

xiaoyu1986

kk2apple 发表于 2024-12-31 22:26
AI写的，运行不了额，能改下附件吗？

随机合并视频.e (279.23 KB, 下载次数: 4)

2024-12-31 22:53 上传

点击文件名下载附件

LEOONL

文件_枚举 (编辑框1.内容, “*.mp4|*.avi|*.mkv”, f, 真, )

    参数<2>的名称为“欲寻找的文件名”，类型为“文本型”。注明：如果寻找全部文件可以填入*.*，或*.txt只找txt文件, 多个后缀中间用“|”隔开。

xiaoyu1986

你这代码AI写的吧？？？

用写出数据吧。参考一下：

  

保存文件地址 ＝ 保存路径 ＋ 保存文件名 ＋ “.mp4”
写到文件 (保存文件地址, {  })
文件号 ＝ 打开文件 (保存文件地址, 2, )
计次循环首 ( 随机数量 ), 局_计次)
字节集 ＝ {  }
字节集 ＝  读入文件 (f [d [i]])
如果真 (字节集 ≠ {  })
移到文件尾 (文件号)
写出数据 (文件号, 碎片字节集)

计次循环尾 ()
关闭文件 (文件号)

.版本 2<br /> <br /> 保存文件地址 ＝ 保存路径 ＋ 保存文件名 ＋ “.mp4”<br /> 写到文件 (保存文件地址, {  })<br /> 文件号 ＝ 打开文件 (保存文件地址, 2, )<br /> <br /> .计次循环首 ( 随机数量 ), 局_计次)<br />     字节集 ＝ {  }<br />     字节集 ＝  读入文件 (f [d <i>])<br /> <br />     .如果真 (字节集 ≠ {  })<br />         移到文件尾 (文件号)<br />         写出数据 (文件号, 碎片字节集)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 关闭文件 (文件号)

补充内容 (2024-12-31 22:21):
我这乱写的，你根据你的实际情况把变量名改一下。你那个AI写的代码，懒得琢磨。

kk2apple

xiaoyu1986 发表于 2024-12-31 22:19
你这代码AI写的吧？？？

用写出数据吧。参考一下：

AI写的，运行不了额，能改下附件吗？

chenboss

（例如：.mp4, .avi, .mkv）
虽然是文件_枚举分割符写错了，但是不同格式的视频进行合并就不能用这一套代码了，必须ffmpeg

补充内容 (2025-1-1 03:41):
建议统一转mp4再放进文件夹，枚举那里固定*.mp4

补充内容 (2025-1-1 03:42):
因为ffmpeg转码合并慢

kk2apple

chenboss 发表于 2025-1-1 03:40
（例如：.mp4, .avi, .mkv）
虽然是文件_枚举分割符写错了，但是不同格式的视频进行合并就不能用这一套代码 ...

能改下附件吗，太难了

蔚枫心蓝

视频合并不能这样简单的进行数据累加（ts格式除外），不同的视频格式编码不同，需要先解码再编码。

kk2apple

蔚枫心蓝 发表于 2025-1-1 20:34
视频合并不能这样简单的进行数据累加（ts格式除外），不同的视频格式编码不同，需要先解码再编码。 ...

我的视频都是mp4格式

chenboss

kk2apple 发表于 2025-1-1 19:34
能改下附件吗，太难了

之前的源码*.*改成*.mp4就行了