Foxtable(狐表)用户栏目专家坐堂 → 一串电话号码怎么删除重复号码?


  共有2146人关注过本帖树形打印复制链接

主题:一串电话号码怎么删除重复号码?

帅哥哟,离线,有人找我吗?
lyydwh
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:54 积分:595 威望:0 精华:0 注册:2014/3/12 15:10:00
一串电话号码怎么删除重复号码?  发帖心情 Post By:2017/5/26 23:22:00 [只看该作者]

一个字符串电话号码,比如s = "13606063157 13606063157 13665999053 13665999053",怎么把其中的重复号码删除留下不重复的电话号码?

 回到顶部
帅哥哟,离线,有人找我吗?
wyz20130512
  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1242 积分:9374 威望:0 精华:0 注册:2013/5/12 9:22:00
  发帖心情 Post By:2017/5/27 0:23:00 [只看该作者]

Dim S As String = "13606063157 13606063157 13665999053 13665999053"
Dim hms As New List(Of String)
For Each ary As String In s.Split(" ")
    If hms.Contains(ary) = False Then
        hms.Add(ary)
    End If
Next
s = String.Join(" ",hms.ToArray())
Output.Show(s)

 回到顶部