>I would not use the $ operator since ^^^ may already be in the line at any place > >Better use right(..., len(m.lcTail)) == m.lcTail)) >>
>>#DEFINE LF CHR(13)+CHR(10) >> >> >>CLEAR >>lcTail="^^^" >> >>?" First crete a tst file" >>TEXT TO lcText NOSHOW TEXTMERGE >>line 1 >>line 2 >>line 3 >>line 4 >>NEXT line is empty >> >>line 7 >>NEXT line is emptyagain >> >>ENDTEXT >> >>lcFileName="ThisIsPetersTestFile.txt" >>IF NOT FILE(FULLPATH(lcfileName)) >> STRTOFILE(lcText, lcfileName) >>ENDIF >>?lcText >>?"-------------------------------------------------------" >> >>?"now work on it" >>lcTextOut=[] >>lcTextIn=FILETOSTR(FULLPATH(lcfileName)) >>lnNumLines= ALINES(laText,lcTextIn) >>FOR I =1 TO lnNumLines >> >> DO CASE >> CASE empty(laText[m.I]) && empty line >> lcTextOut = lcTextOut + laText[m.I] +LF >> CASE lcTail$laText[m.I] && already has tail >> lcTextOut = lcTextOut + laText[m.I]+LF >> >> OTHERWISE >> lcTextOut = lcTextOut + laText[m.I]+lcTail+LF >> >> ENDCASE >> >>ENDFOR >> >>?lcTextOut >>?"-------------------------------------------------------" >