以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何去除字符串中的重复值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=87002)
--  作者：FT001
--  发布时间：2016/6/30 14:30:00
--  如何去除字符串中的重复值
如有字符串 
DD = “1，2，4，5，2，4，6，7，5”
如何去除其中的重复值。
--  作者：大红袍
--  发布时间：2016/6/30 14:39:00
--  

参考

 

Dim str As String = "1,2,4,5,2,4,6,7,5"
Dim ls As new List(Of String)
For Each s As String In str.split(",")
    If ls.Contains(s) = False Then ls.add(s)
Next
str = String.Join(",", ls.ToArray)
msgbox(str)