REDUCE() was what I was trying to remember.

Thanks.......Rich

>>I know there has to be a better way of doing this than

>>FUNCTION rem_mult_blanks(tcString)
>>DO WHILE "  " $ tcString
>>  tcString = STRTRAN(tcString,"  "," ")
>>ENDDO
>>
>>RETURN tcString

>>
>>but I can't seem to remember what it is.
>
>There's a Reduce() function in FoxTools.fll, or if you don't want to use that, you can just improve your algorithm:
>
>
>

>FUNCTION rem_mult_blanks(tcString)
>i=32
>lcSpace=space(i)
>do while i>1
>  DO WHILE lcSpace $ tcString
>    tcString = STRTRAN(tcString,lcSpace," ")
>  ENDDO
>  i=i/2
>  lcSpace=space(i)
>enddo
>RETURN tcString