|
Dim data As String = FileSys.ReadAllText("d:\test.txt").Replace(vbcrlf, "").Replace(chr(9), "")
Dim reg As new System.Text.RegularExpressions.Regex("(?><tr.*?>).*?</tr>")
Dim reg2 As new System.Text.RegularExpressions.Regex("<td.*?>.*?<")
Dim reg3 As new System.Text.RegularExpressions.Regex("(?<=<td.*?>).*?(?=<)")
Dim reg4 As new System.Text.RegularExpressions.Regex("(?<=title="").*?(?="")")
Dim mc As object = reg.Matches(data)
For i as integer = 0 to mc.count-1
'output.show(mc(i).value)
Dim m As object = reg2.Matches(mc(i).value)
output.show(m(0).value)
Dim m1 As object = reg3.Matches(mc(i).value)
output.show(m1(0).value)
Dim m2 As object = reg4.Matches(mc(i).value)
If m2.count > 0 Then
output.show(m2(0).value)
End If
next
|
加好友 
发短信
Post By：2017/8/10 9:36:00 [显示全部帖子]
