zDistinctTextArray - 文本型数组去重

zDistinctTextArray - 文本型数组去重

Function zDistinctTextArray(Text, SplitDelimiter, JoinDelimiter)
    Dim i As Integer, Dic As Object, Arr
    Set Dic = CreateObject("Scripting.Dictionary")
    Arr = Split(Text, SplitDelimiter)
    For i = 0 To UBound(Arr)
        Dic(Arr(i)) = 1
    Next i
    zDistinctTextArray = Join(Dic.keys, JoinDelimiter)
    Dic.RemoveAll
End Function