程序代码：

CLEAR
CREATE CURSOR DAY表 (日期 C(10), 开盘价×1000 I, 最高价×1000 I, 最低价×1000 I,;
                     收盘价×1000 I, 成交量（手） I, 成交金额 I, 上涨家数 I, 下跌家数 I)
hf = FOPEN("C:\TEMP\Test\sh880681.day")
IF hf < 0
    RETURN
ENDIF
DO WHILE !FEOF(hf)
    sz = FREAD(hf, 32)
    IF !EMPTY(sz)
        INSERT INTO DAY表 VALUES (TRANSFORM(CTOBIN(LEFT(sz,4), "4RS"), "9999/99/99"),;
                                  CTOBIN(SUBSTR(sz,  5, 4), "4RS"),;
                                  CTOBIN(SUBSTR(sz,  9, 4), "4RS"),;
                                  CTOBIN(SUBSTR(sz, 13, 4), "4RS"),;
                                  CTOBIN(SUBSTR(sz, 17, 4), "4RS"),;
                                  CTOBIN(SUBSTR(sz, 21, 4), "4RS"),;
                                  CTOBIN(SUBSTR(sz, 25, 4), "4RS"),;
                                  CTOBIN(SUBSTR(sz, 29, 2), "2RS"),;
                                  CTOBIN(SUBSTR(sz, 31, 2), "2RS"))
    ENDIF
ENDDO
FCLOSE(hf)
GO TOP 
BROWSE