参考代码

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