Hi Pete,
I found the following on the UT somewhere and I'm not sure who the orig author was. UT search is down again so I couldn't find it.

**=======================================================================
**	ReduceChars(StringToReduce, CharacterReduced)
**-----------------------------------------------------------------------
** Description:
**	Converts multiple contigous characters into a single character.
**	Ex: ? ReduceChars("My    Name", " ") && (returns: "My Name")
**-----------------------------------------------------------------------
** Parameters:
**	StringToReduce:
**		The string to reduce
**	CharacterReduced:
**		The character that is searched for and converted.
**-----------------------------------------------------------------------
** Returns:
**	The reduced string
**-----------------------------------------------------------------------
Function ReduceChars
	Lparameters StringToReduce, CharacterReduced

	Local RetVal, DoubleChar
	RetVal = StringToReduce
	DoubleChar = CharacterReduced + CharacterReduced

	Do While DoubleChar  $ RetVal
		RetVal = Strtran(RetVal, DoubleChar, CharacterReduced)
	Enddo
	Return RetVal

Endfunc

>Hello All,
>easy peasy one for you experts, I need a function to remove extraneous embedded spaces from a given string of multiple words, and wondered if any of you have experience in this area, an example of I show below
>
>

>cStringIn = 'Peter the embedded      space    man'
>
>
>cStringOut = 'Peter the embedded space man'
>
>

>
>
>
>many thanks
>
>Pete Kane

Roi
'MCP' Visual FoxPro

In Rome, there was a poem.
About a dog, who found two bone.
He lick the one, he lick the other.
He went pyscho, he drop dead!