putfile( ) 函数示例

下面的例子从任意用户选中的已存储表中创建一个分隔数据文件。getfile( ) 用来查找并打开一个表，putfile( ) 用来返回目标文件名。

gctablename = getfile('dbf', 'open table:')
use (gctablename)
gcdelimname = alias( ) + '.dlm'
gcdelimfile = putfile('delimited file:', gcdelimname, 'dlm')
if empty(gcdelimfile) &&按了 esc 键
cancel
endif
copy to (gcdelimfile) delimited &&创建分隔数据文件
modify file (gcdelimfile) noedit