VB采集网页数据，求助！！！

Question

分析下源码，先用">城&nbsp;&nbsp;市</td>"分出数组，再根据各个关键词取得各个值

Answer 1

'This code was generated by "RegTestTool v1.1.30", please call the sub TestReg.
Private Sub TestReg()
    Dim strData As String
    Dim reg As Object    strData = "<tr bgcolor=""#FFFFFF""><td height=""30"" colspan=""6"" align=""center"">详细信息</td></tr>"  &  vbCrLf  & _
              "<tr bgcolor=""#FFFFFF"">"  &  vbCrLf  & _
              "<td width=""57"" height=""22"">城&nbsp;&nbsp;市</td>"  &  vbCrLf  & _
              "<td width=""143"">南宁市</td>"  &  vbCrLf  & _
              "<td width=""58"">区&nbsp;&nbsp;县</td>"  &  vbCrLf  & _
              "<td width=""142"">江南区</td>"  &  vbCrLf  & _
              "<td width=""62"">房源编号 </td>"  &  vbCrLf  & _
              "<td width=""99"">82011234607</td></tr>"  &  vbCrLf  & _
              "<tr bgcolor=""#FFFFFF"">"  &  vbCrLf  & _
              "<td height=""22"">地 址 </td>"  &  vbCrLf  & _
              "<td colspan=""5"">白沙大道龙光·普罗旺斯</td></tr>"  &  vbCrLf  & _
              "<tr bgcolor=""#FFFFFF"">"  &  vbCrLf  & _
              "<td height=""22"">户 型 </td>"  &  vbCrLf  & _
              "<td>三房二厅</td>"  &  vbCrLf  & _
              "<td>建筑面积</td>"  &  vbCrLf  & _
              "<td>123平方米 </td>"  &  vbCrLf  & _
              "<td>使用面积</td>"  &  vbCrLf  & _
              "<td>0平方米</td></tr>"  &  vbCrLf  & _
              "<tr bgcolor=""#FFFFFF"">"  &  vbCrLf  & _
              "<td height=""22"">楼 层 </td>"    Set reg = CreateObject("vbscript.regExp")
    reg.Global = True
    reg.IgnoreCase = True
    reg.MultiLine = True
    reg.Pattern = "<.*?>"
    Debug.Print reg.Replace(strData, "")
End Sub

Answer 2

'This code was generated by "RegTestTool v1.1.30", please call the sub TestReg.
Private Sub TestReg()
    Dim strData As String
    Dim reg As Object    strData = "<tr bgcolor=""#FFFFFF""><td height=""30"" colspan=""6"" align=""center"">详细信息</td></tr>"  &  vbCrLf  & _
              "<tr bgcolor=""#FFFFFF"">"  &  vbCrLf  & _
              "<td width=""57"" height=""22"">城&nbsp;&nbsp;市</td>"  &  vbCrLf  & _
              "<td width=""143"">南宁市</td>"  &  vbCrLf  & _
              "<td width=""58"">区&nbsp;&nbsp;县</td>"  &  vbCrLf  & _
              "<td width=""142"">江南区</td>"  &  vbCrLf  & _
              "<td width=""62"">房源编号 </td>"  &  vbCrLf  & _
              "<td width=""99"">82011234607</td></tr>"  &  vbCrLf  & _
              "<tr bgcolor=""#FFFFFF"">"  &  vbCrLf  & _
              "<td height=""22"">地 址 </td>"  &  vbCrLf  & _
              "<td colspan=""5"">白沙大道龙光·普罗旺斯</td></tr>"  &  vbCrLf  & _
              "<tr bgcolor=""#FFFFFF"">"  &  vbCrLf  & _
              "<td height=""22"">户 型 </td>"  &  vbCrLf  & _
              "<td>三房二厅</td>"  &  vbCrLf  & _
              "<td>建筑面积</td>"  &  vbCrLf  & _
              "<td>123平方米 </td>"  &  vbCrLf  & _
              "<td>使用面积</td>"  &  vbCrLf  & _
              "<td>0平方米</td></tr>"  &  vbCrLf  & _
              "<tr bgcolor=""#FFFFFF"">"  &  vbCrLf  & _
              "<td height=""22"">楼 层 </td>"    Set reg = CreateObject("vbscript.regExp")
    reg.Global = True
    reg.IgnoreCase = True
    reg.MultiLine = True
    reg.Pattern = "(?:<.*?>|&nbsp;)"'修改了下表达式
    Debug.Print reg.Replace(strData, "")
