输出到文件的问题

[donbe]

Set Console Off
Set Printer on
Set Printer To "d:\abc.txt"
?"12254545"
....


Set Printer To
Set Printer off


------------------
我用这方法把把想输出到文件的内容输到abc.txt中
但是，却必须要在局域网中有打印机开着才能正常输出！
而且，我把连编后的程序拷到另外一台电脑上出现了错误，说找不到xtp9601lib.dll,可是我在自己的电脑上没有找到这个动态连接库！
有谁知道什么好的办法，局域网中不需要有打印机也能输出到文件，还有怎么解决程序在另外的电脑上出现缺少xtp9601lib.dll的错误？
非常感谢！

[十豆三]

为什么不用
FWRITE

[donbe]

俄...没用过，能给一小段程序参考下么

[十豆三]

IF FILE('errors.txt') && 文件存在吗?
gnErrFile = FOPEN('errors.txt',12) && 如果存在, 以读/写方式打开
ELSE
gnErrFile = FCREATE('errors.txt') && 如果不存在, 创建它
ENDIF
IF gnErrFile < 0 && 检查打开文件错误
WAIT '不能打开或创建输出文件' WINDOW NOWAIT
ELSE && 如果无错误, 写文件
=FWRITE(gnErrFile, '错误信息写到这里')
ENDIF
=FCLOSE(gnErrFile) && 关闭文件
MODIFY FILE errors.txt NOWAIT && 在编辑窗口中打开文件

[donbe]

谢谢

[donbe]

还有 fwrite 如果是追加，不是重写文件，是用什么函数的？

[十豆三]

IF FILE('errors.txt') && 文件存在吗?
gnErrFile = FOPEN('errors.txt',12) && 如果存在, 以读/写方式打开
ELSE
gnErrFile = FCREATE('errors.txt') && 如果不存在, 创建它
ENDIF
IF gnErrFile < 0 && 检查打开文件错误
WAIT '不能打开或创建输出文件' WINDOW NOWAIT
ELSE
USE 表名
SCAN
STR1=字段名
F=fputs(gnErrFile,STR1)
IF F<=0
CLOSE ALL
EXIT
ENDIF
ENDSCAN
=FCLOSE(gnErrFile) && 关闭文件
MODIFY FILE errors.txt NOWAIT && 在编辑窗口中打开文件