>This will remove occurances of multiple spaces.
>
>lcStr = ALLTRIM(lcOriginalStr) && remove leading and trailing spaces
>DO WHILE AT(" ", lcStr) > 0 && look for double space
> lcStr = STRTRAN(lcStr, " ", " ", 1, 1) && convert double space to single
>ENDDO
>
>I do not know how to get UT to not remove spaces.
>
Use < PRE > and < /PRE > tags like this:

lcStr = ALLTRIM(lcOriginalStr)    && remove leading and trailing spaces
DO WHILE AT("  ", lcStr) > 0       && look for double space
   lcStr = STRTRAN(lcStr, "  ", " ", 1, 1)  && convert double space to single
ENDDO

If you hit the reply button, you'll see the actual tags.