主题：---- 如何用命令写 TXT？
琅拿度
[专家分：2820] 发布于 2010-01-14 18:29:00
会创建文件了
如何用命令方式，写入一些内容
不要界面模式
回复列表 （共10个回复）
沙发
qjbzjp [专家分：8830] 发布于 2010-01-14 20:15:00
最简单的方法是：
mystr="将文本写入.text文件中。"
STRTOFILE(mystr,"c:\你的text文件.txt",1)
板凳
琅拿度 [专家分：2820] 发布于 2010-01-14 22:02:00
好象上面的命令，只能写一次，我找到了方法：
targetfile=fcreate('filename.txt',0)
if targetfile<0
messagebox('error',16,'error')
else
fputs(targetfile,'mytext')
fclose(targetfile)
endi
3 楼
qjbzjp [专家分：8830] 发布于 2010-01-14 22:59:00
不是用了参数 1 嘛，是添加到已有文本后面的，多少次都行。
4 楼
琅拿度 [专家分：2820] 发布于 2010-01-14 23:41:00
貌似 strtofile 无法换行？？？
5 楼
qjbzjp [专家分：8830] 发布于 2010-01-15 10:08:00
mystr=CHR(13)+CHR(10)+"另起一行将文本写入.text文件中。"
STRTOFILE(mystr,"c:\你的text文件.txt",1)
6 楼
sywzs [专家分：5650] 发布于 2010-01-15 10:14:00
下面的代码仅供参考。
SET ALTERNATE TO 文本文件名 &&输出定向到一个文本文件
SET ALTERNATE ON &&直接输出到文本文件
??"AAA" &&不换行写入字符
?"BBB" &&换行写入字符
SET ALTERNATE OFF &&禁止输出到文本文件
SET ALTERNATE TO &&关闭输出到文本文件
7 楼
琅拿度 [专家分：2820] 发布于 2010-01-15 10:18:00
为什么 chr(13) 不行，这个不是回车吗
chr(10) 什么东东？
8 楼
qjbzjp [专家分：8830] 发布于 2010-01-15 10:48:00
[url=http://bbs.pfan.cn/post-151966.html]请楼主参考此帖[/url]
9 楼
qjbzjp [专家分：8830] 发布于 2010-01-15 10:55:00
只加chr(13)，在word、写字板等软件里打开时也可以看见换了行的。但在记事本中打开时不承认，还必须加上换行符chr(10)，什么原因就不知道了。
10 楼
琅拿度 [专家分：2820] 发布于 2010-01-15 17:43:00
谢谢！
我来回复
您所在位置：社区首页 — Visual Foxpro讨论区 — ---- 如何用命令写 TXT？