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

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值