2,748
社区成员
发帖
与我相关
我的任务
分享如何在文本文件中追加文本？
我正在做EDI报文，对方要求在生成的文本后面追加一个空行，但使用fwrite()函数只能在当前字符后面追加文本，使用chr(13)也不行，请问如何在已经有内容的文本后面追加字符？
多谢！
多谢！
...全文
请发表友善的回复…
发表回复
十豆三 2004-10-25
- 打赏
- 举报
nFileHandle1=FOPEN("你的文本文件全名",2) &&以缓冲读写方式打开文本文件
FSEEK(nFileHandle1,0,2) &&移到文件尾
fputs(nFileHandle1,"0",0) &&换行
FWRITE(nFileHandle1,SPACE(100)) &&写入一个空白行（长度为100个空格），根据你的需要，调整此数
fclose(nFileHandle1) &&关闭文本文件
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) &&关闭文本文件
FSEEK(nFileHandle1,0,2) &&移到文件尾
fputs(nFileHandle1,"0",0) &&换行
FWRITE(nFileHandle1,SPACE(100)) &&写入一个空白行（长度为100个空格），根据你的需要，调整此数
fclose(nFileHandle1) &&关闭文本文件
iceli 2004-10-25
- 打赏
- 举报
哈哈...........搞定啦！
缺一个chr(10) ，哈哈.......
多谢 520zyb(学无止尽) ！
缺一个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")
使用这个方法也不行。
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个空格
