>>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.

Harumph! Can't FoxTools' REDUCE function do this?? I know I can do it with VBScript.RegExp:

oReg = CREATEOBJ('VBScript.RegExp')
oReg.Global = .T.             && FOR ALL OCCURANCES
oReg.Pattern = '\b[\t ]+\b'   && Match any occurance of one or more spaces/tabs
cReducedString = oReg.Replace(cUnReducedString,' ') &&Replace match with ' '