何如从时时彩网获取开奖号码
如何从时时彩网获取开奖号码 网址http://data. 我的VFP都是自学的 有些问题对我来太难了 请老师多多指教
2012-12-29 21:34
2012-12-29 21:39
2012-12-29 21:59
程序代码：
*!* ***********只适用于http:///
*!* *******如该网站升级变更网页代码，此程序也许不能再用********
*!* 适合用于2012年12月19日网站时时彩网升级后下载数据
*!* ****将此程序命名为：时时彩票中奖号码*********************
*!* ***利用方法：共有一个参数，参数是
*!* ***如：重庆时时彩：时时彩票中奖号码("http://data./cqssc/haoma/")
*!* *******************************************************************
LPARAMETERS weblites
SET SAFETY OFF
test=CREATEOBJECT("msxml2.xmlhttp")
test.OPEN("get", weblites,.F.)
test.SEND
tempstr=""
tempstr=STREXTRACT(test.responsetext,'["','"]',1,1)
tempstr=STRTRAN(tempstr,[","],CHR(13)+CHR(10))
CREATE CURSOR jxs (期号 c(12),开奖奖号 c(5),时间 c(16))
DIMENSION jianghao(3)
nrow=ALINES(acs,tempstr,CHR(13)+CHR(10))
FOR i=1 TO nrow
nrow2=ALINES(jianghao,acs(i),[;])
INSERT INTO jxs FROM ARRAY jianghao
ENDFOR
SELECT jxs
BROWSE
2012-12-29 22:01
2012-12-30 04:08