VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 753|回复: 3

数值号码 去重 如何简单实现! 求助!!

[复制链接]
发表于 2021-8-25 22:34:25 | 显示全部楼层 |阅读模式
比如 号码

55 66 99 40 01 02 03 01 05 06 07 03 09 10 11 12 13  等等

01 和 03  有重复的了

把重复的 去掉 只确保只出现一个
变成
55 66 99 40 01 02 03 05 06 07 09 10 11 12 13

 楼主| 发表于 2021-8-25 22:35:30 | 显示全部楼层
谁有更好的方法 我本来 用循环一个一个对比 但是 效率太低! 方法也是笨方法 不实际 !
回复 支持 反对

使用道具 举报

 楼主| 发表于 2021-8-25 22:35:56 | 显示全部楼层
本帖最后由 libo349 于 2021-8-25 22:42 编辑

    Dim str As String, rt As String
    str = Text1.Text
    rt = ""
    Do While Len(str) > 0
        rt = rt & Left(str, 1)
        str = Replace(str, Left(str, 1), "")
    Loop
    Text1.Text = rt

此代码 效果非常好 但是 运行结果却是
01 234567
他吧 0也判断进去了 当成重复的了
回复 支持 反对

使用道具 举报

 楼主| 发表于 2021-8-26 00:51:22 | 显示全部楼层
Dim str1 As String
Dim str2 As String
str1 = "01 02 03 01 04 06 07 01 08 01 01 09 02 03 10"
str2 = ""
Dim a() As String
a = Split(str1, " ")
For i = 1 To UBound(a) Step 1
            If InStr(1, str2, a(i)) = 0 Then
                str2 = str2 & " " & a(i)
            End If
Next
Print str2


测试成功  如果你有更好的 请评论
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2021-12-5 12:01

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表