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