Hi Russel,

You can use ALINES() function to split string into items and than process array created by it.

LOCAL laList[1], lcTestString
lcTestString = 'test;test;test1;test;test1;test2'
lcNewString = ";"
FOR i =1 TO ALINES(laList,lcTestString, .T., ";")
	IF NOT ( ";" + PROPER(laList[i]) + ";" $ lcNewString )
		lcNewString = lcNewString + PROPER(laList[i]) + ";"
	ENDIF
ENDFOR

lcNewString = SUBSTR(lcNewString , 2, LEN(lcNewString) -2)

>I have a text string as follows:
>
>lcTestString = 'test;test;test1;test;test1;test2'
>
>What I would like is the following string:
>
>lcNewString = 'Test,Test1,and Test2'
>
>What is the best way to do this?
>
>Thank in advance for help,
>Russell