试机号转换程序.prg

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

SET TALK OFF

**程序功能:完成试机号变成开奖号的操作
**开奖号变成试机号
**机球参数不变

DIME B(6)

SELE A
USE X3DZ.DBF
SELE J
USE X3DX.DBF
SELE A
DO WHILE .NOT.EOF()
      B(1)=期号
      B(2)=VAL(LEFT(试机号,1))
      B(3)=VAL(RIGHT(LEFT(试机号,2),1))
      B(4)=VAL(RIGHT(试机号,1))
      B(5)=机球
      B(6)=STR(百位,1)+STR(十位,1)+STR(个位,1)
      SKIP
      SELE J
      APPEND BLANK
      GATHER FROM B
      SELE A
   ENDDO
  CLOSE ALL