| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 884 人关注过本帖, 1 人收藏
标题:各位大侠,如何采集这个网页的数据谢谢?
只看楼主 加入收藏
jinanshui
Rank: 2
等 级:论坛游民
帖 子:175
专家分:61
注 册:2009-10-6
结帖率:93.33%
  已结贴   问题点数:20  回复次数:9   
各位大侠,如何采集这个网页的数据谢谢?
我想
“http://www.lottery.””出球顺序: 13 31 34 12 05-10 12(本期使用:第1套摇奖球) “
的这些内容用VFP实时更新下载下来放到一个表中,但是在这个网页的源码找不到这些数据,各位大侠快看看,谢谢.
搜索更多相关主题的帖子: 采集 网页 数据 更新 表中 
2018-12-23 18:09
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:200
帖 子:7878
专家分:19533
注 册:2012-2-5
  得分:20 
VFP9代码
oIE=Createobject("InterNetExplorer.Application")
cURLstr="http://www.lottery.
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
lcStr=STREXTRACT(lcStr,"出球顺序:","(本期使用:" )
=ALINES(aa,lcstr," ","-")
LIST MEMORY LIKE aa

附件: 您没有浏览附件的权限,请 登录注册

坚守VFP最后的阵地
2018-12-23 19:59
jinanshui
Rank: 2
等 级:论坛游民
帖 子:175
专家分:61
注 册:2009-10-6
  得分:0 
谢谢,我参考一下.
2018-12-23 20:03
jinanshui
Rank: 2
等 级:论坛游民
帖 子:175
专家分:61
注 册:2009-10-6
  得分:0 
如何能够依次获得其他期的号码?

2018-12-23 20:21
jinanshui
Rank: 2
等 级:论坛游民
帖 子:175
专家分:61
注 册:2009-10-6
  得分:0 
对不起,我是个大菜鸟
2018-12-23 20:34
jinanshui
Rank: 2
等 级:论坛游民
帖 子:175
专家分:61
注 册: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
等 级:论坛游民
帖 子:175
专家分:61
注 册:2009-10-6
  得分:0 
运行的很好,现在所有的以前的各期都下载下来加入到一个表中,大侠出手
2018-12-24 10:28
lianliming
Rank: 2
等 级:论坛游民
帖 子:28
专家分:18
注 册:2009-5-24
  得分:0 
回复 2楼 sdta
如何采集某个网页的数据内容,如一张表格,谢谢?
2018-12-24 23:18
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:200
帖 子:7878
专家分:19533
注 册:2012-2-5
  得分:0 
回复 8楼 lianliming
视具体情况而定

坚守VFP最后的阵地
2018-12-25 12:02
jinanshui
Rank: 2
等 级:论坛游民
帖 子:175
专家分:61
注 册:2009-10-6
  得分:0 
运行的很好,现在所有的以前的各期都下载下来加入到一个表中,请版主出手,谢谢.
2018-12-28 07:38
快速回复:各位大侠,如何采集这个网页的数据谢谢?
数据加载中...
 
   



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

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