时间：2020-04-07 19:20作者：admin来源：未知人气：358我要评论(0)
现有一串字符中有多个重复的字符，需要将重复的字符去除，只保留一个不重复的字符。
代码：
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
示例下载：（在“了解更多”里下载）
演 示:
相关阅读 access怎么做点击选择学历的效果access怎么取消冻结字段access怎么冻结字段access怎么删除子数据表access怎么在表格中插入子数据表access设置快速访问栏在功能区下方显示access设置快速访问栏在功能区上方显示access怎么将设计视图加到快速访问栏access怎么将导出Excel表格加到快速访问栏access怎么将数据表视图加到快速访问栏
热门文章
Microsoft Office Access 2019 官方版激活版 免费下载
如何设计一个简单的Access登录窗体
Access创建数据库实现图解教程
access怎么求平均成绩
最新文章
access怎么做点击选择学历的效果
access怎么取消冻结字段
access怎么冻结字段access怎么删除子数据表access怎么在表格中插入子数据表access设置快速访问栏在功能区下方显示
人气排行 Microsoft Office Access 2019 官方版激活版 免费下载如何设计一个简单的Access登录窗体Access创建数据库实现图解教程access怎么求平均成绩怎么在Access报表的页面页脚区添加一个计算控件Access 2007、2010、2016三个版本的使用心得Access查询标准(条件)详解电脑没有access怎么办？ access文件打不开怎么办？
盖楼回复X
(您的评论需要经过审核才能显示)
查看所有0条评论>>