VB去除一个字符串中重复的字符串

2010-01-11 10:25:45 1.2k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Lisen_1987 墨衍会员 · AI 创作全网分发关注 + 加入社区

Vb6.0版StringBuilder 自动换行【由孤帆代码着色器1.1.0.0 着色】孤帆Blog 前几个星期简单的研究了一下.net的StringBulider类.确实是一个很好的思想,用vb6.0实现了一下她的基本功能.写了3个版本2个自己分配内存版一个现在这个东西,经过多次的测试发现还是由vb6.0的功能来分配内存的效率还是比较高而且比较安全. OK!现在说说.net的StringBulider类的核心思想阅读详情

我写了一个函数，去关于去除重复字符串的，但是处理出来的结果是错误的，有哪位高手指点一下

需要这样处理：
传进来一个字符串，
比如"000001,000001,000001",最后返回"000001";
比如"000001,000002,000001",最后返回"000001,000002";
比如"000001,000001,000002",最后返回"000001,000002";
等等，就是重复的字符串合为一个，不重复的就保留，而且字符串之间用,号隔开



'去除重复字符串

Public Function RemoveRepeat(ByVal AStr As String) As String

    Dim arrTemp() As String

    Dim I As Long

    Dim J As Long

    Dim LStr As String

    LStr = ""

    arrTemp = Split(AStr, ",")

    For I = 0 To UBound(arrTemp)

        For J = I + 1 To UBound(arrTemp)

            If arrTemp(I) = arrTemp(J) Then

                arrTemp(J) = ""

            End If

        Next J

    Next I

    

    For I = 0 To UBound(arrTemp)

        If arrTemp(I) <> "" Then

            LStr = LStr & arrTemp(I)

            If I < UBound(arrTemp) Then

                LStr = LStr & ","

            End If

        End If

    Next I

    

    RemoveRepeat = LStr

End Function