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
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement