|
发表于 2021-11-16 19:37:57
|
显示全部楼层
山东省东营市
.版本 2
.参数 FilePath, 文本型
.局部变量 Str, 文本型
.局部变量 Temp, 视频信息s1
.局部变量 Arry, 文本型, , "0"
.局部变量 Txt, 文本型
.局部变量 Regx, 正则表达式类
改变目录 (取运行目录 ())
Str = 系统_取DOS执行结果 (“ffmpeg -y -i ” + #引号 + FilePath + #引号)
Txt = 文本_取出中间文本 (Str, “Video:”, “fps”)
Arry = 分割文本 (文本_取出中间文本 (Txt, “p, ”, “,”), “x”, )
.如果真 (取数组成员数 (Arry) = 2)
Temp.宽度 = 到整数 (Arry [1])
Temp.高度 = 到整数 (Arry [2])
.如果真结束
.如果真 (Temp.宽度 = 0 或 Temp.高度 = 0)
CoInitialize (0)
Regx.创建 (“(\d{4})x(\d{3})”, Txt)
.如果真 (Regx.取匹配数量 () = 0)
Regx.创建 (“(\d{3})x(\d{4})”, Txt)
.如果真结束
.如果真 (Regx.取匹配数量 () = 0)
Regx.创建 (“(\d{3})x(\d{3})”, Txt)
.如果真结束
.如果真 (Regx.取匹配数量 () = 0)
Regx.创建 (“(\d{4})x(\d{4})”, Txt)
.如果真结束
Arry = 分割文本 (Regx.取匹配文本 (1), “x”, )
.如果真 (取数组成员数 (Arry) = 2)
Temp.宽度 = 到整数 (Arry [1])
Temp.高度 = 到整数 (Arry [2])
.如果真结束
CoUninitialize ()
.如果真结束
Txt = 取文本左边 (Txt, 倒找文本 (Txt, “ kb/s”, , 假))
Temp.码率 = 到文本 (到整数 (删首尾空 (取文本右边 (Txt, 取文本长度 (Txt) - 倒找文本 (Txt, “,”, , 假)))) + 1024)
Str = 文本_取出中间文本 (Str, “Duration: ”, “,”)
.如果真 (寻找文本 (Str, “.”, , 假) ≠ -1)
Str = 取文本左边 (Str, 寻找文本 (Str, “.”, , 假) - 1)
.如果真结束
Temp.时长 = 取时间间隔 (到时间 (“2017-12-12 ” + Str), 到时间 (“2017-12-12 00:00:00”), 8)
Temp.时长文本 = 到文本 (Temp.时长)
返回 (Temp)
自行下载个ffmpeg |
|