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

看了保存网页数据例子，自己实在看不懂，想找个网页试试，特在此求助

网页地址：

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

Tables("德清房产网").save

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

网页源代码

</div>

<DIV class=hs_p_b><span>德清二手房出售信息</span> <A href="flxx.asp" target="_blank" class=nava1>店面转让专区>></A></div>

(元/m2)</span></td>

</tr>

<td align="left"><a class="link2h-y" href="/html/house/22651.html" target=_blank>许园小区文欣园 2层/5层</a></td>

0/㎡</font></td>

………………

</table>

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

你现在的问题是什么? 请上个例子看看.

要把房产信息数据导入狐表数据库

编号	信息来源	区县	小区路段	房屋类型	面积	价格	单价 (元/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个房源/页转到：

上个例子我帮你写一下吧

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

谢谢

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

你例子中的网页地址,啥列表都没. 你要获取那个地址的. 贴出来

还是说要登录才可以? 那账号密码也发一下

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

不需要账号密码

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

主题：[求助]保存网页数据求助