一个急需高手解决的问题

[fenglinger47073]

如何利用VB或者其他的开发工具，编写一个程序。在你所选中的多个网页上，把你所需要的数据取出并保存在Excel文档中。
网页上的例子我没排列整齐，我需要从中得到比赛的类型、时间、球队双方名称和让球数量等等。兄弟在些谢过了。
聯賽 時間 隊伍 讓球 大小盤 1 X 2 單/雙
世界盃 06-19 21:00 瑞士 (中) √ 1 0.740 大 2 0.730 1.40 4.00 7.37 單 1.000
多哥 -0.810 小 2 -0.830 其他項目 雙 0.920

世界盃 06-19
21:00 瑞士 (中) √ 1 / 1.5 -0.970 大 2 / 2.5 1.000
多哥 0.900 小 2 / 2.5 0.900

世界盃 06-19
21:00 瑞士 (上半场) (中) √ 0 / 0.5 0.670 大 0.5 / 1 0.800 1.90 2.25 6.53
多哥 (上半场) -0.770 小 0.5 / 1 -0.900

世界盃 06-19
23:59 烏克蘭 (中) √ 1 0.680 大 2 / 2.5 0.820 1.35 4.20 7.89 單 1.000
沙地阿拉伯 -0.750 小 2 / 2.5 -0.920 其他項目 雙 0.920

世界盃 06-19
23:59 烏克蘭 (中) √ 1 / 1.5 0.950 大 2.5 -0.870
沙地阿拉伯 0.980 小 2.5 0.770

[清晨曦月]

天呢。。。。我想，大概有这么几个思路
1、读IE缓存里面有没有你要的数据，也许是下下来的呢
2、分析网页代码
3、用MS INTERNET TRANSFER CONTROL 6下载处理
4、OLE
5、才疏学浅，其他不知道，没接触过

如果是我，可能分析网页代码，把网页下下来，而后用字符分析的办法，因为网页里面的东东写的都很明白了，很好分析。OLE如果能实现应该比较简单了，哎，偶没水平不会。。

[junki]

这是比较细致的工作，主要是把格式弄清楚就好办了。

[fenglinger47073]

有没有实例呀？特别是从框架页中取出数据，保存在SQL数据库的某个表中？请兄弟们帮帮！

[一笑拔剑]

使用webbrower可以获取数据

但是我比较熟悉access对于excel格式不太了解

下面是一个例子

首先是插入一个webbrower控件

WebBrowser1.Navigate 你所要查看的网址

之后在WebBrowser1_DocumentComplete事件中

Dim doc As IHTMLDocument2

Set doc = WebBrowser1.Document

Dim tmp As String

Dim ttime As Integer


p = doc.body.innerText


Text1.Text = p

End If
这样就把所有的html代码给提取出来了
之后你使用字符串处理函数把数据给分离开

之后使用adodc或者ole db入库即可

[province_]

这种程序都是要仔细分析HTML页面结构的，INNERTEXT可以得到里面的全部内容（不含TAG标记），然后要确定一个开始特征串及结束串，再把包含在之间的内容分隔出来。以后就简单了。

[fenglinger47073]

谢谢，aspower_()和province_(雍昊)

[fenglinger47073]

谢谢大家的关注！如果大家不嫌弃我的话，交个朋友。我的邮箱是[e-mail]留下QQ或电话方便大家以后在工作和生活上的交流。