从 Youtube 获取第一个视频 VB.NET
Get First Vid From Youtube VB.NET
我正在尝试从 youtube 或 google 获取第一个 youtube link,但无法正常工作。有人可以帮我吗?
Dim m As New Regex("<a href=""/watch?v=.*"""
)
Dim request2 As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("https://www.youtube.com/results?search_query=" + ListBox1.SelectedItem + " " + ListBox2.SelectedItem)
Dim responseyoutube As System.Net.HttpWebResponse = request2.GetResponse
TextBox2.Text = (request2.Address.ToString)
Dim sr As System.IO.StreamReader = New System.IO.StreamReader(responseyoutube.GetResponseStream())
Dim rssourcecodey As String = sr.ReadToEnd
Dim matches As MatchCollection = m.Matches(rssourcecodey)
TextBox1.Text = rssourcecodey
For Each itemcode2 As Match In matches
youtube = itemcode2.Value.Split("=").GetValue(1)
ListBox2.Items.Add(youtube)
?
是正则表达式中的一个特殊元字符,它使前一个标记成为可选标记(而不是 *
或 +
之后的标记)。因此,您需要转义 ?
符号以匹配文字 ?
符号。
Dim m As New Regex("<a href=""/watch[?]v=.*""")
或
Dim m As New Regex("<a href=""/watch\?v=.*""")
我正在尝试从 youtube 或 google 获取第一个 youtube link,但无法正常工作。有人可以帮我吗?
Dim m As New Regex("<a href=""/watch?v=.*"""
)Dim request2 As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("https://www.youtube.com/results?search_query=" + ListBox1.SelectedItem + " " + ListBox2.SelectedItem)
Dim responseyoutube As System.Net.HttpWebResponse = request2.GetResponse TextBox2.Text = (request2.Address.ToString) Dim sr As System.IO.StreamReader = New System.IO.StreamReader(responseyoutube.GetResponseStream()) Dim rssourcecodey As String = sr.ReadToEnd Dim matches As MatchCollection = m.Matches(rssourcecodey) TextBox1.Text = rssourcecodey For Each itemcode2 As Match In matches youtube = itemcode2.Value.Split("=").GetValue(1) ListBox2.Items.Add(youtube)
?
是正则表达式中的一个特殊元字符,它使前一个标记成为可选标记(而不是 *
或 +
之后的标记)。因此,您需要转义 ?
符号以匹配文字 ?
符号。
Dim m As New Regex("<a href=""/watch[?]v=.*""")
或
Dim m As New Regex("<a href=""/watch\?v=.*""")