>How do I strip out extra spaces and carriage returns and line feeds from character strings that are in memo fields?

Here's a fantastic NoCr() function.

FUNCTION NoCr(tcString)
tcString=ALLTRIM(tcString)
DO WHILE INLIST(LEFT(tcString,1),CHR(13),CHR(10),CHR(160)) AND LEN(tcString)>0
   tcString=SUBSTR(tcString,2)
ENDDO
DO WHILE INLIST(RIGHT(tcString,1),CHR(13),CHR(10),CHR(160)) AND LEN(tcString)>0
   tcString=SUBSTR(tcString,1,LEN(tcString)-1)
ENDDO
RETURN tcString