请问算法问题

Question

我有一个问题请大家帮忙:
例如AAAABBACCCB.这样一个序列,其中ABC可以是字符,也可以是字符串.
怎样能实现把其中的ABC拣选出来,没有重复?
拣选的结果为:ABC.
为这个问题头疼了很久,愿得良方为快.

Answer 1

Function GetString(ByVal s As String) As String    Dim tmp As String
    Do
        tmp = Mid(s, 1, 1)
        GetString = GetString & tmp
        s = Replace(s, tmp, "")
    Loop While Len(s)
    
End Function这个？