1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
Dim partern As String = "<td class=""phone"">(.+?)<" & Environment.NewLine & "<td class=""message"" rowspan=""2"">(.+?)<" & Environment.NewLine & "<td class=""time"">(.+?)<"
Dim array_P As String() = partern.Split(Environment.NewLine)
for i = 0 to array_P.length -1
Dim m1 As MatchCollection = Regex.Matches(source, array_P(array_P.Length - 1), RegexOptions.IgnoreCase)
For Each m As Match In m1
Dim data = m.Groups(1).Value
Dim data2 = m.Groups(1).Value
Dim data3 = m.Groups(1).Value
Dim lvi As New ListViewItem(data)
lvi.SubItems.Add(data2)
lvi.SubItems.Add(data3)
ListView1.Items.Add(lvi)
next
next |
