做一个简单的网络数据抓取程序,大部分地方都正常了,有个很奇怪的正则通过不了,抓不到数据,请大家帮小弟看看问题处在哪
dim strcode="<td height=23 align=left class=s>
您当前位置:
</td>"
Dim strb = "<td height=23 align=left class=s>"
Dim stre = "</td>"
Dim t = GetRegValue(strb3 & ".+?" & stre3, ReplaceEnter(htmlcode))这样t就是返回不了值
其中的GetRegValue是一个match函数
Public Function GetRegValue(ByVal RegexString As String, ByVal RemoteStr As String) As String
Dim MatchVale As String = ""
Dim r As New Regex(RegexString)
Dim m As Match = r.Match(RemoteStr)
If m.Success Then
MatchVale = m.Value
Else
MatchVale = ""
End If
Return MatchVale
End Function
dim strcode="<td height=23 align=left class=s>
您当前位置:
</td>"
Dim strb = "<td height=23 align=left class=s>"
Dim stre = "</td>"
Dim t = GetRegValue(strb3 & ".+?" & stre3, ReplaceEnter(htmlcode))这样t就是返回不了值
其中的GetRegValue是一个match函数
Public Function GetRegValue(ByVal RegexString As String, ByVal RemoteStr As String) As String
Dim MatchVale As String = ""
Dim r As New Regex(RegexString)
Dim m As Match = r.Match(RemoteStr)
If m.Success Then
MatchVale = m.Value
Else
MatchVale = ""
End If
Return MatchVale
End Function
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货