Access字符串去除重复字符

Access 2021-06-25 20:55:26

现有一串字符中有多个重复的字符，需要将重复的字符去除，只保留一个不重复的字符。

代码：

Public Function MoveSame(strSame) As String

Dim s As String, i As Long

s = strSame

i = 1

Do While i < Len(s)

s = Left(s, i) & Replace(s, Mid(s, i, 1), "", i + 1)

i = i + 1

Loop

MoveSame = s

End Function

示例下载：（在“了解更多”里下载）

演示:

[免责声明]本文来源于网络，不代表本站立场，如转载内容涉及版权等问题，请联系邮箱:83115484#qq.com，#换成@即可，我们会予以删除相关文章，保证您的权利。转载请注明出处：http://www.tutorialesandroide.com/wps/access/498.html