'Power By Endision 2007/4/11 'welcome to click my cnblogs's blog http://endisoft.cnblogs.com PrivateFunction IsExists()Function IsExists(ByVal strString AsString, ByVal strArray() AsString) AsBoolean Dim i AsInteger For i =0To strArray.Length -1 If strString = strArray(i) Then ReturnTrue EndIf Next ReturnFalse End Function PrivateFunction DistinctArray()Function DistinctArray(ByVal strArray() AsString) As Array Dim i AsInteger Dim j AsInteger Dim strArrayCmp(strArray.Length -1) AsString j =0 For i =0To strArray.Length -1 If i =0Then strArrayCmp(0) = strArray(0) Else IfNot IsExists(strArray(i).Trim, strArrayCmp) Then j = j +1 strArrayCmp(j) = strArray(i).Trim EndIf EndIf Next Return strArrayCmp End Function