程序代码：

*---新版时时彩开奖数据提取代码
CREATE CURSOR T (期号 C(11),号码 C(5),后2 C(4),后3 C(4))
OIE = CREATEOBJECT([INTERNETEXPLORER.APPLICATION])

OIE.NAVIGATE([http://data.]+TRANSFORM(DATE()-1)+[/])
DO WHILE OIE.BUSY=.T. OR OIE.READYSTATE#4
   INKEY(1)
ENDDO
CSTR=OIE.DOCUMENT.BODY.INNERHTML
CSTR1=STREXTRACT(CSTR,[<TBODY>],[<DIV class=bonusNum_foot>],3)
NROW=OCCURS([<TR>],CSTR1)
FOR I=1 TO NROW+1
    CSTR2=STREXTRACT(CSTR,[<TR>],IIF(I<NROW+1,[<TR>],[</TBODY></TABLE></DIV>]),I)
    IF [EM]$CSTR2
       B1=CHRTRANC(STREXTRACT(CSTR2,[<TD class=t key="],[">]),[-],[])
       A=STREXTRACT(CSTR2,[<TD><EM>],[</I></TD>])
       B2=CHRTRANC(A,CHRTRANC(A,[0123456789],[]),[])
       B3=STREXTRACT(CSTR2,[<TD class=dz>],[</TD>])
       B4=RIGHT(STREXTRACT(CSTR2,[<TD class=z],[</TD></TR>]),4)
       INSERT INTO T VALUES (B1,B2,B3,B4)
    ENDIF
ENDFOR
BROWSE