Thanks to all (Dragan, Marcia and Tore). I wonder which solution is the fastest?
>
How do I remove duplicate characters in a string:
>
>>Bigstring = 'cattttccv'
>NonDupeString = NonDupe(BigString)
>
>* Result = 'catv'
>
>
>
>Bigstring = 'cattttccv'
>NonDupeString = NonDupe(BigString)
>?NonDupeString
>
>FUNCTION NonDupe(tcString)
>LOCAL lcNewString, lnI, lnLen, lcChar
>lcNewString = tcString
>lnLen = LEN(tcString)
>lnI = 1
>DO WHILE lnI < lnLen
> lcChar = SUBSTR(lcNewString, lnI, 1)
> IF OCCURS(lcChar, lcNewString) > 0
> lcNewString = STRTRAN(lcNewString, lcChar, '', 2, -1, 2)
> lnLen = LEN(lcNewString)
> ENDIF
> lnI = lnI + 1
>ENDDO
>RETURN lcNewString
>
