cStringIn = 'Peter the embedded space man' cStringOut = cStringIn do while .T. if space(2) $ cStringOut cStringOut = strtran( cStringOut, space(2), space(1) ) else exit endif enddo ? cStringOut>Hello All,
>cStringIn = 'Peter the embedded space man'
>
>
>cStringOut = 'Peter the embedded space man'
>
>
>
>
>
>many thanks
>
>Pete KaneHector Correa