做一个简单的网络数据抓取程序,大部分地方都正常了,有个很奇怪的正则通过不了,抓不到数据,请大家帮小弟看看问题处在哪
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