| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1873 人关注过本帖, 1 人收藏
标题:各位大侠,能把这些内容用VFP 下载下来并能实时更新放到一个表中吗
只看楼主 加入收藏
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:5 
以下是引用whinda在2013-8-11 00:01:13的发言:

***********************下面更改下拉选框,浏览往期历史数据。*****************
*前提:oie是浏览器对象,并已打开相应网页"http://www.lottery.
*传入参数为要查的期数,文本格式:“13091”
*例句:BrowseAnother("13089")
Procedure BrowseAnother
    Lparameters cSerial        &&传入期数
    otab=oie.Document.getelementsbytagname("select")&&取得Select选择框对象引用
    otab.Item(0).Value=cSerial&&改期数为传入值
    oie.Document.Forms(0).submit&&递交网页申请,页面刷新后,oTab的对象引用被重置,不可用了
Endproc                    &&需要重新申请引用。
                                &&网页的数据被刷新,可以重复上文述及的取数操作,获得往期数据。     
如何将指定期号(如 13089)的页面内容存入字符串变量中,便于查找。

[ 本帖最后由 sdta 于 2013-8-11 02:14 编辑 ]

坚守VFP最后的阵地
2013-08-11 01:00
whinda
Rank: 6Rank: 6
等 级:贵宾
威 望:13
帖 子:253
专家分:418
注 册:2012-2-4
收藏
得分:0 
就上面传的源代码附件就可以,先查找数据表,取表的文本,并存入了N1......N7的那7个数据。
2013-08-11 08:26
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
以下是引用whinda在2013-8-10 23:03:07的发言:

要么直接定位到aRsult[8],我考虑不够周全,因为存在重复取数的问题,如不直接定位,请在IF...ENDIF对内取完第8个nBall的下面加一句EXIT,跳出FOR....ENDFOR,避免重复取数.请见谅,只是一个想法的初次实现,未严格验证.
 
下面上传已验证的程序:
这段代码不能正常运行吧

坚守VFP最后的阵地
2013-08-11 21:51
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
以下是引用whinda在2013-8-11 08:26:44的发言:

就上面传的源代码附件就可以,先查找数据表,取表的文本,并存入了N1......N7的那7个数据。
高手能否把代码组装下,让大家学习下。

坚守VFP最后的阵地
2013-08-11 21:52
whinda
Rank: 6Rank: 6
等 级:贵宾
威 望:13
帖 子:253
专家分:418
注 册:2012-2-4
收藏
得分:0 
系统:VFP9.0 SP2
这是调试器中的运行情况,下面为抓取的数据。
图片附件: 游客没有浏览图片的权限,请 登录注册


程序源码
getwebelements.rar (1.65 KB)
。第二个子程序使用前是有前提的。
2013-08-12 00:00
whinda
Rank: 6Rank: 6
等 级:贵宾
威 望:13
帖 子:253
专家分:418
注 册:2012-2-4
收藏
得分:0 
出了什么错误,请说明一下。
2013-08-12 00:01
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
图片附件: 游客没有浏览图片的权限,请 登录注册


[ 本帖最后由 sdta 于 2013-8-12 00:08 编辑 ]

坚守VFP最后的阵地
2013-08-12 00:06
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
以下是引用whinda在2013-8-12 00:00:36的发言:

系统:VFP9.0 SP2
这是调试器中的运行情况,下面为抓取的数据。
 
程序源码。第二个子程序使用前是有前提的。
关键是如何用下面的代码
*前提:oie是浏览器对象,并已打开相应网页"http://www.lottery.
*传入参数为要查的期数,文本格式:“13091”
*例句:BrowseAnother("13089")
Procedure BrowseAnother
    Lparameters cSerial        &&传入期数
    otab=oie.Document.getelementsbytagname("select")&&取得Select选择框对象引用
    otab.Item(0).Value=cSerial&&改期数为传入值
    oie.Document.Forms(0).submit&&递交网页申请,页面刷新后,oTab的对象引用被重置,不可用了
Endproc                            &&需要重新申请引用

坚守VFP最后的阵地
2013-08-12 00:21
whinda
Rank: 6Rank: 6
等 级:贵宾
威 望:13
帖 子:253
专家分:418
注 册:2012-2-4
收藏
得分:0 
这个子程序用于更改期数并刷新网页,你可以将更新后的网页引用返回给上面的处理过程呀!
在程序末加一句返回代码就可以了
return oie.document

如:
local oNew
oNew=BrowseAnother("13092")

这时你的oNew就取得了子进程中打开的IE的处理句柄(实际上是oie.document),就可以像前述代码一样处理它了。
2013-08-12 02:13
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
以下是引用whinda在2013-8-12 02:13:30的发言:

这个子程序用于更改期数并刷新网页,你可以将更新后的网页引用返回给上面的处理过程呀!
在程序末加一句返回代码就可以了
return oie.document
 
如:
local oNew
oNew=BrowseAnother("13092")
 
这时你的oNew就取得了子进程中打开的IE的处理句柄(实际上是oie.document),就可以像前述代码一样处理它了。
能写个完整的代码吗
网页方面是空白
谢谢了

坚守VFP最后的阵地
2013-08-12 02:21
快速回复:各位大侠,能把这些内容用VFP 下载下来并能实时更新放到一个表中吗
数据加载中...
 
   



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

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