#define CRLF CHR(13)+CHR(10) lcFile = FILETOSTR(....) DO WHILE ATC(CRLF+CRLF,lcFile) lcFile = STRTRAN(m.lcFile, CRLF+CRLF, CRLF) ENDDO IF LEFT(m.lcFile,2) == CRLF && Remove first blank line lcFile = SUBSTR(m.lcFile,3) ENDIF IF RIGHT(m.lcFile,2) == CRLF && Remove last blank line lcFile = LEFT(m.lcFile,LEN(m.lcFile)-2) ENDIF STRTOFILE(lcFile,....)