2012年11月28日五百万网彩票数据提取代码

*!*	**********此程序由月沐庭轩制作QQ306805680如需要其他网站更新代码请与作者联系。*
*!*	***********只适用http://www.500wan.com/static/public/ssc/txt/opencode/29.txt
*!*	*******如该网站升级变更网页代码，此程序也许不能再用********
*!*	*******************************************************************
五百万("http://www.500wan.com/static/public/ssc/txt/opencode/29.txt")
FUNCTION 五百万(weblites)
CLEAR
PUBLIC test
test=CREATEOBJECT("Msxml2.XMLHTTP")
test.OPEN("GET",weblites,.F.)
test.SEND
m=ALINES(abc,test.responsetext)
CREATE CURSOR mytable2se (期号 c(5),时间 c(9),对奖号 c(10))
FOR i= 1 TO m
    a=ALLTRIM(STREXTRACT(abc(i),"",CHR(9)))
    cziduan=ALLTRIM(STREXTRACT(abc(i),CHR(9)))
    b=ALLTRIM(STREXTRACT(cziduan,'',CHR(9)))
    cziduan=ALLTRIM(STREXTRACT(cziduan,CHR(9)))
    INSERT INTO mytable2se VALUES (a,b,cziduan)
ENDFOR
GO TOP
BROWSE
ENDFUNC