如何在文本文件中追加文本?

iceli 2004-10-25 03:00:22
我正在做EDI报文,对方要求在生成的文本后面追加一个空行,但使用fwrite()函数只能在当前字符后面追加文本,使用chr(13)也不行,请问如何在已经有内容的文本后面追加字符?

多谢!
...全文
139 8 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
十豆三 2004-10-25
  • 打赏
  • 举报
回复
nFileHandle1=FOPEN("你的文本文件全名",2) &&以缓冲读写方式打开文本文件
FSEEK(nFileHandle1,0,2) &&移到文件尾
fputs(nFileHandle1,"0",0) &&换行
FWRITE(nFileHandle1,SPACE(100)) &&写入一个空白行(长度为100个空格),根据你的需要,调整此数
fclose(nFileHandle1) &&关闭文本文件
十豆三 2004-10-25
  • 打赏
  • 举报
回复
nFileHandle1=FOPEN("你的文本文件全名",2) &&以缓冲读写方式打开文本文件
FSEEK(nFileHandle1,0,2) &&移到文件尾
fputs(nFileHandle1,"0",0) &&换行
FWRITE(nFileHandle1,SPACE(100)) &&写入一个空白行(长度为100个空格),根据你的需要,调整此数
fclose(nFileHandle1) &&关闭文本文件
iceli 2004-10-25
  • 打赏
  • 举报
回复
哈哈...........搞定啦!
缺一个chr(10) ,哈哈.......

多谢 520zyb(学无止尽) !
iceli 2004-10-25
  • 打赏
  • 举报
回复
不行啊,问题就是chr(13)加入后只显示一个符号而不是真正的回车。
520zyb 2004-10-25
  • 打赏
  • 举报
回复
在加个CHR(13)换行呢?
iceli 2004-10-25
  • 打赏
  • 举报
回复
唉.........

line='aaa'+chr(13)+'bbb'
=strtofile(line,"test.txt")

使用这个方法也不行。
iceli 2004-10-25
  • 打赏
  • 举报
回复
这样也不行啊,因为要求把所有内容写到一行中,然后在此行下面在加一个空行,也就是说整个txt文件之后两行,如果用 fwrite(fhandle,space(100))等于把第一行后面加了100个空格而已,也没有第二行的空行呀?
520zyb 2004-10-25
  • 打赏
  • 举报
回复
space(n)加N个空格

2,748

社区成员

发帖
与我相关
我的任务
社区描述
VFP,是Microsoft公司推出的数据库开发软件,用它来开发数据库,既简单又方便。
社区管理员
  • VFP社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