看了保存网页数据例子,自己实在看不懂,想找个网页试试,特在此求助
网页地址:
http://www.0572home.com/house/hs2.asp
代码该怎么写:
Dim web As New System.Windows.Forms.WebBrowser()
web.Navigate("http://www.0572home.com/house/hs2.asp")
Do Until web.ReadyState = 4
Application.DoEvents
Loop
'取数据
Dim Cols() As String = { "编号","信息来源","区县","小区路段","房屋类型","面积","价格","单价","发布时间" }
Dim elems As object = web.Document.GetElementById("list_elem").GetElementsByTagName("hs_pens")
Dim m As Integer = 0
For Each elem As object In elems
Dim i As Integer = -1
m = m + 1
If m > 1 Then '因为网页的表格有标题,如果不判断,就会增加出一个空行
Tables("德清房产网").AddNew
End If
'Dim tdelems As object = elem.GetElementsByTagName("td")
'For Each tdelem As object In tdelems
'i = i + 1
'Tables("德清房产网").Current(Cols(i)) = tdelem.Innertext
'Tables("德清房产网").Current("录入日期") = Date.Today
'If i > 2 Then '必须要当价格区间列已经有值,才能执行以下代码
'Dim s As String = Tables("长江现货").Current("价格区间")
'Dim s2 As String = s.SubString(5,1) '价格区间中间的横杠有点特殊,不是键盘上的短横杠.所以用Asc()函数和Chr(-24150))配合来引用.
'Dim k As String = s.IndexOf(Chr(-24150)) '用Asc(s2)函数获得-的字符编码是-24150
'Tables("长江现货").Current("最高价") = s.SubString(k+1)
'Tables("长江现货").Current("最低价") = s.Remove(k)
'End If
'
'
'Next
Next
Tables("德清房产网").save
[此贴子已经被作者于2014-5-10 10:46:39编辑过]