各位老师，新年快乐，再向大家问一个分析网页分析的问题，谢谢 - 编程论坛

#2

sdta2024-01-01 11:35

只有本站会员才能查看附件，请登录

#3

jinanshui2024-01-01 11:44

回复 2楼 sdta

谢谢老师，我试试。

#4

jinanshui2024-01-01 11:55

谢谢，找到一页的，看看再怎么翻页。

https://webapi.

#5

sdta2024-01-01 15:10

只有本站会员才能查看附件，请登录

这个2就是第2页

#6

jinanshui2024-01-01 16:11

回复 5楼 sdta

谢谢老师，我看看怎么把所有的页开奖信息弄到一个dbf表中。

#7

sdta2024-01-01 20:27

类似问题的解决方案本论坛有不少

#8

jinanshui2024-01-03 20:07

老师，我模仿试着做一下，只能下载一页的，怎么把全的下载来呢？谢谢
CREATE CURSOR 大乐透 (红1 C(2), 红2 C(2), 红3 C(2),红4 C(2),红5 C(2),兰1 C(2),兰2 C(2),期号 C(5),球具 C(1))
lcUrl = "https://webapi.
oHTTP=NEWOBJECT("MSXML2.XMLHTTP")
oHTTP.Open("GET", lcUrl, .F.)
oHTTP.SETREQUESTHEADER("Content-Type", "text/html;charset=UTF-8")
oHTTP.Send()
lcText = oHTTP.ResponseText

t1 = SECONDS()
FOR lnj = 1 TO OCCURS("lotteryDrawNum", lcText)
    lyText = STREXTRACT(lcText,',"lotteryDrawNum":"','"', lnj)
    qjtext = STREXTRACT(lcText,',"lotteryEquipmentCount":' ,',"', lnj)
    lmText = STREXTRACT(lcText,'lotteryUnsortDrawresult":"','"', lnj)
    h1 = Substr(lmText ,1,2)
    h2 = Substr(lmText ,4,2)
    h3 = Substr(lmText ,7,2)
    h4 = Substr(lmText ,10,2)
    h5 = Substr(lmText ,13,2)
    l1 = Substr(lmText ,16,2)
    l2 = Substr(lmText ,19,2)
    INSERT INTO 大乐透 VALUES (h1,h2,h3,h4,h5,l1,l2,lyText,qjtext)
ENDFOR
? SECONDS() - t1

#9

nbwww2024-01-03 20:15

CREATE CURSOR 大乐透 (红1 C(2), 红2 C(2), 红3 C(2),红4 C(2),红5 C(2),兰1 C(2),兰2 C(2),期号 C(5),球具 C(1))
FOR iii=1 TO 20
    lcUrl = "https://webapi.(STR(iii))
    oHTTP=NEWOBJECT("MSXML2.XMLHTTP")
    oHTTP.Open("GET", lcUrl, .F.)
    oHTTP.SETREQUESTHEADER("Content-Type", "text/html;charset=UTF-8")
    oHTTP.Send()
    lcText = oHTTP.ResponseText

    FOR lnj = 1 TO OCCURS("lotteryDrawNum", lcText)
        lyText = STREXTRACT(lcText,',"lotteryDrawNum":"','"', lnj)
        qjtext = STREXTRACT(lcText,',"lotteryEquipmentCount":' ,',"', lnj)
        lmText = STREXTRACT(lcText,'lotteryUnsortDrawresult":"','"', lnj)
        h1 = Substr(lmText ,1,2)
        h2 = Substr(lmText ,4,2)
        h3 = Substr(lmText ,7,2)
        h4 = Substr(lmText ,10,2)
        h5 = Substr(lmText ,13,2)
        l1 = Substr(lmText ,16,2)
        l2 = Substr(lmText ,19,2)
        INSERT INTO 大乐透 VALUES (h1,h2,h3,h4,h5,l1,l2,lyText,qjtext)
    ENDFOR
ENDFOR

BROWSE

#10

jinanshui2024-01-04 14:01

回复 9楼 nbwww

我试了一下，可以，就是出现空格，应该是网页的问题。

#11

nbwww2024-01-04 19:16

回复 10楼 jinanshui

好的谢谢你哦