DIMENSION laLines[1]
lcCrLf = CHR(13)+Chr(10)
ALINES(laLines, mymemofiled, .T.)
lcNewMemo = ""
FOR i=1 TO ALEN(ALINES)
  * Put new line codes back '+ lcCrLf'
  *  or remove '+ lcCrLf' if you don't want new line codes in the memo
  lcNewMemo = lcNewMemo + laLines[i] + lcCrLf 
ENDFOR

>Hi all,
>
>I have many lines of memo fields needed to be trimmed to remove all right blanks :
>
< snip >