PROCEDURE DoProcessing LPARAMETERS tmTekst1 LOCAL lcString DO WHILE .t. lcString = STREXTRACT(tmTekst1, "<<#", "#>>") IF EMPTY(lcString) RETURN tmTekst1 ENDIF tmTekst1 = STUFF(tmTekst1, AT("<<#", tmTekst1), 6 + LEN(lcString), fff(lcString, "_temp")) ENDDO ENDPROC