Hi Russell,

Hypothesis: "," and ";" are separator

lcTestString='test;test;test1;test;test1;test2'

ALINES(aWords,m.lcTestString,";")
lcNewString=''

1°
FOR EACH wWord IN aWords
IF AT(','+m.wWord,m.lcNewString)=0
lcNewString=m.lcNewString+','+m.wWord
ENDIF
ENDFOR
lcNewString=SUBSTR(m.lcNewString,2)
?lcNewString

OR

2°
SET EXACT OFF
FOR EACH wWord IN aWords
IF m.lcNewString#','+m.wWord
lcNewString=','+m.wWord+m.lcNewString
ENDIF
ENDFOR
lcNewString=SUBSTR(m.lcNewString,2)
?lcNewString


Fabio