字符串數組：排序並排除重複項

字符串數組排序並排除重複項：通過排序方法排除其中的重複項、重複值，方法如下：

http://blog.csdn.net/aminfo/article/details/26608375

Dim strArray
strArray = Split("CD,AA,B,E,G,C,CD,GH,TY,OP,QQ,GO,GO,QQ,A,B,C,D,E,F,GH,CD,AA,B,E,G,C,CD,GH,TY,OP,QQ,GO,GO,QQ,A,B,C,D,E,F,GH", ",")

newArray = getNewArray(strArray)

newStr = newArray(0)
For i = 1 to ubound(newArray)
	 newStr = newStr & "," & newArray(i)
Next

Wscript.echo newStr

'排除重複項並排序
Function GetNewArray(strArray)

	Dim WordArray
	'先對字符串進行排序
	WordArray = Split(Trim(SortArray(strArray)), " ")

	Dim LastWord
	GetNewArray = WordArray(0)
	LastWord = Lcase(WordArray(0))

	If ubound(WordArray)>0 Then
		For wi = 1 to ubound(WordArray)
			If Lcase(WordArray(wi))<> LastWord Then
				GetNewArray = GetNewArray & "," & WordArray(wi)
				LastWord = Lcase(WordArray(wi))
			End If
		Next
	End If
	GetNewArray = Split(GetNewArray, ",")

End Function


'排序
Function SortArray(strArray)
	Dim oArrayList, iElement
	Set oArrayList = CreateObject("System.Collections.ArrayList")
	Dim thisArray
	thisArray = strArray
	For iElement = 0 To UBound(thisArray)
		oArrayList.Add thisArray(iElement)
	Next
	oArrayList.Sort		'通過ArrayList的Sort方法對數組進行排序
	thisArray = oArrayList.toArray
	SortArray = join(thisArray, " ") 		'返回字符串
End Function