用浏览器打开看页面也是不断定时刷新数据的
数据记录也是会变动的

是的

[此贴子已经被作者于2021-5-25 15:50编辑过]

这几个数组（A、B、C）数据加载后就调用 ShowBf() 函数进行处理
在页面（http://score.）源码可以看到
ShowBf() 调用 MakeTable() 函数进行生成动态页面列表
有几处调用setTimeout()设置定时器时间： 3000、1000、500（ms），刷新也够快

各位老师太辛苦了！一万个赞！非常感谢

我天啊。。。。。无言以对，，太牛了！

CLEAR 
cUrl = "http://score./data/bf.js?000&" + SUBSTR(SYS(2015), 2)
oHttp = CREATEOBJECT("MSXML2.XMLHTTP")
oHttp.Open("GET", cUrl, .F.)
oHttp.Send()
lcText = STRCONV(oHttp.responseBody,11)
ALINES(laText, lcText, 5, CHR(13) + CHR(10))
DIMENSION laText[ALEN(laText), 1]
CREATE CURSOR test (A1 c(254))
INSERT INTO test FROM ARRAY laText
SELECT A1 FROM test WHERE LEFT(A1, 1) == "B" INTO CURSOR temp
LOCAL laB[RECCOUNT(), 2]
lcWz_B = "http://info./cn/"
SCAN 
    ALINES(laStr, A1, "=[", ",'", "',", ",", "];")
    laB[RECNO(), 1] = laStr[3]
    laB[RECNO(), 2] = IIF(EMPTY(laStr[9]), "", lcWz_B) + laStr[9]
ENDSCAN
*LIST MEMORY LIKE laB
* 赛程信息
FOR lnJ = 8 TO ALEN(laText, 1)
    IF LEFT(laText[lnJ], 1) != "A"
        EXIT
    ENDIF
    ALINES(laStr, laText[lnJ], "=[", ",", "];")
    ? lnJ - 7, STREXTRACT(laText[7], '"', '"'), laB[&laStr[3] + 1, 1],; 
        &laStr[12], ICASE(&laStr[19] = -1, "完", ""),;
        IIF("<"$&laStr[6], STREXTRACT(&laStr[6], "", "<"), &laStr[6]),; 
        laStr[20] + "-" + laStr[21], &laStr[9],; 
        laStr[41] + "-" + laStr[42]+ "/" + laStr[43] + "-" + laStr[44]
ENDFOR

辛苦了老师，真的太厉害了，佩服的五体投地！！！

谢谢老师，VFP我是从上学那会就开始用，处理数据特别方便，用到现在已经很多年了，虽然瘾大但技术差，很多东西都需要查询资料，没想到这里的老师真的很厉害，而且愿意赐教指点像我这样的低水平水生。

非常感谢老师的指点，很不好意思的再向老师请教一个问题，例如 http://score. 这个网页中
在比赛队名称下方，有一个选项框（其中包括，所有指数，初指，即使三个选项）它默认的是 "初指",麻烦请教老师有什么办法可以通过程序来让他变为“所有指数”呢？