пишу следующий код:
- Код: Выделить всё
Dim myStreamReader As New StreamReader(myHttpWebResponse.GetResponseStream, Encoding.UTF8)
'TextBox1.Text = myStreamReader.ReadToEnd()
Dim input As String
Dim pattern As String = "<p>.+?</p>"
Do While myStreamReader.Peek() >= 0
input = myStreamReader.ReadLine()
Dim rgx As New Regex(pattern, RegexOptions.IgnoreCase)
Dim matches As MatchCollection = rgx.Matches(input)
If matches.Count > 0 Then
Console.WriteLine("{0} ({1} matches):", input, matches.Count)
For Each match As Match In matches
TextBox2.Text = TextBox2.Text + " " + input
Next
End If
Loop
myStreamReader.Close()
Код сработал, но во первых он выдает мне строчки в месте с тегами <p>, а во вторых, внутри строчек, если встречаются сторонние теги, то он и их пишет в текстбокс.
Предполагаю, что некорректно записал строчку в коде: Dim pattern As String = "<p>.+?</p>"
msdn смотрел, но так и не понял как правильно оформить значение.
2. И ещё вопрос: тег <p> встречается многократно, есть ли возможность отследить пятый тег.
