我设置的表列宽为16（假设），字符型，部分记录长度小于16位，且每个字段都用ALLTRIM取消了前后空格，但用COPY TO XXXX..TXT SDF 指令拷贝成文本文件后，文本文件中任何一行小于16的字符串都被自动用空格填充成16字符，
如果用COPY TO XXX.TXT DELIMITED 指令，每行字符又被加上"",请教各位高手，怎样才能让TXT文件中每行不带空格？谢谢

[此贴子已经被作者于2006-8-7 18:34:08编辑过]

可以，但不要用Copy to
代码如下：
Set Talk Off
Use 表
Set Alternate on
Set Alternate To TextFileName.txt
Select 表
Do While ! EOF()
? Alltrim(字段)
Skip
Enddo
Use
Set Alternate to
Set Alternate Off
Return

换一种思路。VFP提供了一些接口方案，毕竟考虑不到那么多。假如你需要将表的内容的空格去掉后放在TXT文件中，除非你有特别的需要(空格影响了你进一步处理)，否则用COPY TO XXX SDF就好，当你进一步处理需要去掉空格的时候，再说。引号也一样。

说了半天，我也提供一个能去掉空格和引号的简短程序给你吧:
USE 表 &&或如果已经打开的话，SELECT 表
COPY TO XXX DELI &&复制成带引号的格式
S=FILETOSTR("XXX.TXT") &&文件的内容复制给字符串变量
STRTOFILE(CHRTRANC(S,["],[]),"XXX.TXT") &&处理字符串变量后回写到文件

我试了一下,是可以去掉空格,只是要先写
Set Alternate To TextFileName.txt
下句再写
Set Alternate on
否则文本文件内容为空
不过,执行过后TXT文件首行都会有一空行.
多谢,有空来南京请你吃饭,嘿嘿.

真不愧是斑竹,搞定啦。有空来南京也请你吃饭，哈哈。

ALLTRIM（） 函数

呵呵，南京的板鸭不错。我也想有时间到南京把我的相机找回来！