求助各位老大，怎样获取这个网页的数据http://live.aicai.com/league/index.htm?leagueId=31&tab=1，谢 - VFP论坛

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

编程论坛 → 数据库技术 → 『 VFP论坛』 → 求助各位老大，怎样获取这个网页的数据http://live.aicai.com/league/index.htm?leagueId=31&tab=1，谢

我的收件箱(0)

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

共有 1485 人关注过本帖

标题：求助各位老大，怎样获取这个网页的数据http://live.aicai.com/league/index ...

只看楼主加入收藏

mscb2401

等　级：新手上路
帖　子：2
专家分：0
注　册：2021-9-21
结帖率：100%

楼主

已结贴√ 问题点数：20 回复次数：5

求助各位老大，怎样获取这个网页的数据http://live.aicai.com/league/index.htm?leagueId=31&tab=1，谢

把显示的网页中从第1页到第38页的数据保存到数据库中，谢谢，弄了一天，让POST快整疯了

搜索更多相关主题的帖子: htm　网页　老大　 tab　数据　

2021-09-21 16:39

吹水佬

等　级：版主
威　望：451
帖　子：10607
专家分：43182
注　册：2014-5-20

第 2 楼

得分:5

页面有不少东西，选项也有好几处，还能说具体点吗?

2021-09-21 21:16

sdta

来　自：江苏省连云港市
等　级：版主
威　望：335
帖　子：9841
专家分：27213
注　册：2012-2-5

第 3 楼

得分:5

程序代码：

lcUrl = "http://live./sportdata/f"
FOR ln1 = 1 TO 38
    lcText = GETURL(lcUrl, TRANSFORM(ln1)) && 返回表格内容
ENDFOR 

FUNCTION GETURL(UrlName, lcPage)
    lcStr = ""
    oHTTP = CREATEOBJECT("MSXML2.ServerXMLHTTP") &&MSXML2.XMLHTTP/WinHttp.WinHttpRequest.5.1/MSXML2.ServerXMLHTTP/Microsoft.xmlhttp
    oHTTP.Open("POST", UrlName, .F.)
    lcRequest = '{"leagueId":31,"pageNo":1,"pageSize":100,"round":' + lcPage + ',"seasonFlag":0,"seasonName":"2021-2022","apiName":"getLeagueMatchList"}'
    oHTTP.Send(lcRequest)
    IF oHTTP.Status = 200
        lcStr = oHTTP.ResponseText
    ENDIF 
    RELEASE oHTTP
    RETURN lcStr
ENDFUNC

页面内容不规范，自己想办法解析吧！

坚守VFP最后的阵地

2021-09-21 22:09

schtg

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

第 4 楼

得分:5

学习啦，谢谢！

2021-09-22 05:40

nbwww

等　级：贵宾
威　望：11
帖　子：332
专家分：804
注　册：2021-1-9

第 5 楼

得分:5

以下是引用sdta在2021-9-21 22:09:46的发言：

lcUrl = "http://live.
FOR ln1 = 1 TO 38
    lcText = GETURL(lcUrl, TRANSFORM(ln1)) && 返回表格内容
ENDFOR

FUNCTION GETURL(UrlName, lcPage)
    lcStr = ""
    oHTTP = CREATEOBJECT("MSXML2.ServerXMLHTTP") &&MSXML2.XMLHTTP/WinHttp.WinHttpRequest.5.1/MSXML2.ServerXMLHTTP/Microsoft.xmlhttp
    oHTTP.Open("POST", UrlName, .F.)
    lcRequest = '{"leagueId":31,"pageNo":1,"pageSize":100,"round":' + lcPage + ',"seasonFlag":0,"seasonName":"2021-2022","apiName":"getLeagueMatchList"}'
    oHTTP.Send(lcRequest)
    IF oHTTP.Status = 200
        lcStr = oHTTP.ResponseText
    ENDIF
    RELEASE oHTTP
    RETURN lcStr
ENDFUNC
页面内容不规范，自己想办法解析吧！