组合m3u8视频为一个文件，m3u8转换为mp4

m3u8视频播放链接其实是无数个TS格式文件的列表文件，TS文件相关信息请自行搜索。

下载的m3u8视频，除了列表文件外还有存放无数个TS文件的文件夹，使用不便，而且大家现在都喜欢mp4，要把下载的m3u8视频转为mp4视频文件首先需要把那无数个TS文件组合为一个文件才能进行转换，根据查到的资料，对照TS文件特性发现，每个零碎的TS文件都是一个可独立播放的视频文件，而把它们直接组合起来也可以当作一个播放，那么要组合它就是简单的文件叠加组合就可以了，有兴趣的可以用DOS批处理解决，我觉得写VB程序更快更方便，就写了个简单的VB代码，在VBA环境运行即可：

Sub setM3U8()
Dim tsNum As Long, i As Long
Dim OutputFn As String, TSpath As String, TSfnTmp As String
Dim fp As Integer, tsfp As Integer
Dim tsFbyte() As Byte
    tsNum = 7028 'TS碎文件数 从0开始
    OutputFn = "f:\mov\newXX.ts" '合并生成的大TS文件名
    TSpath = "F:\mov\.a3e727ed996b9886cb13869d5950870d\" 'TS碎文件目录
    fp = FreeFile
    Open OutputFn For Binary As #fp
        For i = 0 To tsNum
            TSfnTmp = Trim(Str(i)) & ".ts"
            tsfp = FreeFile
            ReDim tsFbyte(FileLen(TSpath & TSfnTmp) - 1)
            Open TSpath & TSfnTmp For Binary As #tsfp
                Get #tsfp, , tsFbyte
            Close #tsfp
            Put #fp, , tsFbyte
            DoEvents
        Next
    Close #fp
    MsgBox "Over!"
End Sub

当然， 其中的几个输入变量你也可以填在Excel格子里面，由程序读入，这样转换下一个项目就不用再来改代码了。

组合成的大文件就可以直接拿去转mp4格式了（具体转换操作略，提示：可用黑鲨鱼、格式工厂等视频转换软件）