何如从时时彩网获取开奖号码
如何从时时彩网获取开奖号码 网址http://data. 我的VFP都是自学的 有些问题对我来太难了 请老师多多指教
*!* ***********只适用于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