各位老师好,求助一个问题,怎么获取 http://score.nowscore.com/网站中的赛程信息与每行中“欧”的链接地址
各位老师好,求助一个问题,怎么获取 http://score.网站中的赛程信息与每行中“欧”的链接地址我看了看网页中的源代码,里面根本没有这些球队的赛程信息。不知道该怎么弄,向各位老师求助一下,希望老师不吝赐教。
谢谢各位老师。
2021-05-24 11:27
2021-05-24 11:40

2021-05-24 14:22
[此贴子已经被作者于2021-5-24 16:31编辑过]
2021-05-24 16:29









2021-05-24 18:44
程序代码:CREATE CURSOR tt (编码 I, 名称 V(20), 欧link V(50))
cUrl = "http://score./data/bf.js?000"
oHttp = CREATEOBJECT("MSXML2.XMLHTTP")
oHttp.Open("GET", cUrl, .F.)
oHttp.Send()
jsCode = STRCONV(oHttp.responseBody,11)
nBegin = 2
nEnd = RAT(";", jsCode, 2) + 1
jsCode = SUBSTR(jsCode, nBegin, nEnd-nBegin)
sc = CREATEOBJECT("ScriptControl")
sc.Language = "JavaScript"
sc.AddCode(jsCode)
nRows = sc.Eval("A.length")
nCols = sc.Eval("A[0].length")
FOR i=0 TO nRows-1
INSERT INTO tt VALUES (;
sc.Eval("A["+TRANSFORM(i)+"][0]"),; && 编号
sc.Eval("B["+TRANSFORM(sc.Eval("A["+TRANSFORM(i)+"][1]"))+"][1]"),; && 名称
"http://score./1x2/"+TRANSFORM(sc.Eval("A["+TRANSFORM(i)+"][0]"))+".htm")
ENDFOR
SELECT * FROM tt[此贴子已经被作者于2021-5-24 22:48编辑过]
2021-05-24 22:45
2021-05-25 06:51
[此贴子已经被作者于2021-5-25 13:12编辑过]

2021-05-25 09:56
[此贴子已经被作者于2021-5-25 11:58编辑过]

2021-05-25 09:57
程序代码:CREATE CURSOR tt (编码 I, 名称 V(20), 欧link V(50))
cUrl = "http://score./data/bf.js?000"
oHttp = CREATEOBJECT("MSXML2.XMLHTTP")
oHttp.Open("GET", cUrl, .F.)
oHttp.Send()
jsCode = STREXTRACT(STRCONV(oHttp.responseBody,11), "?", "ShowBf();")
TEXT TO jsCode TEXTMERGE NOSHOW PRETEXT 7
<<jsCode>>
function _getID(n) {return A[n][0];}
function _getNum(n) {return A[n][1];}
function _getName(n){return B[n][1];}
ENDTEXT
sc = CREATEOBJECT("ScriptControl")
sc.Language = "JavaScript"
sc.AddCode(jsCode)
nRows = sc.Eval("A.length")
FOR i=0 TO nRows-1
INSERT INTO tt VALUES (;
sc.Run("_getID", i),; && 编号
sc.Run("_getName", sc.Run("_getNum",i)),; && 名称
"http://score./1x2/" + TRANSFORM(sc.Run("_getID",i)) + ".htm") && 欧link
ENDFOR
GO TOP
BROWSE TITLE " "+sc.Eval("matchdate")
RETURN
2021-05-25 11:14