VB Httpwebresponse 获取内容

Question

在以下网页上，我想在我的列表框中获取 youtube 视频的所有标题1

        Dim webRequest As WebRequest = webRequest.Create("https://www.youtube.com/results?q=test")
        Dim webresponse As WebResponse = webRequest.GetResponse()

        Dim sr As System.IO.StreamReader = New System.IO.StreamReader(webresponse.GetResponseStream())

        Dim youtube As String = sr.ReadToEnd

        Dim r As New System.Text.RegularExpressions.Regex("title="".*""")
        Dim matches As MatchCollection = r.Matches(youtube)

        For Each itemcode As Match In matches

            ListBox1.Items.Add(itemcode.Value.Split("""").GetValue(1))

但是，通过这段代码，我得到了标题，还有一堆其他的东西......

Answer 1

YouTube 提供了API，这可能是获取此信息的更好方法。您要拨打的特定电话记录在此处：https://developers.google.com/youtube/v3/docs/search/list。

为了使用 YouTube API，您需要创建一个 API 密钥。这可以通过Google developers console 完成。获得密钥后，您就可以调用 YouTube 来搜索视频、获取视频信息等

以您的代码为基础，您可以使用以下方面的内容：

Dim url As String = "https://www.googleapis.com/youtube/v3/search?part=snippet&q=test&maxResults=50&key={YOUR-API-KEY}"

Dim webRequest As WebRequest = webRequest.Create(url)
Dim webresponse As WebResponse = webRequest.GetResponse()

Dim sr As System.IO.StreamReader = New System.IO.StreamReader(webresponse.GetResponseStream())

Dim youtube As String = sr.ReadToEnd

Dim r As New System.Text.RegularExpressions.Regex("""title"": "".*""")
Dim matches As MatchCollection = r.Matches(youtube)

For Each itemcode As Match In matches
    ListBox1.Items.Add(itemcode.Value.Split(":").GetValue(1).Trim().TrimStart("""").TrimEnd(""""))
Next

q 参数指定搜索查询。这将获得您搜索的前 50 个匹配项并将它们放入您的下拉列表中。

Answer 2

如果您想坚持使用正则表达式，请尝试以下操作

Dim r As New System.Text.RegularExpressions.Regex("title=""([^""]*)""")
Dim matches As MatchCollection = r.Matches(youtube)


For Each itemcode As Match In matches
    ListBox1.Items.Add(itemcode.Groups(1))
Next

但专用 API 更简洁