程序代码：

CREATE CURSOR T (XM C(8),SFZ C(18),JE N(6))
CSTR=FILETOSTR([1.TXT])
NROW=MEMLINES(CSTR)
FOR I=2 TO NROW
    LCSTR=ALLTRIM(MLINE(CSTR,I))
    IF EMPTY(LCSTR)
       LOOP
    ENDIF
    FOR J=OCCURS([ ],LCSTR) TO 1 STEP -1
        LCSTR=STRTRAN(LCSTR,PADL([],J,[ ]),[,])
    ENDFOR
    =ALINES(AA,LCSTR,[,])
    INSERT INTO T FROM ARRAY AA
ENDFOR
BROWSE