现在有以下格式的文本文件内容，希望将其用代码写入DBF文件中，同时自动创建对应的excel文件。请问编程序如何实现？

具体要求：
①先创建一个dbf自由表，其中有两个字段“xm”和“py”（py字段必须要能容纳下最多300个汉字）。
②读取类似后面的文本文件，以其中的“-----”为识别关键字，读取到该信息后，把这行文字下面一行的评语按要求写入DBF文件中：前三（或两）个字为学生姓名（以冒号分隔）写入dbf表中的xm字段，后面的评语（冒号之后)写入字段“py”中.
②当一个学生的评语读取完成后，后面又是另一个学生的评语，然后按上述要求读取到另一条记录中。也就是说一个学生的评语为一条记录。
③成功创建dbf文件后，以该dbf中的一条记录对应excel文件，生成excel文件中的每一行。

敬请各位大侠出招赐教，非常感谢！！！

附：评语txt文件内容示范（具体评语文件请参见附件中的rar文件）：

----------屠胤蒙同学评语----------


屠胤蒙：你是一个自觉上进的好学生。在课堂上总是坐姿端正，认真听讲。课堂上，在回答老师的问题上，你可能比较“文静”了。你在学习上勤勤恳恳，也取得了不错的成绩。老师真的很相信你能行，继续吧，勇敢地去夺取更大的胜利。


         




----------贺谋同学评语----------


贺谋：你的身上逐步体现出一种自觉、懂事的品质。看得出，你懂事，能遵规守纪，热爱集体。老师一定要提醒你，你的学习很有后劲，只要你努力，你的成绩不应该停留于目前这种水平。衷心希望你能在学海中，尽早找到开启智慧之门的钥匙。

这个应该不复杂的。

从提供的数据看:

py长度超出字符型字段限制，分开或用备注型。

**CREATE CURSOR tt (xm C(10), py M)
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) == "-"
        a学生评语[i] = LTRIM(a学生评语[i], "-")
        sXM = STREXTRACT(a学生评语[i], "", "同学") 
    ELSE
        **INSERT INTO tt VALUES (sXM, a学生评语[i])
        INSERT INTO tt VALUES (sXM, LEFTC(a学生评语[i], 100), SUBSTRC(a学生评语[i], 101))
        sXM = ""
    ENDIF
ENDFOR
COPY TO py TYPE XL5

应该这个才合意：

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

收到的鲜花

• IHORSE 于 2016-01-15 09:16 送鲜花  3朵   附言：好文章

-----很好很强大，感谢您解决了我的燃眉之急！！

不通过VFP的表文件，也能将文本文件导入EXCEL工作簿中