将“学生评语.txt”转为EXCEL文件

1、 学生评语.txt

2、VFP9代码

CLOSE  DATABASES

CLEAR  ALL

cPath=ADDBS(JUSTPATH(SYS(16)))

SET  DEFAULT  TO  (cPath)

CREATE  CURSOR  tt (xm C(10), py1 C(200), py2 C(200))

s学生评语 = FILETOSTR("学生评语.txt")

sXM = ""

FOR  i = 1  TO  ALINES(a学生评语, s学生评语, 5)

    IF  LEFT(a学生评语[i], 1) != "-"

        sXM = STREXTRACT(a学生评语[i], "", "：")

        a学生评语[i] = SUBSTR(a学生评语[i], LEN(sXM+"：")+1)

        INSERT  INTO  tt  VALUES (sXM, LEFTC(a学生评语[i], 100), SUBSTRC(a学生评语[i], 101))

    ENDIF

ENDFOR

COPY  TO  py  TYPE  XL5

3、生成的EXCEL文件（py.xls）