首页 > 其他专区 > Access >

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

示例下载:(在“了解更多”里下载)

演 示:

字符串去除重复字符

标签: Access 字符串 去除 重复 字符 现有 一串 字符

免责声明: 1、本站部分内容系互联网收集或编辑转载,并不代表本网赞同其观点和对其真实性负责。
2、本页面内容里面包含的图片、视频、音频等文件均为外部引用,本站一律不提供存储。
3、如涉及作品内容、版权和其它问题,请在30日内与本网联系,我们将在第一时间删除或断开链接!
4、本站如遇以版权恶意诈骗,我们必奉陪到底,抵制恶意行为。
※ 有关作品版权事宜请联系客服邮箱:3801085100#qq.com(#换成@)

site教程网 Copyright © 2016-2021 site.net.cn. Some Rights Reserved. 备案号:渝ICP备2023004149号-43