问题和代码都在附件中。请帮助。

是这个意思吗？

set safety off
close all
use plantry
go top
scan
   cstr = memout
   cfile = sys(5) + curdir() + alltrim(str(nn)) + [.txt]
   = strtofile(cstr,cfile)
endscan

还是这个意思？

set safety off
close all
use plantry
go top
cstr = []
scan
   ctxt = memout
   cstr = cstr + ctxt + 0h0D0A
ENDSCAN
cfile = sys(5) + curdir() + [文本.txt]
= strtofile(cstr,cfile)

[此贴子已经被作者于2023-10-28 19:49编辑过]

USE plantry
COPY MEMO memout TO aa1027 ADDITIVE

谢谢2楼schtg和3楼sdta的帮助，你们给我的方法很好用。不过，没有解决我的问题。
Main.prg的目的是让客户选择txt文件名，再导出备注型字段。但经过运行发现导出的文件都是空的。我反复看代码，看不出有什么不妥。我很想知道问题出在哪里。你能帮我看看问题在哪吗？
为方便阅读，我把main.prg抄过来：   
use textfile
dsavefile=getfile("txt","新建文件","导出")  &&&打开新建文件对话框
if !empty(dsavefile)
copy memo textfile.mem to "&dsavefile"
endif
------------------------------------------------------------
另外，你程序中有一行：
cstr = cstr + ctxt + 0h0D0A
这里面+ 0h0D0A是什么意思？

[此贴子已经被作者于2023-10-29 14:04编辑过]

0h0D0A，就是回车换行的意思，若将多个记录的备注字段导出一个文件时，便于查看，所以换行。

问题找到了。我不小心把textfile.dbf 的mem字段写成空值了。刚刚发现。
程序没有错。给大家添麻烦了。抱歉。