数值号码 去重 如何简单实现！ 求助！！

libo349

比如 号码

55 66 99 40 01 02 03 01 05 06 07 03 09 10 11 12 13  等等

01 和 03  有重复的了

把重复的 去掉 只确保只出现一个
变成
55 66 99 40 01 02 03 05 06 07 09 10 11 12 13

libo349

谁有更好的方法 我本来 用循环一个一个对比 但是 效率太低！ 方法也是笨方法 不实际 ！

libo349

    Dim str As String, rt As String
    str = Text1.Text
    rt = ""
    Do While Len(str) > 0
        rt = rt & Left(str, 1)
        str = Replace(str, Left(str, 1), "")
    Loop
    Text1.Text = rt

此代码 效果非常好 但是 运行结果却是
01 234567
他吧 0也判断进去了 当成重复的了

libo349

Dim str1 As String
Dim str2 As String
str1 = "01 02 03 01 04 06 07 01 08 01 01 09 02 03 10"
str2 = ""
Dim a() As String
a = Split(str1, " ")
For i = 1 To UBound(a) Step 1
            If InStr(1, str2, a(i)) = 0 Then
                str2 = str2 & " " & a(i)
            End If
Next
Print str2


测试成功  如果你有更好的 请评论