以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  一串电话号码怎么删除重复号码？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101229)

--  作者：lyydwh --  发布时间：2017/5/26 23:22:00 --  一串电话号码怎么删除重复号码？ 一个字符串电话号码，比如s = "13606063157 13606063157 13665999053 13665999053",怎么把其中的重复号码删除留下不重复的电话号码？

--  作者：wyz20130512 --  发布时间：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)