>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 >or mystring = strtran(mystring,chr(13)+chr(10),'')