请帮忙，提取网上下载的数据，谢谢！ - VFP论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 数据库技术 → 『 VFP论坛』 → 请帮忙，提取网上下载的数据，谢谢！

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 5556 人关注过本帖， 1 人收藏

标题：请帮忙，提取网上下载的数据，谢谢！

只看楼主加入收藏

schtg

来　自：Usa
等　级：贵宾
威　望：67
帖　子：1738
专家分：3329
注　册：2012-2-29

第 11 楼

得分:0

回复 8楼红星二锅头

测试成功，谢谢！

2017-05-05 12:11

schtg

来　自：Usa
等　级：贵宾
威　望：67
帖　子：1738
专家分：3329
注　册：2012-2-29

第 12 楼

得分:0

回复 3楼红星二锅头

使用它已经下载成功，非常感谢！

2017-05-05 12:16

wangzhiyi

等　级：贵宾
威　望：34
帖　子：366
专家分：684
注　册：2014-4-9

第 13 楼

得分:0

2017-05-05 14:12

红星二锅头

等　级：贵宾
威　望：46
帖　子：491
专家分：754
注　册：2016-8-25

第 14 楼

得分:0

是要这种效果吗？

图片附件: 游客没有浏览图片的权限，请登录或注册

团队红星二锅头,队长王猛,领队李冲,顾问杨伟,副队张挺,外联马彪,内勤韩秀,人事顾闯,财务赵魁,后勤周强

2017-05-05 14:44

红星二锅头

等　级：贵宾
威　望：46
帖　子：491
专家分：754
注　册：2016-8-25

第 15 楼

得分:0

Wait Window "正在提取理科数据，请稍等......" Nowait
oIE = Createobject("internetexplorer.application")
oIE.Visible = .F.  && or .T.
oIE.Navigate("http://www.)
tStartSecond = Seconds()
Do While oIE.Busy = .T. Or oIE.ReadyState#4
    If Seconds() - tStartSecond > 10  && Or 10+
        Exit
    Endif
    Inkey(0.5)
Enddo

Create Cursor 理科 ( Fld0 C(10), Fld1 C(10), Fld2 C(10), Fld3 C(10) )

objTable = oIE.Document.getElementsByTagName("table").[0]

For Each objRow In objTable.Rows
    Insert Into 理科 Values (;
        objRow.cells(0).innertext, objRow.cells(1).innertext, ;
        objRow.cells(2).innertext, objRow.cells(3).innertext )
Next

Wait Window "Finish." Nowait

oIE.Quit()

Select 理科
Browse Last

团队红星二锅头,队长王猛,领队李冲,顾问杨伟,副队张挺,外联马彪,内勤韩秀,人事顾闯,财务赵魁,后勤周强

2017-05-05 14:45