将表数据导出为文本,用逗号作分隔符,无定界符(即字符型字段导出后不带双引号).

将表数据导出为文本,用逗号作分隔符,无定界符(即字符型字段导出后不带双引号).
---------------------------------------------------------------
CLOSE DATABASES
USE Temp.dbf
COPY TO Temp1.txt DELIMITED WITH BLANK FOR RECNO()=0
! DELE FILE 'Temp1.txt'
! gnErrFile=FCREATE('Temp1.txt') &&创建文件
! =FCLOSE(gnErrFile) &&关闭文件
Txt1='Temp1.txt'
nFileHandle1=FOPEN(Txt1,2)
SCAN
LcString=ALLTRIM(FL1)+","+ALLTRIM(FL2)+","+ALLTRIM(FL3)
nFileHandle2=FPUTS(nFileHandle1,LcString)
ENDSCAN
nFileHandle2=FCLOSE(nFileHandle1)
CLOSE DATABASES

Published At
Categories with 数据库类
Tagged with
comments powered by Disqus