Get unique characters in string

[YasserKhalil]

Hello everyone

I am trying the following udf that gets the unique characters in string

Code: Select all

Function UniqueChars(txt As String)
    Dim x, i As Long
    With CreateObject("Scripting.Dictionary")
        x = Split(StrConv(Replace(txt, " ", ""), 64), Chr(0))
        For i = 0 To UBound(x) - 1
            .Item(x(i)) = Empty
        Next i
        UniqueChars = Join(.Keys, "")
    End With
End Function

The code is ok for English letters but not for Arabic letters. Any ideas?

[HansV]

How about

Code: Select all

Function UniqueChars(txt As String)
    Dim x As String, i As Long
    x = Replace(txt, " ", "")
    With CreateObject("Scripting.Dictionary")
        For i = 1 To Len(x)
            .Item(Mid(x, i, 1)) = Empty
        Next i
        UniqueChars = Join(.Keys, "")
    End With
End Function

[YasserKhalil]

Amazing. Thank you very much.

[HansV]

This version is a lot simpler, I don't know why you used Split and StrConv.

[YasserKhalil]

I just have searched and found the previous UDF in the first post. I thought it will work with Arabic characters.