IF SELECT("YourTableAlias") == 0 USE YourTable ALIAS YourTableAlias IN 0 ENDIF c_title = "" FOR asd = 1 TO FCOUNT() c_title = IIF(asd==1,"",";")+FIELDS(asd) NEXT _VFP.DataToClip("YourTableAlias",,3) c_title = c_title + +CHR(13)+CHR(10)+STRTRAN(_cliptext,CHR(9),";") STRTOFILE(c_title,"Text.TXT")****** Update
IF SELECT("YourTableAlias") == 0 USE YourTable ALIAS YourTableAlias IN 0 ENDIF _VFP.DataToClip("YourTableAlias",,3) c_title = c_title + +CHR(13)+CHR(10)+STRTRAN(_cliptext,CHR(9),";") STRTOFILE(c_title,"Text.TXT")