Is there a way to adapt it ?

I am trying to get it from _CLIPTEXT but it does not remove lines

#define CRLF CHR(13)+CHR(10)

STORE _CLIPTEXT TO lcFile

DO WHILE ATC(CRLF+CRLF,lcFile) > 0
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

STORE lcFile TO _CLIPTEXT