我有以下代码,可以从YouTube 下载带有视频字幕的xml文件
Sub Test()
Dim http As Object
Dim oStream As Object
Set http = CreateObject("MSXML2.XMLHTTP")
http.Open "GET", "http://video.google.com/timedtext?lang=en&v=qANA6POtuFo", False
http.send
Set oStream = CreateObject("ADODB.Stream")
oStream.Open
oStream.Type = 1
oStream.Write http.responseBody
oStream.SaveToFile ThisWorkbook.Path & "Sample.xml", 2
oStream.Close
End Sub
但它不适用于其他视频例如,我尝试了这个链接v=4Z3EJrh7_5k
知道如何下载带有字幕的视频吗?
据我所研究,你不能从4Z3EJrh7_5k
下载,因为它的字幕不是别人上传的文件,而是自动生成的。
要查看视频是否有字幕文件,可以使用http://video.google.com/timedtext?type=list&v=qANA6POtuFo
,它会列出视频中插入的语言的每个文件。你可以注意到,它只显示一个,即使你去视频并点击,也有两个(英语和英语(自动生成((