彩票2元网2014年3月18日中奖号码数据提取vfp代码
程序代码:
*!* 彩票2元网2014年3月18日中奖号码数据提取vfp代码 *!* **********此程序由月沐庭轩制作QQ306805680如需要其他网站更新代码请与作者联系。* *!* ***********只适用于http://www./彩票2元网 *!* *******如该网站升级变更网页代码,此程序也许不能再用******** *!* 适合用于2014年3月18日网站彩票2元网升级后下载数据 *!* ****将此程序命名为:彩票2元网中奖号码********************* *!* ***利用方法:共有一个参数,参数是 *!* ***如:七星彩:彩票2元网中奖号码("http://www./7xc/7xckj/") *!* ******************************************************************* *!* 二元网福彩3D LPARAMETERS weblites starttime=SECONDS()*1000 CLEAR PUBLIC test test=CREATEOBJECT("Msxml2.XMLHTTP") test.OPEN("GET",weblites,.f.) test.SEND tempstr="" tempstr=test.responsetext startstr=ATC([class="fbl">],tempstr) endstr=ATc([</table>],tempstr,2) shuchu=SUBSTR(tempstr,startstr,endstr-startstr) shuchu=STRTRAN(shuchu,CHR(32),"") shuchu=STRTRAN(shuchu,CHR(10),"") shuchu=STRTRAN(shuchu,CHR(13),"") shuchu=STRTRAN(shuchu,CHR(8),"") shuchu=STRTRAN(shuchu,CHR(9),"") shuchu=STRTRAN(shuchu,CHR(11),"") shuchu=STRTRAN(shuchu,CHR(12),"") endstr=ATc("</td>",shuchu,2) shuchukuai=left(shuchu,endstr) clenleft=RAT([">],shuchukuai) clenright=RAT([</i>],shuchukuai) clen=clenright-clenleft-2 ishuzi=OCCURS("</i",shuchukuai) CREATE CURSOR mytable2se (期号 c(10),对奖号 c(16)) DO WHILE .NOT. startstr=0 shuchu=SUBSTR(shuchu,13) endstr=AT("<",shuchu) qihao=LEFT(shuchu,endstr-1) jianghao="" FOR i=1 TO ishuzi startstri=ATC([</i],shuchu) shuchu=SUBSTR(shuchu,startstri-clen) jianghao=jianghao+LEFT(shuchu,clen) shuchu=SUBSTR(shuchu,5) endfor startstr=ATC([class="fbl">],shuchu) shuchu=SUBSTR(shuchu,startstr) INSERT INTO mytable2se VALUES(qihao,jianghao) ENDDO GO TOP endtime=SECONDS()*1000 TIMES=endtime-starttime ?"程序开始时间:" ??starttime ?"程序结束时间:" ??endtime ?"程序花费时间" ??TIMES ??"毫秒" MESSAGEBOX("你所花费的时间为"+ALLTRIM(STR(TIMES,20))+"毫秒",64,"测试") BROWSE RELEASE test
[ 本帖最后由 月沐庭轩 于 2014-3-22 18:59 编辑 ]