2012年11月26日二元网开奖数据提取vfp代码

*!*	**********此程序由月沐庭轩制作QQ306805680如需要其他网站更新代码请与作者联系。*
*!*	***********只适用于http://fx.cp2y.com/二元网2012年11月26日开始的网页提取
*!*	*******如该网站升级变更网页代码，此程序也许不能再用********
*!*	***利用方法：共有一个参数，参数是二元网某彩票开奖历史网页
*!*	***如：二元网中彩号码("http://fx.cp2y.com/draw/history.jsp?lid=10082")
*!*	*******************************************************************
FUNCTION 二元网中彩号码(weblites)
CLEAR
PUBLIC test
test=CREATEOBJECT("Msxml2.XMLHTTP")
test.OPEN("GET",weblites,.F.)
test.SEND
tempstr=""
tempstr=test.responsetext
shuchu=STREXTRACT(tempstr,[class="fbl">],[</table>])
CREATE CURSOR mytable2se (期号 c(13),对奖号 c(24))
DO WHILE .NOT. EMPTY(shuchu)
    qihao=STREXTRACT(shuchu,[],[</a>])
    jiang=''
    shuchua=STREXTRACT(shuchu,[i-b20_1">],[</td>])
    DO WHILE .NOT. EMPTY(shuchua)
        jiang=jiang+STREXTRACT(shuchua,[],[</i>])+SPACE(1)
        shuchub=shuchua
        shuchua=STREXTRACT(shuchua,[i-b20_1">],[])
    ENDDO
    shuchub=STREXTRACT(shuchub,[i-ball i-b20_2">],[])
    jiang=jiang+STREXTRACT(shuchub,[],[</i>])
    INSERT INTO mytable2se VALUES(qihao,jiang)
    shuchu=STREXTRACT(shuchu,[class="fbl">],[])
ENDDO
GO TOP
BROWSE
RELEASE test
ENDFUNC