专家坐堂-[求助]保存网页数据求助Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]保存网页数据求助  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=50636)

--  作者：浙江仔
--  发布时间：2014/5/10 10:44:00
--  [求助]保存网页数据求助
看了保存网页数据例子，自己实在看不懂，想找个网页试试，特在此求助

网页地址：
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编辑过]

--  作者：Bin
--  发布时间：2014/5/10 10:46:00
--
问题是什么?

--  作者：浙江仔
--  发布时间：2014/5/10 10:48:00
--
网页源代码

</div>
<div class="hs_pens">
<DIV class=hs_p_b><span>德清二手房出售信息</span> <A href="flxx.asp" target="_blank" class=nava1>店面转让专区>></A></div>
<table width="700" border="1" align="center" cellspacing="0" bordercolor="#e4e4e4" style="border-collapse: collapse " id="hsList">
<tr height="30" >
<td width="9%" bgColor=#e0ede9 > <span class="fBold">编号</span></td>
<td width="10%" bgColor=#e0ede9><span class="fBold">信息来源</span></td>
<td width="10%" bgColor=#e0ede9><span class="fBold">区县</span></td>
<td width="20%" bgColor=#e0ede9><span class="fBold">小区路段</span></td>
<td width="14%" bgColor=#e0ede9><span class="fBold">房屋类型</span></td>
<td width="8%" bgColor=#e0ede9><span class="fBold">面积</span></td>
<td width="9%" bgColor=#e0ede9><span class="fBold">价格</span></td>
<td width="8%" bgColor=#e0ede9><span class="fBold" style="line-height:15px">单价<br />
(元/m2)</span></td>

<td width="12%" bgColor=#e0ede9><span class="fBold">发布时间</span></td>
</tr>
<tr height="27">
<td>22651</td>
<td>个人<font color=#FF0000>出售</font> </td>
<td>德清武康</td>
<td align="left"><a class="link2h-y" href="/html/house/22651.html" target=_blank>许园小区文欣园 2层/5层</a></td>
<td align="left" >单身公寓<font color=#FF0000> </font></td>
<td>59㎡</td>
<td>48.8万元</td>
<td><font color="#008a42" >
0/㎡</font></td>
<td>2014/05/10</td>
………………

</table>

[此贴子已经被作者于2014-5-10 10:53:15编辑过]

--  作者：Bin
--  发布时间：2014/5/10 10:59:00
--
你现在的问题是什么? 请上个例子看看.

--  作者：浙江仔
--  发布时间：2014/5/10 11:01:00
--
要把房产信息数据导入狐表数据库

编号信息来源区县小区路段房屋类型面积价格单价
(元/m2) 发布时间

22651 个人出售德清武康许园小区文欣园 2层/5层单身公寓 59㎡ 48.8万元 0/㎡ 2014/05/10

78918 个人出售德清武康百合公寓 5层/6层多层住宅[图] 127.83㎡ 146万元 11421/㎡ 2014/05/10

80304 中介出售德清武康永安小区 4层/6层多层住宅 107㎡ 140元/月 13084/㎡ 2014/05/10

79803 中介出售德清武康群益街其它/其它店面商铺 55㎡ 80万元 14545/㎡ 2014/05/10

79804 中介出售德清武康山水名城 9层/11层多层住宅 93㎡ 115万元 12365/㎡ 2014/05/10

79805 中介出售德清武康格兰维亚 5层/6层多层住宅 199.61㎡面议未知 2014/05/10

79806 中介出售德清武康桂花城 3层/6层多层住宅 98.97㎡ 125万元 12630/㎡ 2014/05/10

79807 中介出售德清武康阳光花园 4层/5层多层住宅 137.5㎡ 125万元 9090/㎡ 2014/05/10

79884 中介出售德清武康英溪桃源 1层/5层多层住宅 153.2㎡ 275万元 17950/㎡ 2014/05/10

79885 中介出售德清武康桂花城 1层/5层多层住宅 168㎡ 180万元 10714/㎡ 2014/05/10

79886 中介出售德清武康永安小区 3层/4层多层住宅 132㎡ 128万元 9696/㎡ 2014/05/10

79887 中介出售德清武康河滨城市公寓 3层/17层小高层 75㎡ 73万元 9733/㎡ 2014/05/10

79911 中介出售德清武康翠苑小区 5层/6层多层住宅 135㎡ 95万元 7037/㎡ 2014/05/10

78885 中介出售德清武康金都阳光田园 1层/3层别墅 460㎡ 395万元 8586/㎡ 2014/05/10

79971 中介出售德清武康许园小区 5层/其它多层住宅 115㎡ 90万元 7826/㎡ 2014/05/10

79972 中介出售德清武康康乐小区 2层/5层多层住宅 111.5㎡ 5000元/M2 448430/㎡ 2014/05/10

79969 中介出售德清武康汇丰广场百乐街其它/其它店面商铺 46㎡ 48万元 10434/㎡ 2014/05/10

77472 中介出售德清武康吉祥小区 6层/6层多层住宅 97.6㎡ 59.8万元 0/㎡ 2014/05/10

79059 中介出售德清武康东苑新村 2层/5层多层住宅 90㎡ 65万元 7222/㎡ 2014/05/10

79112 中介出售德清武康桂花城 3层/5层多层住宅 143㎡ 160万元 11188/㎡ 2014/05/10

66804 中介出售德清武康舞阳街 1层/2层店面商铺 178㎡ 110万元 6179/㎡ 2014/05/10

79973 中介出售德清武康中贸大厦 7层/其它写字楼 590㎡面议未知 2014/05/10

79974 中介出售德清武康美都现代城其它/其它商务办公 628.62㎡面议未知 2014/05/10

79975 中介出售德清武康山水名城 2层/11层多层住宅 93.14㎡ 96万元 10307/㎡ 2014/05/10

80048 中介出售德清武康安居小区 5层/5层多层住宅 121㎡ 80万元 6611/㎡ 2014/05/10

80051 中介出售德清武康私营城康明路 1层/4层店面商铺 80㎡面议未知 2014/05/10

80057 中介出售德清武康私营城 4层/5层多层住宅 102㎡ 53.8万元 0/㎡ 2014/05/10

80059 中介出售德清武康许园小区 5层/6层多层住宅 47㎡ 38万元 8085/㎡ 2014/05/10

80113 中介出售德清武康许园小区 3层/6层多层住宅 136㎡ 95万元 6985/㎡ 2014/05/10

80133 中介出售德清武康吉祥小区 3层/5层多层住宅 78㎡ 56万元 7179/㎡ 2014/05/10

共 26081 个房源   首页上一页下一页尾页页次：1/870页 30个房源/页转到：

--  作者：Bin
--  发布时间：2014/5/10 11:03:00
--
上个例子我帮你写一下吧

--  作者：浙江仔
--  发布时间：2014/5/10 11:05:00
--

下载信息  [文件大小：   下载次数： ]
点击浏览该文件:网页表格数据保存房产信息.table

谢谢

主要是原理不明白，不知道怎么依样画葫芦

--  作者：Bin
--  发布时间：2014/5/10 11:08:00
--
你例子中的网页地址,啥列表都没. 你要获取那个地址的. 贴出来

--  作者：Bin
--  发布时间：2014/5/10 11:09:00
--
还是说要登录才可以? 那账号密码也发一下

--  作者：浙江仔
--  发布时间：2014/5/10 11:13:00
--

http://www.0572home.com/house/hs2.asp

不需要账号密码

可能网页显示问题，表格看不到