| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1879 人关注过本帖, 1 人收藏
标题:各位大侠,如何采集这个网页的数据谢谢?
取消只看楼主 加入收藏
jinanshui
Rank: 2
等 级:论坛游民
帖 子:295
专家分:67
注 册:2009-10-6
结帖率:93.88%
收藏(1)
已结贴  问题点数:20 回复次数:6 
各位大侠,如何采集这个网页的数据谢谢?
我想
“http://www.lottery.””出球顺序: 13 31 34 12 05-10 12(本期使用:第1套摇奖球) “
的这些内容用VFP实时更新下载下来放到一个表中,但是在这个网页的源码找不到这些数据,各位大侠快看看,谢谢.
搜索更多相关主题的帖子: 采集 网页 数据 更新 表中 
2018-12-23 18:09
jinanshui
Rank: 2
等 级:论坛游民
帖 子:295
专家分:67
注 册:2009-10-6
收藏
得分:0 
谢谢,我参考一下.
2018-12-23 20:03
jinanshui
Rank: 2
等 级:论坛游民
帖 子:295
专家分:67
注 册:2009-10-6
收藏
得分:0 
如何能够依次获得其他期的号码?

2018-12-23 20:21
jinanshui
Rank: 2
等 级:论坛游民
帖 子:295
专家分:67
注 册:2009-10-6
收藏
得分:0 
对不起,我是个大菜鸟
2018-12-23 20:34
jinanshui
Rank: 2
等 级:论坛游民
帖 子:295
专家分:67
注 册:2009-10-6
收藏
得分:0 
oIE=Createobject("InterNetExplorer.Application")
cURLstr="http://www.
oIE.Navigate(cURLstr)
tStartSecond=Seconds()
Do While oIE.Busy = .T. Or oIE.ReadyState!=4
   If Seconds()-tStartSecond>10
      Exit
   Endif
   Inkey(0.5)
Enddo
lcStr= oIE.Document.body.innerText
lcStrb=STREXTRACT(lcStr,"出球顺序:","(本期使用:第" )
lcStrc=STREXTRACT(lcStr,"(本期使用:第","套摇奖球)" )
?  lcStrb
?  lcStrc
13  31 34 12 05-10  12
1
2018-12-24 10:25
jinanshui
Rank: 2
等 级:论坛游民
帖 子:295
专家分:67
注 册:2009-10-6
收藏
得分:0 
运行的很好,现在所有的以前的各期都下载下来加入到一个表中,大侠出手
2018-12-24 10:28
jinanshui
Rank: 2
等 级:论坛游民
帖 子:295
专家分:67
注 册:2009-10-6
收藏
得分:0 
运行的很好,现在所有的以前的各期都下载下来加入到一个表中,请版主出手,谢谢.
2018-12-28 07:38
快速回复:各位大侠,如何采集这个网页的数据谢谢?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.026651 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved