2,749
社区成员
发帖
与我相关
我的任务
分享CREATE CURSOR T (T1 C(10),T2 N(4),T3 D)
INSERT INTO T VALUES([11],21,DATE()-2)
INSERT INTO T VALUES([12],22,DATE()-1)
INSERT INTO T VALUES([13],23,DATE())
CSTR=[]
SCAN
CSTR=CSTR+T1+[ ]+TRANSFORM(T2,[@ 9999])+[ ]+TRANSFORM(T3)+IIF(RECNO()<RECCOUNT(),[,],[]) && 不换行
*CSTR=CSTR+T1+[ ]+TRANSFORM(T2,[@ 9999])+[ ]+TRANSFORM(T3)+IIF(RECNO()<RECCOUNT(),CHR(13)+CHR(10),[]) && 换行
ENDSCAN
STRTOFILE(CSTR,[AT.TXT])
MODIFY FILE AT.TXT