用什么方法过滤字符串中的重复字符?

xinle

不知道怎样实现.有没这种函数呢?

hedongmei1218

方法一：用查询——查找重复项查询

方法二：将字段设置成唯一索引

xinle

老大，我说的是字符串！不是字段值！！
比如：aabcdeeefggh5687559
过滤成：abcdefgh56879,即每个字符只出现一次

Benjamin_luk

现成肯定没有了,只能自己编写了.[em01]

xinle

你能写一下吗?

Benjamin_luk

是否要区分大小写呢?

andymark

Dim Str As String
Dim TemStr As String

Str = "aabcdeeefggh5687559"

     For i = 1 To Len(Str)
      
     If InStr(1, TemStr, Mid(Str, i, 1)) = 0 Then
     
        TemStr = TemStr & Mid(Str, i, 1)
               
     End If
   
    Next i
   

MsgBox TemStr

Benjamin_luk

Function GetStar()
Dim str As String, I As Integer, str1 As String
str = "aAbcdeeefggh5687559"
For I = 1 To Len(str)

'如果不用区分大小写,请将下面括号中的0改为1

If InStr(1, str1, Mid(str, I, 1), 0) = 0 Then str1 = str1 & Mid(str, I, 1)
End If
Next I
MsgBox str1
End Function

'[em01]

Benjamin_luk

没按刷新,原来有人已贴出来,冒犯冒犯.

andymark

也刚刚才发的，呵呵  我们的想法是一样的