【Access】字符串去重-will.miao
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-窗体/数据页


【Access】字符串去重

发表时间:2018/8/3 14:46:26 评论(0) 浏览(4023)  评论 | 加入收藏 | 复制
   
摘 要:现有一串字符中有多个重复的字符,需要将重复的字符去除,只保留一个不重复的字符
正 文:
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软件网交流QQ群(群号:198465573)
 
 相关文章
【Access入门】多字段去重select查询  【小赵  2014/6/26】
【Access示例】字段值重复颜色突出显示/反色显示重复值  【缪炜  2015/1/18】
【Access小品】空谷幽兰--重复数据空白显示示例  【煮江品茶  2015/1/26】
【Access源码示例】计算重复项合计,合计重复数的累加,对查询重...  【麥田  2015/11/2】
【Access源码示例】计算符合条件的重复项合计,合计满足条件重复...  【麥田  2015/11/3】
【Access编程技巧】避免重复用对象名称做一串调用  【杨雪  2016/5/3】
商品重复提示  【程卓  2017/12/13】
自动编号函数--当日编号不能重复,若重复,日期推后1天  【杨雪  2018/3/13】
找出重复项,标记红色  【雨泉  2018/5/10】
常见问答
技术分类
相关资源
文章搜索
关于作者

will.miao

文章分类

文章存档

友情链接