**福彩快乐8数据整理程序
**开奖数据表kl8,qh(期号,8),jh(开奖号，范围01-80,每次出20个)
**开奖方阵表fzkl8,每行10个8行，每个记录登记三期一行数据
clea
dime mfz(8,36)
sele 2
use fzkl8
dele all
pack
sele 1
use kl8
inde on qh to kl8
go top
sele 1
do whil .not.eof()
for j=1 to 8
for k=1 to 36
STOR " " TO MFZ(J,K)
endf
endf
for k=1 to 3
MQH=QH
MJH=JH
FOR I=1 TO 20
mcjh=subs(mjh,(i-1)*3+1,2)
msh=subs(mjh,(i-1)*3+1,1)
mwh=subs(mjh,(i-1)*3+2,1)
if mwh="1".or.mwh="0"
MH=VAL(MSH)+VAL(MWH)
else
mh=val(msh)+1
endi
IF MWH="0"
ML=10
ELSE
ML=VAL(MWH)
ENDI
do case
case k=1
mfz(mh,ml)=mcjh
mfz(mh,31)=mqh
mfz(mh,32)=mjh
case k=2
mfz(mh,10+ml)=mcjh
mfz(mh,33)=mqh
mfz(mh,34)=mjh
case k=3
mfz(mh,20+ml)=mcjh
mfz(mh,35)=mqh
mfz(mh,36)=mjh
endc
endf
skip
if eof()
exit
endi
endf
if j>3
sele 2
for j=1 to 8
appe blan
repl qh with mfz(j,31),qh2 with mfz(j,33),qh3 with mfz(j,35)
for i=1 to 30
mii=iif(i<10,"0"+str(i,1),str(i,2))
repl q&mii with mfz(j,i)
endf
endf
appe blan
endi
sele 1
endd
clos all
retu
开奖数据格式查询
http://h.thec.cn/nethttp/web/

[此贴子已经被作者于2006-8-4 11:11:25编辑过]