End Sub

Answer 3

'This code was generated by "RegTestTool v1.1.30", please call the sub TestReg.
Private Sub TestReg()
    Dim strData As String
    Dim reg As Object    strData = "<tr bgcolor=""#FFFFFF""><td height=""30"" colspan=""6"" align=""center"">详细信息</td></tr>"  &  vbCrLf  & _
              "<tr bgcolor=""#FFFFFF"">"  &  vbCrLf  & _
              "<td width=""57"" height=""22"">城&nbsp;&nbsp;市</td>"  &  vbCrLf  & _
              "<td width=""143"">南宁市</td>"  &  vbCrLf  & _
              "<td width=""58"">区&nbsp;&nbsp;县</td>"  &  vbCrLf  & _
              "<td width=""142"">江南区</td>"  &  vbCrLf  & _
              "<td width=""62"">房源编号 </td>"  &  vbCrLf  & _
              "<td width=""99"">82011234607</td></tr>"  &  vbCrLf  & _
              "<tr bgcolor=""#FFFFFF"">"  &  vbCrLf  & _
              "<td height=""22"">地 址 </td>"  &  vbCrLf  & _
              "<td colspan=""5"">白沙大道龙光·普罗旺斯</td></tr>"  &  vbCrLf  & _
              "<tr bgcolor=""#FFFFFF"">"  &  vbCrLf  & _
              "<td height=""22"">户 型 </td>"  &  vbCrLf  & _
              "<td>三房二厅</td>"  &  vbCrLf  & _
              "<td>建筑面积</td>"  &  vbCrLf  & _
              "<td>123平方米 </td>"  &  vbCrLf  & _
              "<td>使用面积</td>"  &  vbCrLf  & _
              "<td>0平方米</td></tr>"  &  vbCrLf  & _
              "<tr bgcolor=""#FFFFFF"">"  &  vbCrLf  & _
              "<td height=""22"">楼 层 </td>"    Set reg = CreateObject("vbscript.regExp")
    reg.Global = True
    reg.IgnoreCase = True
    reg.MultiLine = True
    reg.Pattern = "(?:<.*?>|&nbsp;)"'修改了下表达式
    Debug.Print reg.Replace(strData, "")
End Sub

Answer 4

视乎还不行哦，，，我要获取的地址是：http://08fang.com/show.aspx?t=d&zid=112054&typeto=Sale继续求助辛苦了，兔子，但问题还没解决。

Answer 5

上不了外网，只能试试：
'This code was generated by "RegTestTool v1.1.30", please call the sub TestReg.
Private Sub TestReg()
    Dim strData As String
    Dim reg As Object    strData = getHtmlStr("http://08fang.com/show.aspx?t=d&zid=112054&typeto=Sale")    Set reg = CreateObject("vbscript.regExp")
    reg.Global = True
    reg.IgnoreCase = True
    reg.MultiLine = True
    reg.Pattern = "(?:<.*?>|&nbsp;)"
    Debug.Print reg.Replace(strData, "")
End SubPrivate Function getHtmlStr(strUrl As String) As String
    Dim XmlHttp As Object
    Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
    XmlHttp.Open "GET", strUrl, False
    XmlHttp.send
    getHtmlStr = StrConv(XmlHttp.ResponseBody, vbUnicode)
    Set XmlHttp = Nothing
End Function