呃,还是不太熟练,弄了很久。
Dim data As String = FileSys.ReadAllText("d:\test.htm").Replace(vbcrlf, "").Replace(chr(9), "")
Dim reg As new System.Text.RegularExpressions.Regex("(?><td.*?>).*?</td>")
Dim reg2 As new System.Text.RegularExpressions.Regex("(?<=<td.*?>).*?(?=<)")
Dim mc As object = reg.Matches(data)
For i As Integer = 0 To mc.count - 1
Dim m As object = reg2.matches(mc(i).value)
output.Show(m(0).value)
Next