主题：[求助]网页源代码数据提取求助

参考代码

Dim trs As object = web.Document.GetElementsByTagName("tr")
Dim m As Integer = 0
For Each tr As object In trs
    If tr.InnerHtml.contains("准考证号") Then
        msgbox(tr.GetElementsByTagName("td")(1).InnerText)
    End If
    If tr.InnerHtml.contains("身份证号") Then
        msgbox(tr.GetElementsByTagName("td")(3).InnerText)
    End If
Next

参考代码

Dim str As String = FileSys.ReadAllText("d:\test.txt", Encoding.Default)
output.show(str)
Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "(?<=<td colspan=""2"">)[0-9]{18}")
If mc.count > 0 Then
    msgbox(mc(0).value)
End If

mc = System.Text.RegularExpressions.Regex.Matches(str, "(?<=<td>)[0-9]{12}")
If mc.count > 0 Then
    msgbox(mc(0).value)
End If