各位老师好,求助一个问题,怎么获取 http://score.nowscore.com/网站中的赛程信息与每行中“欧”的链接地址
各位老师好,求助一个问题,怎么获取 http://score.网站中的赛程信息与每行中“欧”的链接地址我看了看网页中的源代码,里面根本没有这些球队的赛程信息。不知道该怎么弄,向各位老师求助一下,希望老师不吝赐教。
谢谢各位老师。
[此贴子已经被作者于2021-5-24 16:31编辑过]
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-5-25 13:12编辑过]
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