хорошо, благодаря cjjer и Boo, я только что прочитал больше о регулярных выражениях, и, наконец, приведенный ниже код работает для меня.
Dim qq As New System.Net.WebClient
Dim theuri As New Uri(TextBox1.Text)
Dim res As String = qq.DownloadString(theuri)
Dim re As Regex = New Regex("<title\b[^>]*>(.*?)</title>", RegexOptions.Singleline)
Dim ma As Match = re.Match(res)
If Not ma Is Nothing And ma.Success Then
Response.Write(ma.Groups(1).Value.ToString())
Else
Response.Write("error")
End If
но в любом случае проблема остается: этот код загружает всю страницу и просматривает ее, какие тяжелые сайты заняли более 2 или 3 секунды, но, насколько я знаю, это единственный путь: |
Есть какие-нибудь предложения по улучшению этого кода?