Building Unique String Return From Array ~ Problem

[DarkSprout]

Please help, I can't get the Function to return all Unique items in an array as a string

What I'm expecting is:

"Rock|Dance|Indi|2009|Dance|Electro|Playlist"

Functional Code Snippet:

expandcollapse popup

#include <Array.au3>
#include <Debug.au3>
#NoTrayIcon
_DebugSetup ( "debug" )

Local $avArray[6]
$avArray[0] = "Rock"
$avArray[1] = "Dance"
$avArray[2] = "Indi, 2009, Dance"
$avArray[3] = "Electro, 2009"
$avArray[4] = "Indi"
$avArray[5] = "Playlist"

_DebugOut(@CRLF & "return; " & BuildTagList($avArray), 1)

;// Build Unique List of all Tags //
Func BuildTagList($arrayIn)
Dim $returnString
$tagsUniqueArray = _ArrayUnique($arrayIn)

For $x = 1 To UBound($tagsUniqueArray) - 1
    _DebugOut("x- " & $tagsUniqueArray[$x], 1)
    $splitArray = StringSplit($tagsUniqueArray,",")
    For $y = 1 To UBound($splitArray) - 1
            _DebugOut("y- " & $splitArray[$y], 1)
            $returnString = $returnString & Trim($splitArray[$y]) & "|"
    Next
Next

Return $returnString
    
EndFunc

;// Strip Leading and Trailing White Space //
Func Trim($strIn)
    return StringStripWS(StringStripWS($strIn, 1), 2)
EndFunc

With Thanks,

=|)arkSprout=

[Jos]

This line:

$splitArray = StringSplit($tagsUniqueArray, ",")

Should be

$splitArray = StringSplit($tagsUniqueArray[$x], ",")

[DarkSprout]

This line:

$splitArray = StringSplit($tagsUniqueArray, ",")

Should be

$splitArray = StringSplit($tagsUniqueArray[$x], ",")

With great thanks, I've been looking at this for hours...

I got and output of:

|Rock|Dance|Indi|2009|Dance|Electro|Indi|Playlist|

All I've got to do now, is remove the trailing and leading I-Bars.

Again, Jos ~ Thanks.

=|)arkSprout=

Edited June 8, 2009 by DarkSprout