'***　函数名: DeleteRepeat
'***函数说明: 删除重复项
'***　　参数:
'    sString: 需要删除的字符串
' sSeparator: 分隔符
'***　返回值: 去除重复项后的字符串
Public Function DeleteRepeat(sString, sSeparator)
    Dim arrList
    Dim sMyContent
    Dim i, iCount
    arrList = Split(sString, sSeparator)
    iCount = UBound(arrList)
    For i = 0 To iCount
        If InStr(sMyContent & sSeparator, sSeparator & arrList(i) & sSeparator) = 0 And arrList(i) <> "" Then
            sMyContent = sMyContent & sSeparator & arrList(i)
        End If
    Next
    If sMyContent <> "" Then sMyContent = Right(sMyContent, Len(sMyContent)-1)
    DeleteRepeat = sMyContent
End Function