Access字符串删除重复字符
Microsoft Office Access是由微软发布的关系数据库管理系统。它结合了 MicrosoftJet Database Engine 和 图形用户界面两项特点，是 Microsoft Office 的系统程序之一。Microsoft Office Access是微软把数据库引擎的图形用户界面和软件开发工具结合在一起的一个数据库管理系统。它是微软OFFICE的一个成员, 在包括专业版和更高版本的office版本里面被单独出售。2018年9月25日,最新的微软Office Access 2019在微软Office 2019里发布。
现有一串字符中有多个重复的字符，需要将重复的字符去除，只保留一个不重复的字符。
?代码：
Public Function MoveSame(strSame) As String
Dim s As String, i As Long
s = strSame
i = 1
Do While i <>
s = Left(s, i) & Replace(s, Mid(s, i, 1), "", i + 1)
i = i + 1
Loop
MoveSame = s
End Function
示例下载：（在“了解更多”里下载）
演 示:
Microsoft Access在很多地方得到广泛使用，例如小型企业，大公司的部门。
……