程序代码：

*!*    彩票2元网2014年3月18日中奖号码数据提取vfp代码
*!*    **********此程序由月沐庭轩制作QQ306805680如需要其他网站更新代码请与作者联系。*
*!*    ***********只适用于http://www./彩票2元网
*!*    *******如该网站升级变更网页代码，此程序也许不能再用********
*!*        适合用于2014年3月18日网站彩票2元网升级后下载数据
*!*    ****将此程序命名为：彩票2元网中奖号码*********************
*!*    ***利用方法：共有一个参数，参数是
*!*    ***如：七星彩：彩票2元网中奖号码("http://www./7xc/7xckj/")
*!*    *******************************************************************
*!*    二元网福彩3D
LPARAMETERS weblites
starttime=SECONDS()*1000
CLEAR
PUBLIC test
test=CREATEOBJECT("Msxml2.XMLHTTP")
test.OPEN("GET",weblites,.f.)
test.SEND
tempstr=""
tempstr=test.responsetext
startstr=ATC([class="fbl">],tempstr)
endstr=ATc([</table>],tempstr,2)
shuchu=SUBSTR(tempstr,startstr,endstr-startstr)
shuchu=STRTRAN(shuchu,CHR(32),"")
shuchu=STRTRAN(shuchu,CHR(10),"")
shuchu=STRTRAN(shuchu,CHR(13),"")
shuchu=STRTRAN(shuchu,CHR(8),"")
shuchu=STRTRAN(shuchu,CHR(9),"")
shuchu=STRTRAN(shuchu,CHR(11),"")
shuchu=STRTRAN(shuchu,CHR(12),"")
endstr=ATc("</td>",shuchu,2)
shuchukuai=left(shuchu,endstr)
clenleft=RAT([">],shuchukuai)
clenright=RAT([</i>],shuchukuai)
clen=clenright-clenleft-2
        ishuzi=OCCURS("</i",shuchukuai)
CREATE CURSOR mytable2se (期号 c(10),对奖号 c(16))
DO WHILE .NOT. startstr=0
        shuchu=SUBSTR(shuchu,13)
        endstr=AT("<",shuchu)
        qihao=LEFT(shuchu,endstr-1)
        jianghao=""
        FOR i=1 TO ishuzi
        startstri=ATC([</i],shuchu)
        shuchu=SUBSTR(shuchu,startstri-clen)
        jianghao=jianghao+LEFT(shuchu,clen)    
        shuchu=SUBSTR(shuchu,5)
        endfor    
        startstr=ATC([class="fbl">],shuchu)
        shuchu=SUBSTR(shuchu,startstr)
        INSERT INTO mytable2se VALUES(qihao,jianghao)
ENDDO
GO TOP
endtime=SECONDS()*1000
TIMES=endtime-starttime
?"程序开始时间："
??starttime
?"程序结束时间："
??endtime
?"程序花费时间"
??TIMES
??"毫秒"
MESSAGEBOX("你所花费的时间为"+ALLTRIM(STR(TIMES,20))+"毫秒",64,"测试")
BROWSE
RELEASE test

程序代码：

lc=FILETOSTR([7xc.txt]) && 本示例中，我是将2楼的网页数据保存在文本文件中，实际操作中是从网页文件中，根据特定字符串截取的
nRow=ALINES(ASJ,lc,CHR(13)+CHR(10))
lcStr=[]
FOR lnI=1 TO nRow
    IF [</i>]$ASJ[lnI]
       lcStr=lcStr+STREXTRACT(ASJ[lnI],[<i class="ml6 i-ball i-b20_1">],[</i>])+STREXTRACT(ASJ[lnI],[<i class="ml6 i-ball i-b20_2">],[</i>])
    ENDIF
ENDFOR
?lcStr