>>>Hi
>>>
>>>I have a string like
>>>
>>>"IOBJ_IX I,PROJE_T_IX I,PARENT_IX I,ITYP I,ISUBTYP I"
>>>
>>>and would like to transform it to
>>>
>>>"IOBJ_IX I,PROJE_T_IX I,PARENT_IX I,ITYP I,ISUBTYP I".
>>>
>>>IOW I like to reduce multiple occurences of Space to one Char.
>>>
>>>What is the best command to use?
>>>
>>>TIA
>>
>>Agnes
>>
>>

>>cStr = "ABC  XYZ  123"
>>? StrTran(cStr, "  ", " " ) && Replace double spaces with single spaces
>>

>
>Hi Jos,
>

>Yes, thats correct. But this works for double only. If they are tripple or higher it fails.
>ok.
>
>Agnes


Agnes,

Does this work ? Replace the dots with spaces

a = '12...34...56...'
? StringSearchAndReplace(a, '..', '.')

*-------------------------------------------------------------------------------
function StringSearchAndReplace(Searched, SearchFor, ReplaceWith, IgnoreCase)

	local i, Offset, SearchForLength, ReplaceWithLength
	
	SearchForLength = len(SearchFor)
	ReplaceWithLength = len(ReplaceWith)
	Offset = 1
	
	do case
	case IgnoreCase
		i = atc(SearchFor, substr(Searched, Offset))
		do while !empty(i)
			i = i + Offset - 1
			Searched = stuff(Searched, i, SearchForLength, ReplaceWith)
			Offset = Offset + ReplaceWithLength 
			i = atc(SearchFor, substr(Searched, Offset))
		enddo
	otherwise
		i = at(SearchFor, substr(Searched, Offset))
		do while !empty(i)
			i = i + Offset - 1
			Searched = stuff(Searched, i, SearchForLength, ReplaceWith)
			Offset = Offset + ReplaceWithLength 
			i = at(SearchFor, substr(Searched, Offset))
		enddo
	endcase
	
	return Searched
endfunc
*--------------------------------------------------------------------------