标题:求助用vfp代码将以下文本转换为EXCEL文件
取消只看楼主
IHORSE
Rank: 1
等 级:新手上路
帖 子:41
专家分:5
注 册:2007-2-11
结帖率:100%
已结贴  问题点数:20 回复次数:1 
求助用vfp代码将以下文本转换为EXCEL文件
现在有以下格式的文本文件内容,希望将其用代码写入DBF文件中,同时自动创建对应的excel文件。请问编程序如何实现?

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

敬请各位大侠出招赐教,非常感谢!!!

附:评语txt文件内容示范(具体评语文件请参见附件中的rar文件):

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


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


         




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


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


学生评语.rar (7.15 KB)

搜索更多相关主题的帖子: 文本文件 关键字 excel EXCEL 汉字 
2016-01-14 11:28
IHORSE
Rank: 1
等 级:新手上路
帖 子:41
专家分:5
注 册:2007-2-11
得分:0 
以下是引用吹水佬在2016-1-14 15:26:01的发言:

应该这个才合意:

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



-----很好很强大,感谢您解决了我的燃眉之急!!
2016-01-15 09:17



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-461088-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.558748 second(s), 9 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved