制表用测试程序.prg

来自「这是一款非常实用的福彩3D彩票统计分析软件,实现各种代码走势图的查看,以及按照相」· PRG 代码 · 共 70 行

SET TALK OFF
DIME B(2),H(2),k(2)

N=1
TX=''
SX=''
GX=''
SELE A
USE PFDS2008
SELE J
USE TEXTB
DELE ALL
PACK
SELE A

DO WHILE .NOT.EOF()
    
    TX=TX+'A'+变31
    SX=SX+'A'+变32
    GX=GX+'A'+变33
    
    IF N=30
       B(1)='百'
       B(2)=TX
       H(1)='十'
       H(2)=SX
       K(1)='个'
       K(2)=GX
       SELE J
       APPEND BLANK
       GATHER FROM B
       APPEND BLANK
       GATHER FROM H
       APPEND BLANK
       GATHER FROM K
       TX=''
       SX=''
       GX=''
       
       N=0
       ENDIF
       SELE A
       SKIP
       N=N+1
       ENDDO
       if n<60
       SELE j
       b(1)='百'
       b(2)=tx
       H(1)='十'
       H(2)=SX
       K(1)='个'
       K(2)=GX
       APPEND BLANK
       GATHER FROM B
       APPEND BLANK
       GATHER FROM H
       APPEND BLANK
       GATHER FROM K
       endif
       
  CLOSE ALL