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

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

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

只看楼主

schtg

来　自：https://t.me/pump_upp
等　级：贵宾
威　望：67
帖　子：1355
专家分：2534
注　册：2012-2-29

第 11 楼

得分:0

回复 8楼红星二锅头

测试成功，谢谢！

2017-05-05 12:11

schtg

来　自：https://t.me/pump_upp
等　级：贵宾
威　望：67
帖　子：1355
专家分：2534
注　册：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

schtg

来　自：https://t.me/pump_upp
等　级：贵宾
威　望：67
帖　子：1355
专家分：2534
注　册：2012-2-29

第 16 楼

得分:0

回复 14楼红星二锅头

以理科生身份登录后看到的理科数据，如图