Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]保存网页数据求助


  共有6702人关注过本帖树形打印复制链接

主题：[求助]保存网页数据求助
帅哥哟，离线，有人找我吗？
浙江仔
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1326 积分：9603 威望：0 精华：1 注册：2010/7/21 14:20:00 		[求助]保存网页数据求助  发帖心情 Post By：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
浙江仔
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1326 积分：9603 威望：0 精华：1 注册：2010/7/21 14:20:00 		  发帖心情 Post By：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>许园小区文欣园&nbsp;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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
浙江仔
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1326 积分：9603 威望：0 精华：1 注册：2010/7/21 14:20:00 		  发帖心情 Post By：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个房源/页  转到：

 回到顶部
帅哥哟，离线，有人找我吗？
浙江仔
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1326 积分：9603 威望：0 精华：1 注册：2010/7/21 14:20:00 		  发帖心情 Post By：2014/5/10 11:05:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:网页表格数据保存房产信息.table

 

谢谢

 

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

 


 
 回到顶部
帅哥哟，离线，有人找我吗？
浙江仔
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1326 积分：9603 威望：0 精华：1 注册：2010/7/21 14:20:00 		  发帖心情 Post By：2014/5/10 11:13:00 [显示全部帖子]

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

 

不需要账号密码

可能网页显示问题，表格看不到
 回到顶部
帅哥哟，离线，有人找我吗？
浙江仔
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1326 积分：9603 威望：0 精华：1 注册：2010/7/21 14:20:00 		  发帖心情 Post By：2014/5/10 11:19: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个房源/页  转到：

 回到顶部
帅哥哟，离线，有人找我吗？
浙江仔
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1326 积分：9603 威望：0 精华：1 注册：2010/7/21 14:20:00 		  发帖心情 Post By：2014/5/10 11:20:00 [显示全部帖子]

我用搜狗，有时也会不显示表格的，只能用兼容模式

 回到顶部
帅哥哟，离线，有人找我吗？
浙江仔
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1326 积分：9603 威望：0 精华：1 注册：2010/7/21 14:20:00 		  发帖心情 Post By：2014/5/10 11:28:00 [显示全部帖子]

非常感谢，研究一下

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.11328 秒, 6 次数据查询