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